[access查询]快速查询窗体制作

时　间:2009-03-21 16:56:53
作　者:叶杨山   ID：251  城市：广州
摘　要:有关UMV平台下的查询的窗体制作非常多。我这个只是一个皮毛 但很实用很好用很够用 希望对大家有帮助
正　文:

制作的效果图如下：

代码如下：

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