M
mjt7email-ggroups
Hello Everyone
I'm using Access 2003.
On Allen Browne's site http://allenbrowne.com/tips.html under the
heading "Find Dialog", Allen advises that the Replace tab is also
exposed and (quote) "A workaround for this behavior is to temporarily
set the AllowEdits property of the form to No before you
DoCmd.RunCommand acCmdFind."
I was testing it and everything was working well until I clicked the
What's this question mark in the dialog tile bar...the Replace tab
became available, and not just available but in full working order
too.
The code I'm using is -
Private Sub cmdFind_Click()
On Error GoTo Err_Handler
Me.AllowEdits = False
DoCmd.RunCommand acCmdFind
Exit_Here:
On Error Resume Next
Me.AllowEdits = True
Exit Sub
Err_Handler:
MsgBox Err.Number & " : " & Err.Description, , dbTitle
Resume Exit_Here
End Sub
Can you tell me if the code is correct please?
Thank you for your help, regards
Marguerite
I'm using Access 2003.
On Allen Browne's site http://allenbrowne.com/tips.html under the
heading "Find Dialog", Allen advises that the Replace tab is also
exposed and (quote) "A workaround for this behavior is to temporarily
set the AllowEdits property of the form to No before you
DoCmd.RunCommand acCmdFind."
I was testing it and everything was working well until I clicked the
What's this question mark in the dialog tile bar...the Replace tab
became available, and not just available but in full working order
too.
The code I'm using is -
Private Sub cmdFind_Click()
On Error GoTo Err_Handler
Me.AllowEdits = False
DoCmd.RunCommand acCmdFind
Exit_Here:
On Error Resume Next
Me.AllowEdits = True
Exit Sub
Err_Handler:
MsgBox Err.Number & " : " & Err.Description, , dbTitle
Resume Exit_Here
End Sub
Can you tell me if the code is correct please?
Thank you for your help, regards
Marguerite