Open another form based on fields main form applying Multiple Where Condition!

[aytee111]

At the end of the SetListRS routine, add this line: Debug.Print Me!InspList.Rowsource. Then see what is displayed, it may be a date format issue.

[cap.zadi]

See this my screen of same database but this date did not work?

[aytee111]

Private Sub TxtPDate_AfterUpdate()

    Debug.Print Me!TxtPDate
    
    Call SetListRS
    
End Sub

The value will be displayed in the Immediate window below the code. If it isn't displayed clicked on View>Immediate Window.

This line will also work:

            ListRS = ListRS & " WHERE TblQualityInspection.FGID = " & Me!TxtProduct & " AND Format(PDate,'yyyymmdd') = '" & Format(Me!TxtPDate, "yyyymmdd") & "'"