Es posible cambiar la flecha del mouse cuando se pone 
encima de un boton por la mano de los hypervinculos

JUAN M AFAN DE RIBERA
=====================

no se si habrá una manera de hacerlo mejor sinceramente, pero si trabajas
con Access 2000 o superior, puedes ir a la ventana propiedades de ese botón,
y en la propiedad Dirección de hipervínculo pulsa el botón "...", selecciona
de la sección Vincular a -> Objeto de esta base de datos -> Formularios, y
escoges el mismo formulario en el que esté situado el botón (así en realidad
no irá a ningún sitio, sino que se quedará donde está).

Después de esto, pues pones el código, la macro o la expresión que quieras
en el evento click, o lo que sea del botón de comando.
aclaro... queda sobreentendido que al activar la propiedad Dirección
de hipervínculo, cuando pases por encima del texto del botón saldrá la
"manita" y "el dedito" típico de los hiperenlaces...

Esto es un poco emular lo que en una página web haces con

    <a href="javascript:">aqui aparece una manita y su dedito</a>

pero en realidad ese hiperenlace no te lleva a ningún sitio (no se, a lo
mejor es un poco palurdo... en fin, una idea es una idea)


EDUARADO OLAZ
=============
He puesto en la misma carpeta que la del fichero mdb los dos cursores que
aquí te adjunto:
        harrow.cur y el animado handapst.ani
Para este ejemplo he creado un formulario con dos botones
cmdCursor y cmdCursorAnimado.
En sus eventos MouseMove he puesto lo siguiente
____________________________________

Private Sub cmdCursor_MouseMove( _
                            Button As Integer, _
                            Shift As Integer, _
                            X As Single, _
                            Y As Single)
    Dim strRutaCursor As String
    strRutaCursor = CurrentProject.Path & "\harrow.cur"
    CambiaCursor strRutaCursor
End Sub

Private Sub cmdCursorAnimado_MouseMove( _
                            Button As Integer, _
                            Shift As Integer, _
                            X As Single, _
                            Y As Single)
    Dim strRutaCursor As String
    strRutaCursor = CurrentProject.Path & "\handapst.ani"
    CambiaCursor strRutaCursor
End Sub
____________________________________

El procedimiento CambiaCursor llama a una serie
de funciones que manejan el API de Windows:

Pon en un módulo aparte lo siguiente:

___________________________________________________

Option Explicit

'  ***********************************
'  Funciones para colocar cursores
'  tanto animados como normales
'  eduardo@olaz.net
'  ***********************************
' Declaraciones API

Public Declare Function ManipuladorCursor Lib "user32.dll" _
                              Alias "LoadCursorFromFileA" _
                              (ByVal Cursor As String) _
                              As Long

Public Declare Function EstablecerCursor Lib "user32" _
                              Alias "SetCursor" _
                              (ByVal Manipulador As Long) _
                              As Long

' Desarrollo de los procedimientos

Public Sub CambiaCursor(Cursor As String)
   Dim lngResultado As Long
   lngResultado = PonerCursor(Cursor)
End Sub

 Public Function PonerCursor(ByVal Cursor As String) As Long

   Dim lngManipuladorCursor As Long

   lngManipuladorCursor = ManipuladorCursor(Cursor)

   PonerCursor = EstablecerCursor(lngManipuladorCursor)

End Function
___________________________________________________