access vba之子窗体数据筛选

最新推荐文章于 2025-10-14 10:56:21 发布

原创

最新推荐文章于 2025-10-14 10:56:21 发布 · 3.5k 阅读

2 ·

CC 4.0 BY-SA版权

本文介绍了如何在Access VBA中进行子窗体的数据筛选，通过querycon生成查询条件并应用到FilterOn和Filter属性，实现多参数查询功能。通过这种方式，可以灵活控制窗体中的数据显示，提升数据操作的便捷性。

Private Sub query_btn_Click()
  querycondition = querycon()
  queryresult.Form.FilterOn = False
  queryresult.Requery
  If Trim(querycondition) <> "" Then
    queryresult.Form.Filter = querycondition
    queryresult.Form.FilterOn = True
  End If
End Sub

其中querycon用于生成查询（筛选）条件，并返回

queryresult.Form.FilterOn表示筛选器的开关

queryresult.Form.Filter表示筛选器的条件

querycon的大致语句如下：

 strcondition = ""
  If Trim(序号) <> "" Then
     If Trim(strcondition) <> "" Then
        strcondition = strcondition & " and "
     End If
     strcondition = strcondition & "序号=" & 序号
  End If
  If Trim(名称) <> "" Then
     If Trim(strcondition) <> "" Then
        strcondition = strcondition & " and "
     End If
     strcondition = strcondition & "名称 like '*" & 名称 & "*'"
  End If
  If Trim(代码) <> "" Then
     If Trim(strcondi