Что за ошибка "Object variable or With blok variable not set 91"?

При запуске запроса выскакивало "Слишком мало параметров", а теперь вот эта хрень Object variable or With blok variable not set 91? Что это и что делать?

lumerjack

а теперь вот эта хрень Object variable or With blok variable not set 91?

Ошибка 91.

lumerjack

Что это и что делать?

Для начала код показать.

Private Sub Êíîïêà35_Click()
Dim a As Integer
Dim db As Database
Dim qd As QueryDef
Dim rs As Recordset

Set qd = db.CreateQueryDef("123")
qd.SQL = "SELECT …… FROM …….
WHERE (((Предприятие.Код)=[Forms]![Договор]![Код_предприятия]))"
Set rs = qd.OpenRecordset()

End Sub

Вероятно

Dim rs as DAO..Recordset



--
Regards
Alexander Artamonov


"lumerjack" <nospam@sql.ru> сообщил/сообщила в новостях следующее:
news:1913080@sql.ru...
Private Sub Eiiiea35_Click()
Dim a As Integer
Dim db As Database
Dim qd As QueryDef
Dim rs As Recordset

Set qd = db.CreateQueryDef("123")
qd.SQL = "SELECT :: FROM ::.
WHERE (((Предприятие.Код)=[Forms]![Договор]![Код_предприятия]))"
Set rs = qd.OpenRecordset()

End Sub
Тема Ответить

Posted via ActualForum NNTP Server 1.3

См 'Select в событии' ниже

DAO не канает... Та же ошибка

Private Sub Êíîïêà35_Click() Dim a As Integer Dim db As Database Dim qd As QueryDef Dim rs As Recordset 'Может так set db=currentdb Set qd = db.CreateQueryDef("123") qd.SQL = "SELECT …… FROM ……. WHERE (((Предприятие.Код)=[Forms]![Договор]![Код_предприятия]))" Set rs = qd.OpenRecordset() End Sub

ANTIVIR прав. У тебя не хватает.

Set db = CurrentDb()

Запрос сработал! Спасибо! Как теперь просмотреть результаты запроса и вывести их в отчет?

Все рабртает! Всем спасибо!