office交流网--QQ交流群号

Access培训群:792054000         Excel免费交流群群:686050929          Outlook交流群:221378704    

Word交流群:218156588             PPT交流群:324131555

VBA代码打开查询并设置筛选过滤条件

2020-02-29 08:00:00
zstmtony
原创
3475
On Error GoTo Err_Handler
Application.Echo False
DoCmd.OpenQuery "申请人姓名新"  '打开查询
DoCmd.SetFilter WhereCondition:="[SQRXM] ='" & Nz(Me.SGDBH) & "'"  '设置过滤条件 ,注意 SQRXM 是过滤字段名 ,SGDBH是窗体上的条件控件名
DoCmd.Close acForm, Me.Name '最后再关闭本窗体
Application.Echo True
GoTo Exit_Handler:
Err_Handler:
Application.Echo True
MsgBox "查询错误,请重新输入!", vbInformation, "提示信息"
Exit_Handler:
分享