| Вопрос: Проблемы при запуске процедуры через Run | Добавлено: 24.01.07 11:01 |
Автор вопроса:  Adollo Aliev
|
|
Добрый день!
У меня такая проблема: есть приложение Access, в нем есть процедура Proc и процедура Test. Если я вызываю из процедуры Test процедуру Proc непосредственно, с помощью CALL Proc, она запускается, если же я вызываю процедуру Proc косвенно, через RUN, то при попытке выполнить строку CALL app.RUN... появляется окно с ошибкой: "Run-time error '440': Object is invalid or not set." Никто не знает, в чем может быть дело? Sub Test() Dim app Set app = CreateObject("Access.Application") app.OpenCurrentDatabase ("С:\Perco.mdb") Dim q 'As QueryDef Set q = app.CurrentDb.QueryDefs("q17") q.Parameters(0).Value = "Hello" Set r = q.OpenRecordset If r.RecordCount = 0 Then MsgBox "Not found" Else Call app.Run("PercoPrj.Proc", r.Fields(0).Value, "Nazv", "Tip", #1/1/2001#, #1/1/2001#, #1/1/2001#) Call Proc(r.Fields(0).Value, "Nazv", "Tip", #1/1/2001#, #1/1/2001#, #1/1/2001#) End If Set app = Null End Sub |
| Ответы | Всего ответов: 0 |
Страница: