制作的效果图如下：

代码如下：

Option Compare Database

Private Sub cmd查询_Click()
        Dim strSQL As String
        strSQL = "select * from qrycpjl where 1=1"
        If IsNull(Me.scpthID) = False Then
            strSQL = strSQL & " and 产品图号 = '" & Me.scpthID.Column(1) & "'"
        End If
        If IsNull(Me.scpdhID) = False Then
            strSQL = strSQL & " and 产品代号 = '" & Me.scpdhID.Column(1) & "'"
        End If
        Forms!usysfrmMain!frmChild.Form.RecordSource = strSQL
        Forms!usysfrmMain!frmChild.Form.Refresh
        Me.Refresh
End Sub

Private Sub cmd清除_Click()
Me.scpthID = Null
Me.scpdhID = Null
End Sub