|
RunSQL只针对操作查询。应该新建一个查询,然后通过指定SQL来修改:- Function GetSQL()
- Dim Swhr As String, ssql As String
- Swhr = "True"
- '条件1
- If Not IsNull(Me.Emp_ID) Then
- Swhr = Swhr & " And Emp_ID like '*" & Me.Emp_ID & "*'"
- End If
- '条件2
- '可增加条件3、条件4……条件N。
- If Not IsNull(Me.C_Name) Then
- Swhr = Swhr & " And C_Name like '*" & Me.C_Name & "*'"
- End If
- '日期条件
- ssql = Swhr & " And ResignDate Between #" & Me.SDate & "# And #" & Me.EDate & "#"
- '获取SQL语句。
- GetSQL = "select * from Tbl_Employ_Resign Where " & Right(ssql, Len(ssql) - 9)
- End Function
- '****************************************************************************************************
- '更新查询的SQL语句,并更新子窗体的源对象。
- '在按钮单击事件或者窗体加载事件上直接调用即可。
- '如:
- 'Private Sub CmdQuery_Click()
- 'OpenQry
- 'End Sub
- '*****************************************************************************************************
- Sub OpenQry()
- '子窗体查询为已建立的查询。
- CurrentDb.QueryDefs("子窗体查询").SQL = GetSQL()
- Me.子窗体.SourceObject = "子窗体查询"
- End Sub
复制代码 |
|