Desactivar el botón para cerrar la aplicación

Para deshabilitar el botón de aplicación Cerrar y el comando Cerrar del menú Sistema, debes llamar a las funciones GetSystemMenu y ModifyMenu desde el API Win32. Escribe el código siguiente en la sección Declaraciones:

Option Compare Database
Option Explicit
Private Declare Function GetSystemMenu Lib “user32″ (ByVal hWnd As Long, ByVal bRevert As Long) As Long

Private Declare Function EnableMenuItem Lib “user32″ (ByVal hMenu As Long, ByVal wIDEnableItem As Long, ByVal wEnable As Long) As Long

Private Declare Function GetMenuItemInfo Lib “user32″ Alias “GetMenuItemInfoA” (ByVal hMenu As Long, ByVal un As Long, ByVal b As Long, lpMenuItemInfo As MENUITEMINFO) As Long

Private Type MENUITEMINFO
cbSize As Long
fMask As Long
fType As Long
fState As Long
wID As Long
hSubMenu As Long
hbmpChecked As Long
hbmpUnchecked As Long
dwItemData As Long
dwTypeData As String
cch As Long
End Type

Const MF_GRAYED = &H1&
Const MF_BYCOMMAND = &H0&
Const SC_CLOSE = &HF060&

Conocer la resolución de la pantalla

Crea un módulo nuevo y escriba las Declaraciones y función siguientes:

Option Explicit
Type RECT
x1 As Long
y1 As Long
x2 As Long
y2 As Long
End Type

Declare Function GetDesktopWindow Lib “User32″ () As Long
Declare Function GetWindowRect Lib “User32″ _
(ByVal hWnd As Long, rectangle As RECT) As Long

Function GetScreenResolution () as String
Dim R As RECT
Dim hWnd As Long
Dim RetVal As Long
hWnd = GetDesktopWindow()
RetVal = GetWindowRect(hWnd, R)
GetScreenResolution = (R.x2 – R.x1) & “x” & (R.y2 – R.y1)
End Function

Y llama a la función de la siguiente forma:

GetScreenResolution()

Fuente: www.microsoft.com

Menú contextual en la aplicación

El siguiente ejemplo muestra el menú secundario al hacer click sobre unos botones, pero se puede modificar para que la activación del menú contextual se realice al activar el botón derecho del ratón.

Access 2000. Descargar

Fuente: Sito comune

Simular el cambio de cursor de un hipervínculo

La utilización del código es muy sencillo:

El siguiente código hay que copiarlo y pegarlo en un módulo llamado “Cursor“. Después inserta cualquier etiqueta en un formulario y establece las propiedades ForeColor en azul y FontUnderline en “on“. Asigna en el evento MouseMove la función “=UseHand()” y guarda el formulario en modo vista. Al mover el curso alrededor de la etiqueta éste cambiará al tipo mano y cuando se mueve fuera de la etiqueta el cursor del ratón vuelve a su estado normal.

El control Treeview y drag&drop

La aplicación usa el control Treeview para mostar la relación de dependencia entre los registros de una tabla de Access. La macro mcrTest abre el formulacio frmTreeViewTest, que muestra la relación existente entre los trabajadores sus supervisores basado en los datos de la tabla Employees. El usuario puede seleccionar cualquier empleado y hacerlo dependiente de cualquier otro trabajador. El cambio de la relación se guardará de forma automática en la tabla Emploees.

Access 97. Descargar

Fuente: Shamil Salakhetdinov

Crear un directorio si no existe

La siguiente función crea el directorio pasado (strDirectoryPath) si no existe.

Public Sub CheckDir(strDirectoryPath As String)
If Dir(strDirectoryPath)<>”" Then
MkDir strDirectoryPath
End if
End Sub

Oculta todas las barras de herramientas

Mediante el siguiente código se ocultan todas las barras de herramientas que aparecen al abrir un archivo de Access:

Dim objCommandBar3 As Object
For Each objCommandBar3 In Access.CommandBars
objCommandBar3.Enabled = false
Next objCommandBar3

Determinar si existe un archivo

La siguiente función devuelve true si el archivo que se la pasa existe, en caso contrario devulve false. El código se apoya en la función Dir.

Function Fileexists(fname) as boolean
If Dir(fname) <> “” then _
Fileexists = True _
Else Fileexists = False
End Function

Obtener datos de un formulario auxiliar

Mediante el siguiente ejemplo muestro como obtener datos desde un formulario auxiliar. Al hacer click en el botón seleccionar del formulario principal se llama a una función que abre un formulario auxiliar, pasándole a éste el nombre del formulario principal y el control en el que se desean ‘verter’ los datos. Una vez seleccionado el valor en el formulario auxiliar una nueva función cierra el formulario auxiliar y devuelve el valor seleccionado.

Access 2000. Descargar