Find

[James]

I got an error message "You can't use find or replace now" and now the find
box will not open when the form opens. The error message was because there
was not any records yet. Then I added a record through the table and now
there is no error message but the find form will not show. Unless you go to
the find toolbar button.


Private Sub Form_Open(Cancel As Integer)
On Error GoTo Err_Form_Open

DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70

Exit_Form_Open:
Exit Sub

Err_Form_Open:
MsgBox Err.Description
Resume Exit_Form_Open

End Sub