Find button not working on Subform

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Please, I put a find command button on my form, but it
wont find anything in the subform i have! It wont bring
up records that I know exist
..

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
 
I'm not an expert, so this is only a shot. It sounds like the same proble, that I am having with a recordset build from a table that does not support index so Find and Seek do not work

Dim bAns As Boolea
bAns = rst.Supports(adIndex

returns False
 
Back
Top