office交流網(wǎng)--QQ交流群號(hào)及微信交流群

Access培訓(xùn)群:792054000         Excel免費(fèi)交流群群:686050929          Outlook交流群:221378704    

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

微信交流群(請(qǐng)用微信掃碼)

        

VBA代碼打開(kāi)查詢併設(shè)置篩選過(guò)濾條件

2020-02-29 08:00:00
zstmtony
原創(chuàng)
3817
On Error GoTo Err_Handler
Application.Echo False
DoCmd.OpenQuery "申請(qǐng)人姓名新"  '打開(kāi)查詢
DoCmd.SetFilter WhereCondition:="[SQRXM] ='" & Nz(Me.SGDBH) & "'"  '設(shè)置過(guò)濾條件 ,註意 SQRXM 是過(guò)濾字段名 ,SGDBH是窗體上的條件控件名
DoCmd.Close acForm, Me.Name '最後再關(guān)閉本窗體
Application.Echo True
GoTo Exit_Handler:
Err_Handler:
Application.Echo True
MsgBox "查詢錯(cuò)誤,請(qǐng)重新輸入!", vbInformation, "提示信息"
Exit_Handler:
分享
文章分類
聯(lián)繫我們
聯(lián)繫人: 王先生
Email: 18449932@qq.com
QQ: 18449932
微博: officecn01
移動(dòng)訪問(wèn)