Here is the entire Sub. I know that some of the others need some changes. I am just working through the first one.
Code:
Private Sub cmdViewRec_Click()
Dim strViewSQL As String
strViewSQL = ""
Select Case Me.cbxSearchFor.Value
Case "Work Order" 'Work Order
Select Case Me.cbxSearchBy.Value
Case "Order Number" 'Order Number
Me.tbxItemNo.SetFocus
strViewSQL = "SELECT * FROM WOTracking WHERE OrderNo = '" & Me.tbxItemNo & "' ORDER BY SKU;"
Debug.Print strViewSQL
DoCmd.OpenReport "Work Order Report", acViewReport, , strViewSQL
Case 2 'SKU
strViewSQL = "SELECT * FROM WOTracking WHERE [SKU] ='" & Me.tbxItemNo & "'ORDER BY Date_Time;'"
DoCmd.OpenReport "WO Report", acViewReport, , strViewSQL
Case 3 'Employee
strViewSQL = "SELECT * FROM WOTracking WHERE [Employee] ='" & Me.cbxSearchBy & "'ORDER BY Date_Time;'"
DoCmd.OpenReport "WO Report", acViewReport, , strViewSQL
Case 4 'Date
strViewSQL = "SELECT * FROM WOTracking WHERE [Date_Time] ='" & Me.tbxDate & "'ORDER BY Date_Time;'"
DoCmd.OpenReport "WO Report", acViewReport, , strViewSQL
End Select
Debug.Print gstrViewSQL
Case 2 'Defect Event
Select Case Me.cbxSearchBy.Value
Case 1 'Customer Name
strViewSQL = "'Select * FROM WOTracking WHERE CustomerName = & Me.cbxSearchItem;"
Case 2 'SKU"
strViewSQL = "'Select * FROM WOTracking WHERE SKU = & Me.tbxItemNo & " '"ORDER BY Date_Time;"
DoCmd.OpenForm "frmDefViewEdit", , , strViewSQL
Case 3 'Order Number
strViewSQL = "'Select * FROM WOTracking WHERE OrderNo = & Me.tbxItemNo ORDER BY Date_Time;"
DoCmd.OpenForm "frmDefViewEdit", , , strViewSQL
Case 4 'Status
strViewSQL = "'Select * FROM WOTracking WHERE Status = & Me.cbxSearchItem ORDER BY Date_Time;"
DoCmd.OpenForm "frmDefViewEdit", , , strViewSQL
Case 5 'Defect Category
strViewSQL = "'Select * FROM WOTracking WHERE Category = & Me.cbxSearchItem ORDER BY Date_Time;"
DoCmd.OpenForm "frmDefViewEdit", , , strViewSQL
End Select
End Select
End Sub
I will try with just the Where clause, minus the Where.