Excel宏運行Access查詢;顯示受影響的行

我有這個宏在Excel中。它在MS Access中運行查詢。Excel宏運行Access查詢;顯示受影響的行

Sub CSAT() 
Dim A As Object 
Application.DisplayAlerts = False 
Set A = CreateObject("Access.Application") 
A.Visible = False 
A.OpenCurrentDatabase ("D:\AUTODashboard\auto_dash.accdb") 
A.DoCmd.OpenQuery "Query_CSAT" 
Application.DisplayAlerts = True 
End Sub

他們的方式顯示（在Excel中）運行查詢時受影響的行數？

來源

2015-05-17 ChiHam

取而代之的是：

A.DoCmd.OpenQuery "Query_CSAT"

使用此：

With A.CurrentDB.QueryDefs("Query_CSAT") 
    .Execute 
    MsgBox .RecordsAffected 
End With

來源

2015-05-18 07:52:37 Rory

我第一次呈現在我家的電腦上運行良好運行MS Office 2010的當我的工作電腦上運行的宏宏運行MS Office 2007我在**運行時錯誤2501 **中出現錯誤，它是以下行** A.DoCmd.OpenQuery「Query_CSAT」**爲什麼是這樣？ – ChiHam

不用擔心，謝謝你的代碼工作，** With A.CurrentDB.QueryDefs（「Query_CSAT」） .Execute MsgBox .RecordsAffected End With **如何在.RecordsAffected之前放置消息？ – ChiHam

'Msgbox「受影響的記錄數：例如」＆.RecordsAffected'。 – Rory

Excel宏運行Access查詢;顯示受影響的行

回答

相關問題