.openrecordsource "ошибка во время выполнения '91'" - PullRequest
2 голосов
/ 01 июня 2011

У меня проблема со следующими строками кода, я чувствую, что это что-то простое, но я не могу это понять.Я получаю переменную объекта «Ошибка 91» во время выполнения или с переменной блока не установлена ​​ошибка.Ошибка происходит в строке rsc.OpenRecordSet....BadgeV - это число, у меня установлена ​​ссылка на DAO. Оно извлекается из таблицы связанного сервера sql, где у меня есть первичный ключ и идентификатор.Чего мне не хватает?

Function FNC_Scan()
    Dim db As DAO.Database
    Dim rsc As DAO.Recordset

    Set db = CurrentDb()
    rsc.OpenRecordset ("SELECT dbo_ScanData.CardID, dbo_ScanData.Complete FROM dbo_ScanData WHERE (((dbo_ScanData.CardID)= Forms![Scan]!BadgeV))) AND ((dbo_ScanData.Complete)=0));")

    If rsc.EOF Then
        MsgBox "new item"
    Else
        MsgBox "Append Item"
    End If

    Set rsc = Nothing
    Set db = Nothing
End Function

1 Ответ

3 голосов
/ 01 июня 2011

Должно быть

set rsc = db.OpenRecordset(...)

вместо

rsc.OpenRecordset(...)
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...