欢迎来到Doc100.Net免费学习资源知识分享平台!
您的位置:首页 > 程序异常 >

access vba之子窗体数据淘选

更新时间: 2014-01-05 02:25:13 责任编辑: Author_N1

 

access vba之子窗体数据筛选
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(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(strcondition) <> "" Then
        strcondition = strcondition & " and "
     End If
     strcondition = strcondition & "姓名 like  '*" & 姓名 & "*'"
  End If
   If Trim(地址) <> "" Then
     If Trim(strcondition) <> "" Then
        strcondition = strcondition & " and "
     End If
     strcondition = strcondition & "地址 like '*" & 地址 & "*'"
  End If
  querycon = strcondition

 

 

 

根据以上代码 可制作以下窗体,实现access的多参数查询



 

 

 

上一篇:上一篇
下一篇:下一篇

 

随机推荐程序问答结果

 

 

如对文章有任何疑问请提交到问题反馈,或者您对内容不满意,请您反馈给我们DOC100.NET论坛发贴求解。
DOC100.NET资源网,机器学习分类整理更新日期::2014-01-05 02:25:13
如需转载,请注明文章出处和来源网址:http://www.doc100.net/bugs/t/9565/
本文WWW.DOC100.NET DOC100.NET版权所有。