VBA SQL語句運行時錯誤91

Question

我不斷收到運行時錯誤91對象變量或未設置塊變量的錯誤。 我有rs和strQuery作為全局變量，這只是代碼的一部分，而不是全部。 有人可以幫我解決此問題嗎？

Dim strQuery
Global db As DAO.Database
Global rs As DAO.Recordset 
strQuery = "SELECT courses.[CourseCode] as CODE, " & _
           "courses.[CourseName] as NAME " & _
           "FROM courses;"
Set rs = db.OpenRecordset(strQuery) 'error here 

Answer 1

db沒有指向任何東西-您需要將其分配給某個東西。

例如

Set db = CurrentDb()