В режиме отладки(в редакторе VB6) прога работает нормально, но стоит только скомпилировать exe и запустить его, то программа начинает чудить. Т.е. при выполнении кода (см. ниже) программа просто вылетает без сообщений под Win XP или в Win ME выдает сообщение о том, что программа вызвала ошибку DAO360.dll и будет закрыта, т.е. мой обработчик ошибок даже не срабатывает.
Путем вставки MSGBOXов через каждую строку выяснил что вылетает прога при попытке присвоить значение параметру запроса.
- Код: Выделить всё
On Error GoTo ОбработкаОшибок
Dim qdf_tmp As QueryDef
Set qdf_tmp = db.QueryDefs("Del_Record")
qdf_tmp("Code_") = CurCodeSost '<-здесь вылетает
qdf_tmp.Execute
DoEvents
qdf_tmp.Close
Set qdf_tmp = Nothing
-
-
-
-
Exit Sub
ОбработкаОшибок:
If Err.Number <> 0 Then
MsgBox Err.Description & vbCrLf & "ClearRecord_1", vbCritical + vbOKOnly
Err.Clear
Resume Next
End If
Что могут посоветовать умные люди для решения этой проблемы? Какие нибудь мысли есть?
