Trying to get this code to search by user input from a form. After input is entered (ex:MP-1) it asks for parameters again and then doesn't read the -1 only the MP. Any suggestions?
Private Sub Search_Click()
Dim strSQL As String
Dim dbo As DAO.Database
Dim qdo As DAO.QueryDef
On Error GoTo Err_Search_Click
strSQL = "SELECT readings.* FROM readings WHERE"
If Not (tbHoleID = "") Then
strSQL = strSQL & " id = " & tbHoleID "
End If
Set dbo = CurrentDb()
Set qdo = dbo.QueryDefs("qrySearch")
qdo.SQL = strSQL
qdo.Close
Set qdo = Nothing
Set dbo = Nothing
DoCmd.OpenQuery "qrySearch"
Exit_Search_Click:
Exit Sub
Err_Search_Click:
MsgBox Err.Description
Resume Exit_Search_Click
End Sub
Private Sub tbDateTo_Click()
End Sub
Private Sub tbHoleID_BeforeUpdate(Cancel As Integer)
End Sub
