PtrSave attribute

[hemaazez]

Dear All
can you help me please
i have this code in my database
Private Sub Form_timer()
Static iCount As Integer
iCount = iCount + 1
If iCount = 10 Then
Me.TimerInterval = 0
Call generateEmail("select * from qryduein30days")
Call generateEmail2("select * from qryDuein30Days2")
Call generateEmail3("select * from qryDuein30Days3")
Call generateEmail4("select * from qryDuein30Days4")
Call generateEmail5("select * from qryDuein30Days5")


If Me.TimerInterval = 0 Then
Me.TimerInterval = 125
End If
Exit Sub
End If
End Sub


when any one open the database in another computers this message appear ( the expression on timer you entered as event property setting produced the following error : the code in this project must be updated for use on 64 bit system please review and update declare statements and then mark them with the PtrSave attribute )
what is the right edites in the code - best regards

[ranman256]

this code is not where the error is.
Somewhere you have declared API functions....
like:
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpszOp As String, ByVal lpszFile As String, ByVal lpszParams As String, ByVal lpszDir As String, ByVal FsShowCmd As Long) As Long
Private Declare Function GetDesktopWindow Lib "user32" () As Long

these need the PtrSave:

#if Win64 then
   Declare PtrSafe Function MyMathFunc Lib "User32" (ByVal N As LongLong) As LongLong
#else
   Declare Function MyMathFunc Lib "User32" (ByVal N As Long) As Long
#end if

[hemaazez]

Thank you very much for your support
regards

[orange]

See this article by Philipp for info

[Micron]

Likely that somewhere is here: generateEmail
but the problem might exist in many places. Suggest you search for a term like "Declare Function". Whatever term you use, make sure you set the search scope to be the entire project.

[Gicu]

Hi there,

You should uninstall the 64 bit MS Office and install the 32 bit version, regardless if your operating system is a 64bit one. See link below for more info:
https://msdn.microsoft.com/en-us/lib...ffice.14).aspx
Cheers,
Vlad

[hemaazez]

thanks for all of you . i edit the cod in light of ranman256 comment . it work good