Buton üzerine gelindiğinde el işareti çıksın

Merhaba;
Değerli arkdaşlar biraz basit bir soru olabilir ama. yapamadım. Form üzerideki butonların üzerine geldiğimde el işareti çıksın istiyorum.
Güzel bir hafta geçirmeniz dileğiyle iyi çalışmalar arkadaşlar.

Access 2007 ve Access 2010 da varsayılan olarak bu özellik var ama Access 2003 de bu özellik direkt olarak yok galiba. Bileşen ya da API kullanmak durumunda kalabilirsiniz.

Sayın alpeki hocam evdeki bilgisayarımda office 2010 kurulu ama işyerinde de çalıştığım için ordakiler office 2003 olduğundan mecburen 2003 kullanıyorum. Bunu kod yazarak halletmemiz mümkün olabilir mi.

Olur ama biraz mantıksız olur çünkü her buton için o fonksiyonu çağıracaksınız. 2003 kurulu olmadığı için kontrol edemiyorum ancak link olarak buton yapılabiliyorsa o zaman el işareti çıkabilir.

Bu kodu modül olarak kayıt edin

Option Compare Database

Option Explicit



Public Const IDC_APPSTARTING = 32650&

Public Const IDC_HAND = 32649&

Public Const IDC_ARROW = 32512&

Public Const IDC_CROSS = 32515&

Public Const IDC_IBEAM = 32513&

Public Const IDC_ICON = 32641&

Public Const IDC_NO = 32648&

Public Const IDC_SIZE = 32640&

Public Const IDC_SIZEALL = 32646&

Public Const IDC_SIZENESW = 32643&

Public Const IDC_SIZENS = 32645&

Public Const IDC_SIZENWSE = 32642&

Public Const IDC_SIZEWE = 32644&

Public Const IDC_UPARROW = 32516&

Public Const IDC_WAIT = 32514&



Declare Function LoadCursorBynum Lib "user32" Alias "LoadCursorA" _

  (ByVal hInstance As Long, ByVal lpCursorName As Long) As Long



Declare Function LoadCursorFromFile Lib "user32" Alias _

  "LoadCursorFromFileA" (ByVal lpFileName As String) As Long



Declare Function SetCursor Lib "user32" _

  (ByVal hCursor As Long) As Long



Function MouseCursor(CursorType As Long)

  Dim lngRet As Long

  lngRet = LoadCursorBynum(0&, CursorType)

  lngRet = SetCursor(lngRet)

End Function

Butonunuzun "fare taşındığında" olayına
MouseCursor IDC_HAND yazın

Private Sub butonunuz_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

MouseCursor IDC_HAND

End Sub

Uygulamanızın tüm buton, resim, yazı denetimlerinin
fare taşındığında olayına "MouseCursor IDC_HAND" yazmanız
gerekir ( yani el görmek istediğiniz her denetimde )

Sayın Mehmet Akif;
Ekteki örneğe bir bakar mısınız?