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语句的内容。
上述代码读取两个文本框输入的开始日期和结束日期,然后筛选子窗体的某个字段的日期位于这两个日期之间的数据。
发表评论