关于主窗体控件筛选子窗体记录的问题

jackysu78

如附件：请高手指导直接通过主窗体的控件来筛选子窗体记录的查询如何实现？
盼复，谢谢！

jackysu78

注：不想通过设置查询条件来实现，是否代码就可以实现。谢谢！

红尘如烟

1. Private Sub btnquery_Click()
   
2.     Dim strWhere As String
   
3. 
   
4.     If IsNull(Me.SQLField) Or IsNull(Me.SQLValue) Then
   
5.         strWhere = "true "
   
6.     Else
   
7.         strWhere = Me.SQLField & " like '*" & Nz(Me.SQLValue) & "'"
   
8.     End If
   
9.     Me.formsql.Form.Filter = strWhere
   
10.     Me.formsql.Form.FilterOn = True
    
11. End Sub
    

复制代码

jackysu78

确实如此，太谢谢你了，这么快得到你的指导。

jackysu78

不好意思，刚刚又想想，如果是一个时间段查询应该如何处理？请大师指点！

红尘如烟

Private Sub btnquery_Click()
    Dim strWhere As String

    If IsNull(Me.SQLField) Or IsNull(Me.SQLValue) Then
        strWhere = "true "
    Else
        strWhere = Me.SQLField & "Between #" & Me.txtStartDate & "# And #" & Me.txtEndDate & "#"
    End If
    Me.formsql.Form.Filter = strWhere
    Me.formsql.Form.FilterOn = True
End Sub

jackysu78

真是太好了。首先还是要表示感谢！

我现在的意思是包括上面的两种情况同时存在，呵呵。

对不起，没说清楚。（现在日期期间有个复选框控制）

红尘如烟

jackysu78

谢谢！
第一个if then语句中的"or chkusedate"要去掉。

jackysu78

问题已解决！感谢红尘如烟。