How to call a module in main code VBA (1 Viewer)

[murray83]

So i have this code which works fine when its in the main VBA section

'---------------------------------------------------------------------------------------
' Purpose   : Use instead of hyperlink to change mouse cursor to pointing hand.
' Author    : "Mister Slimm"
' Source    : http://misterslimm.wordpress.com/2007/06/21/microsoft-access-2002-emulate-hyperlink-cursor-change/
' Adapted By: Mike Wolfe
' Reposted  : https://nolongerset.com/usehand/
' Usage     : Set OnMouseMove of control to =UseHand()
'---------------------------------------------------------------------------------------
Public Function UseHand()
    Const IDC_HAND As Long = 32649&
    
    ' Load new cursor and, if successful, set it
    Dim hLastCursor As Variant  'Long/LongPtr
    hLastCursor = LoadCursor(0, CLng(IDC_HAND))
    If (hLastCursor > 0) Then
        hLastCursor = SetCursor(hLastCursor)
    End If
End Function

But then when i put it into a Module and then put

Private Sub callhand()
Call UseHand
End Sub

I get access shouting at me saying as in the attached. have tried searching on line but cant make out what i may have done wrong

cheers all for looking

 

[murray83]

I think i might have seen the error of my ways

22:25 and no i didnt make it work, thought i had it.

 

[Gasman]

A. Do you have the rest of that code from that link?
B. Why are you not using it as it is described?

 

[CJ_London]

Seens to me you are missing a bunch of declarations

 

[murray83]

Seens to me you are missing a bunch of declarations

You mean these

Option Compare Database
' UseHand() declarations - paste the #If - #End If lines at the top of the module
#If VBA7 Then
    Private Declare PtrSafe Function LoadCursor Lib "user32" Alias "LoadCursorA" ( _
                                    ByVal hInstance As LongPtr, _
                                    ByVal lpCursorName As Long) As LongPtr
    Private Declare PtrSafe Function SetCursor Lib "user32" (ByVal hCursor As LongPtr) As LongPtr
#Else
    Private Declare PtrSafe Function LoadCursor Lib "user32" Alias "LoadCursorA" (ByVal hInstance As Long, _
                                    ByVal pCursorName As Long) As Long
    Private Declare PtrSafe Function SetCursor Lib "user32" (ByVal hCursor As Long) As Long
#End If

i did add them to the module after i saw them on the form pages but it still wont let me call it from the module just has to be coded to each form

 

[CJ_London]

And how are you calling it from the mousemove event? Show the code if vba or screenshot of the property

also recommend you have option explicit at the top of every module

 

[murray83]

yeah im not sure how mine works as my code is a lot shorter then what they have listed on that url in the comments ill post an example in a second

 

[Gasman]

It plainly says how to use it in the comments?
Why are you not even trying that way?

 

[murray83]

as promissed an example

 

[murray83]

my shorter version is taking from here whcih is also mentioned in the comments and works fine when its In the explicit and main code but would just like to have it all nice and neat in a sub routine ( module ) whcih i can then just call

UseHand(): Changing the Mouse Cursor in Microsoft Access

A classic Microsoft Access mouse cursor trick gets simplified and updated for 64-bit VBA compatibility.

nolongerset.com

 

[CJ_London]

huge number of errors in the code (438, 3078, 'no object' in the control' to mention a few). Plus you have multiple public versions of the function and your module has the same name.

Change the name of the module to something like 'modUseHand' and comment out or remove all the UseHandsfunctions in the form

And use Option Explicit

 

[xavier.batlle]

You mean these

Option Compare Database
' UseHand() declarations - paste the #If - #End If lines at the top of the module
#If VBA7 Then
    Private Declare PtrSafe Function LoadCursor Lib "user32" Alias "LoadCursorA" ( _
                                    ByVal hInstance As LongPtr, _
                                    ByVal lpCursorName As Long) As LongPtr
    Private Declare PtrSafe Function SetCursor Lib "user32" (ByVal hCursor As LongPtr) As LongPtr
#Else
    Private Declare PtrSafe Function LoadCursor Lib "user32" Alias "LoadCursorA" (ByVal hInstance As Long, _
                                    ByVal pCursorName As Long) As Long
    Private Declare PtrSafe Function SetCursor Lib "user32" (ByVal hCursor As Long) As Long
#End If

i did add them to the module after i saw them on the form pages but it still wont let me call it from the module just has to be coded to each form

Not related with the error but the PtrSafe in the #Else should be deleted.