I have a search button on mymain form, and Somewhere along the line the search has stopped working. Here is my code on the search button.
Sub form data is in the tblqcintakedetail table.
Main form data is in the tblqcintake table.
Sub form data is in the tblqcintakedetail table.
Main form data is in the tblqcintake table.
Code:
Private Sub Search_By_Line_Click()
Dim line As String
AttemptSave
line = InputBox("Enter Line Number . . . ", "Search Line")
If Len(line) > 0 Then
Me.RecordSource = "SELECT * FROM tblQCIntakedetail WHERE tblQCIntakedetail.cat_no='" & Trim(UCase(Nz(line, ""))) & "' ORDER BY Input_Date DESC;"
Forms!frmintake.Requery
End If
End Sub
