Find button

[Ruth]

Hi,there
I want to use a command button in a form to find record
but I found it always display no findings no matter what I
input. The code looks like this:

Private Sub CmdFind_Click()
On Error GoTo Err_CmdFind_Click
Screen.PreviousControl.SetFocus
DoCmd.DoMenuItem acFormBar, acEditMenu, 10, ,
acMenuVer70
Exit_CmdFind_Click:
Exit Sub
Err_CmdFind_Click:
MsgBox Err.Description
Resume Exit_CmdFind_Click
End Sub

Any help would be appreciated.

 

[PC Datasheet]

Use the command button wizard to create the code for you.