Hi,
I'm testing my database in runtime mode, I came a cross a macro that gave an error so I converted it to a module heres the code it generated=
Function Find_Applicant()
On Error GoTo Find_Applicant_Err
DoCmd.Echo False, "Please Stand By"
DoCmd.Hourglass True
DoCmd.RunCommand acCmdFilterByForm
DoCmd.RunCommand acCmdClearGrid
Find_Applicant_Exit:
Exit Function
Find_Applicant_Err:
MsgBox Error$
Resume Find_Applicant_Exit
End Function
It still doesn't work I keep getting a little box that shows up saying Resume without error, I click it it comes right back.
Thanks--Any help will be greatly appreciated
I'm testing my database in runtime mode, I came a cross a macro that gave an error so I converted it to a module heres the code it generated=
Function Find_Applicant()
On Error GoTo Find_Applicant_Err
DoCmd.Echo False, "Please Stand By"
DoCmd.Hourglass True
DoCmd.RunCommand acCmdFilterByForm
DoCmd.RunCommand acCmdClearGrid
Find_Applicant_Exit:
Exit Function
Find_Applicant_Err:
MsgBox Error$
Resume Find_Applicant_Exit
End Function
It still doesn't work I keep getting a little box that shows up saying Resume without error, I click it it comes right back.
Thanks--Any help will be greatly appreciated