S
scoop
Hi I'm a bit stuck with this find/replace option in
Access 2000. I am currently trying to give users just
access to the find facitilty using a command button
CmdFind. When converted to 2000 from db97 the users now
have access to the Replace function. I am trying to use
me.allow edits which works Ok on the first find field in
that it disables the replace facility however when I move
the focus to another field and find neext, the Replace
tab facility returns. THe User needs to search on at
least two or three other fields on the same form so using
me.controlname.focus does not seem to be an option. Can
anyone enlighten me to how we can overcome this issue or
suggest a better solution. I know I don't fully
understand it. Forever grateful. scoop
Private Sub CmdFindClick()
On Error GoTo Err_CmdFind_Click
Me.AllowEdits = False
Screen.PreviousControl.SetFocus
DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , _
acMenuVer70
Me.AllowEdits = True
Exit Sub
Err_Command40_Click:
MsgBox Err.Description & " " & Err.Number
End Sub
Access 2000. I am currently trying to give users just
access to the find facitilty using a command button
CmdFind. When converted to 2000 from db97 the users now
have access to the Replace function. I am trying to use
me.allow edits which works Ok on the first find field in
that it disables the replace facility however when I move
the focus to another field and find neext, the Replace
tab facility returns. THe User needs to search on at
least two or three other fields on the same form so using
me.controlname.focus does not seem to be an option. Can
anyone enlighten me to how we can overcome this issue or
suggest a better solution. I know I don't fully
understand it. Forever grateful. scoop
Private Sub CmdFindClick()
On Error GoTo Err_CmdFind_Click
Me.AllowEdits = False
Screen.PreviousControl.SetFocus
DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , _
acMenuVer70
Me.AllowEdits = True
Exit Sub
Err_Command40_Click:
MsgBox Err.Description & " " & Err.Number
End Sub