2016-08-16 149 views
0

我不断收到运行时错误91对象变量或未设置块变量。 我有rs和strQuery作为全局变量,这只是一个snipet代码而不是整个事情。有人可以帮我解决这个问题吗?VBA SQL语句运行时错误91

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 
+1

解决代码问题的第一步 - 确定它在哪一行上(我猜最后一次发布的行)。下一步是将这个错误悬停在所有的变量上,并找到'没有'的代码(在你的代码中它将是'rs'和'db',但问题在于'db' –

回答

0

db没有指向任何东西 - 您需要将它分配给某些东西。

E.g.

Set db = CurrentDb()