打开窗体时，就会弹出这个界面，然后填写条件，可以“填加条件”和“删除条件”。点确定就会查询出想要的结果。
这个怎么做，有人会吗？作者: beenet 时间: 2010-4-14 15:10
思路：
动态组成查询条件，SQL语句字符串相加而成。
dim StrSQL as string
StrSQL="select... " & "条件1" & "条件2” & "from..."
docmd.runsql strsql作者: michael100 时间: 2010-4-14 15:53
我是这样搞了,不知道合不合你用:
strWhereForm = "" '设定初始值－空字符串
'判断【客户】条件是否有输入的值
If Not IsNull(Me.客户简称) Then
'有输入
strWhereForm = strWhereForm & "( 客户简称 = '" & Me.客户简称 & "') AND "
End If
'判断【客户款号】条件是否有输入的值
If Not IsNull(Me.客户款号) Then
'有输入
strWhereForm = strWhereForm & "( 客户款号 = '" & Me.客户款号 & "') AND "
End If
'判断【款号】条件是否有输入的值
If Not IsNull(Me.公司款号) Then
'有输入
strWhereForm = strWhereForm & "( 公司款号 = '" & Me.公司款号 & "') AND "
End If
'判断【订单号码】条件是否有输入的值
If Not IsNull(Me.订单号码) Then
'有输入
strWhereForm = strWhereForm & "( 单据号码 = '" & Me.订单号码 & "') AND "
End If
'判断【制单号码】条件是否有输入的值
If Not IsNull(Me.制单号码) Then
'有输入
strWhereForm = strWhereForm & "( 辅助单据 = '" & Me.制单号码 & "') AND "
End If
'判断【码数】条件是否有输入的值
' If Not IsNull(Me.码数) Then
'有输入
' strWhereForm = strWhereForm & "( 码数 = " & Me.码数 & ") AND "
' End If
'判断【起始日期】条件是否有输入的值
If Not IsNull(Me.[起始日期]) Then
'有输入
strWhereForm = strWhereForm & "( 日期 >= #" & Me.起始日期 & "# ) AND "
End If
'判断【结束日期】条件是否有输入的值
If Not IsNull(Me.[结束日期]) Then
'有输入
strWhereForm = strWhereForm & "( 日期 <= #" & Me.结束日期 & "# ) AND "
End If
If Len(strWhereForm) > 0 Then
'有输入条件
strWhereForm = Left(strWhereForm, Len(strWhereForm) - 5)
End If
Me.窗体1.Form.Filter = strWhereForm
Me.窗体1.Form.FilterOn = True作者: cangqiong 时间: 2010-4-14 16:04
3楼的兄弟，我也是这样用的。但这个实现不了我的功能。