Can someone please tell me why i always get a Compile Error when i try to enter seaarch criteria in my search textbox. It was working perfectly, then all of a sudden, it gives me this error each time. Also when i press the Refresh button. Both the search textbox and the button refer to a listbox that contains all of my records. The Compiler error is "Method or Data member not found".
Here is the code that is highlted by the debugger (In red):
Private Sub ClearIt_Click()
On Error GoTo Err_ClearIt
Me.Search = ""
Me.Search2 = ""
Me.QuickSearch.Requery
Me.QuickSearch.SetFocus
Exit_ClearIt_Click:
Exit Sub
Err_ClearIt:
MsgBox Err.Description
Resume Exit_ClearIt_Click
End Sub
Private Sub Search_Change()
Dim vSearchString As String
vSearchString = Search.Text
Me.Search2.Value = vSearchString
Me.QuickSearch.Requery
End Sub
Private Sub cmdSave_Click()
On Error GoTo Err_cmdSave_Click
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, 5, acMenuVer70
'The following refreshes the listbox
Me.Search = ""
Me.Search2 = ""
Me.QuickSearch.Requery
Me.QuickSearch.SetFocus
Exit_cmdSave_Click:
Exit Sub
Err_cmdSave_Click:
MsgBox Err.Description
Resume Exit_cmdSave_Click
End Sub
Here is the code that is highlted by the debugger (In red):
Private Sub ClearIt_Click()
On Error GoTo Err_ClearIt
Me.Search = ""
Me.Search2 = ""
Me.QuickSearch.Requery
Me.QuickSearch.SetFocus
Exit_ClearIt_Click:
Exit Sub
Err_ClearIt:
MsgBox Err.Description
Resume Exit_ClearIt_Click
End Sub
Private Sub Search_Change()
Dim vSearchString As String
vSearchString = Search.Text
Me.Search2.Value = vSearchString
Me.QuickSearch.Requery
End Sub
Private Sub cmdSave_Click()
On Error GoTo Err_cmdSave_Click
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, 5, acMenuVer70
'The following refreshes the listbox
Me.Search = ""
Me.Search2 = ""
Me.QuickSearch.Requery
Me.QuickSearch.SetFocus
Exit_cmdSave_Click:
Exit Sub
Err_cmdSave_Click:
MsgBox Err.Description
Resume Exit_cmdSave_Click
End Sub