如何用vba在Access窗体中筛选子窗体的内容?

 

Access窗体中可以插入子窗体。

 

如果要在Access窗体中筛选子窗体的内容,其实很简单,只需要设置子窗体的Filter属性和FilterOn属性即可。

 

代码如下:

 

If Len(Me.TxtStart) And Len(Me.TxtEnd) Then
dStart = VBA.CDate(Me.TxtStart)
dEnd = VBA.CDate(Me.TxtEnd)
Me.查询结果.Form.FilterOn = True
Me.查询结果.Form.Filter = “合同结束日期 BETWEEN #” & dStart & “# AND #” & dEnd & “#”
End If

 

其中【查询结果】就是子窗体的名称,Filter属性的值就是SQL语句中Where语句的内容。

 

上述代码读取两个文本框输入的开始日期和结束日期,然后筛选子窗体的某个字段的日期位于这两个日期之间的数据。

 

       

发表评论