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

lumerjack
Дата: 27.09.2005 08:04:58
При запуске запроса выскакивало "Слишком мало параметров", а теперь вот эта хрень Object variable or With blok variable not set 91? Что это и что делать?
Пользователь2
Дата: 27.09.2005 08:44:11
lumerjack
а теперь вот эта хрень Object variable or With blok variable not set 91?

Ошибка 91.

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

Для начала код показать.
lumerjack
Дата: 27.09.2005 11:52:29
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
Iskander68
Дата: 27.09.2005 12:01:38

Вероятно

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

NNB
Дата: 27.09.2005 12:02:06
См 'Select в событии' ниже
lumerjack
Дата: 27.09.2005 12:22:05
DAO не канает... Та же ошибка
ANTIVIR
Дата: 27.09.2005 12:27:58
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
Пользователь2
Дата: 27.09.2005 12:36:18
ANTIVIR прав. У тебя не хватает.

Set db = CurrentDb()
lumerjack
Дата: 27.09.2005 13:00:36
Запрос сработал! Спасибо! Как теперь просмотреть результаты запроса и вывести их в отчет?
lumerjack
Дата: 27.09.2005 13:26:04
Все рабртает! Всем спасибо!