标题: 求助,查询按钮代码 [打印本页] 作者: qp370982 时间: 2009-5-28 23:45 标题: 求助,查询按钮代码 求助,查询按钮代码请各位老师帮忙写一下查询按钮代码
要求就是在主窗体上设置查询条件(可同时对多项条款进行条件设置),在子窗体上显示符合查询条件的记录作者: Henry D. Sy 时间: 2009-5-29 01:47
Private Sub 查询_Click()
Dim strCriteria As String
For Each ctl In Me.Controls
If TypeOf ctl Is TextBox Then
If Not IsNull(ctl) Then
strCriteria = strCriteria & ctl.Name & " like '*" & ctl & "*' AND "
End If
End If
Next
If strCriteria <> "" Then
strCriteria = Left(strCriteria, Len(strCriteria) - 5)
End If
Me.档案子窗体.Form.Filter = strCriteria
Me.档案子窗体.Form.FilterOn = True
End Sub作者: qp370982 时间: 2009-5-29 10:24 本帖最后由 qp370982 于 2009-5-29 10:28 编辑