Enter Parameter Value box

[dccjr3927]

When I open my frmSearch (either via command button or in the navigation panel) I keep getting an "Enter Parameter Value" box for OrderNo. I have looked through all of the code for the page, and cannot figure out where it needs this value from.

Option Explicit
Option Compare Database

Private Sub Form_Load()

Me.cbxSearchBy.RowSource = ""
Me.cbxSearchBy = ""
Me.cbxSearchFor.RowSource = ""
Me.cbxSearchFor = ""
Me.lstSearchResults.RowSource = ""
Me.lstSearchResults = ""
Me.lstSearchResults.Visible = False
    
    With Me.cbxSearchFor
        .AddItem "Work Order"
        .AddItem "Defect Event"
    End With
End Sub

Private Sub cbxSearchFor_AfterUpdate()

Dim strSQL As String
Me.cbxSearchBy.RowSource = ""
Me.cbxSearchBy = ""

    Select Case Me.cbxSearchFor.Value
        Case "Work Order"
            With Me.cbxSearchBy
                .AddItem "Order Number"
                .AddItem "UPC"
                .AddItem "Employee"
            End With
            Me.cmdEditRec.Visible = False
        Case "Defect Event"
            With Me.cbxSearchBy
                .AddItem "Customer Name"
                .AddItem "UPC"
                .AddItem "Order Number"
                .AddItem "Status"
                .AddItem "Defect Category"
            End With
            Me.cmdEditRec.Visible = True
    End Select
End Sub

Private Sub cbxSearchBy_Change()
Dim strSQL As String
strSQL = ""

'Creates SQL Query
    Select Case Me.cbxSearchFor.Value
        Case "Work Order"
            Select Case Me.cbxSearchBy.Value
                Case "Order Number"
                    strSQL = "SELECT OrderNo FROM WOTracking ORDER BY OrderNo;"
                Case "UPC"
                    strSQL = "SELECT DISTINCT UPC FROM WOTracking ORDER BY UPC;"
                Case "Employee"
                    strSQL = "SELECT DISTINCT Employee FROM WOTracking ORDER BY Employee;"
            End Select
        Case "Defect Event"
            Select Case Me.cbxSearchBy.Value
                Case "Customer Name"
                    strSQL = "SELECT CustomerName FROM DefectEvents ORDER BY CustomerName;"
                Case "UPC"
                    strSQL = "SELECT DISTINCT UPC FROM DefectEvents ORDER BY UPC;"
                Case "Order Number"
                    strSQL = "SELECT OrderNo FROM DefectEvents ORDER BY OrderNumber;"
                Case "Status"
                    strSQL = "SELECT DISTINCT Status FROM DefectEvents ORDER BY Status;"
                Case "Defect Category"
                    strSQL = "SELECT DISTINCT Category FROM DefectEvents ORDER BY Category;"
            End Select
    End Select
'Populates Listbox
    Me.lstSearchResults.Visible = True
    Me.lstSearchResults.RowSource = strSQL
    Me.lstSearchResults.Requery
    
End Sub

Private Sub cmdEditRec_Load()
Dim strEditSQL As String
strEditSQL = ""

DoCmd.OpenForm "frmDefectEdit", acNormal, "", "", acDialog, acNormal

Select Case Me
strEditSQL = "SELECT(UPC, Category, Employee, Marketplace, Defect, CustomerName, OrderNumber, Status, DefectNotes, CallNotes) FROM DefectEvents WHERE "

 
End Sub

Private Sub cmdViewRec_Click()
Dim strViewSQL As String
strViewSQL = ""

Select Case Me.cbxSearchFor.Value
    Case "Work Order"
        Select Case Me.cbxSearchBy.Value
            Case "Order Number"
                strViewSQL = "'SELECT(UPC, Category, Employee, Marketplace, Defect, CustomerName, OrderNumber, Status, DefectNotes, CallNotes) FROM WOTracking WHERE OrderNo =' & Me.lstSearchResult.Selected;"
            Case "UPC"
                strViewSQL = "SELECT(UPC, Category, Employee, Marketplace, Defect, CustomerName, OrderNumber, Status, DefectNotes, CallNotes) FROM WOTracking WHERE UPC =' & Me.lastSearchResults.Selected;"
            Case "Employee"
                strViewSQL = "SELECT(UPC, Category, Employee, Marketplace, Defect, CustomerName, OrderNumber, Status, DefectNotes, CallNotes) FROM WOTracking WHERE Employee = & Me.lastSearchResults.Selected;"
        End Select
    Case "Defect Event"
        Select Case Me.cbxSearchBy.Value
            Case "Customer Name"
                strViewSQL = "SELECT(UPC, Category, Employee, Marketplace, Defect, CustomerName, OrderNumber, Status, DefectNotes, CallNotes) FROM DefectEvents WHERE CustomerName =' & Me.lstSearchResults.Selected;"
            Case "UPC"
                strViewSQL = "SELECT(UPC, Category, Employee, Marketplace, Defect, CustomerName, OrderNumber, Status, DefectNotes, CallNotes) FROM DefectEvents WHERE UPC =' & Me.lstSearchResults.Select;"
            Case "Order Number"
                strViewSQL = "SELECT(UPC, Category, Employee, Marketplace, Defect, CustomerName, OrderNumber, Status, DefectNotes, CallNotes) FROM DefectEvents WHERE OrderNumber =' & Me.lstSearchResults.Selected;"
            Case "Status"
                strViewSQL = "SELECT(UPC, Category, Employee, Marketplace, Defect, CustomerName, OrderNumber, Status, DefectNotes, CallNotes) FROM DefectEvents WHERE Status =' & Me.lstSearchResults.Selected;"
            Case "Defect Category"
                strViewSQL = "SELECT(UPC, Category, Employee, Marketplace, Defect, CustomerName, OrderNumber, Status, DefectNotes, CallNotes) FROM DefectEvents WHERE Category =' & Me.lstSearchResults.Selected;"
        End Select
End Select

End Sub

Private Sub cmdHome2_Click()
    DoCmd.Close acForm, Me.Name
    DoCmd.OpenForm "frmHome", acNormal, "", "", , acNormal
End Sub

This is all the code behind the form. Any ideas?

[pbaldy]

It's in the SQL for a couple of the options. Look in the order by and filter on properties of the form, sometimes it hides there. Also check for a control source doesn't have that when the record source is the wrong table.

[dccjr3927]

And that is where it was hidden. It was in the Order By property. Thanks.

[pbaldy]

No problem. They get sneaky sometimes.