office交流網--QQ交流群號

Access培訓群:792054000         Excel免費交流群群:686050929          Outlook交流群:221378704    

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

VBA代碼打開查詢併設置篩選過濾條件

2020-02-29 08:00:00
zstmtony
原創
3115
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:
分享