0 голосов
спросил от в категории Access
Посмотрите здесь:
'this should be declared on the beggining of module Option Explicit 'your soubroutine Sub CheckMyObject Dim objProd as ProductoTemporal On Error Goto Err_CheckMyObject Set objProd = New ProductTemporal MsgBox "Object 'ProductTemporal' has been successfully created!", vbOkOnly, "Success!" Exit_CheckMyObject:     On Error Resume Next     Set objProd = Nothing     Exit Sub Err_CheckMyObject:     MsgBox Err.Description, vbExclamation, Err.Number     Resume Exit_CheckMyObject Exit Sub
# [#^ #]
Там вы найдете наиболее распространенные причины вышеуказанной ошибки.


[РЕДАКТИРОВАТЬ]
Прежде чем начать что-либо менять, пожалуйста, прочтите следующее:
#How to check and remove incorrect project references in the Visual Basic Editor in Word # [#^ #] - не важно, что эта тема относится к MS Word, редактор VBA - тот же самый #Check or Add an Object Library Reference # [#^ #]


Попробуйте изменить свой код в форме ниже, чтобы узнать, что произошло.
'this should be declared on the beggining of module Option Explicit 'your soubroutine Sub CheckMyObject Dim objProd as ProductoTemporal On Error Goto Err_CheckMyObject Set objProd = New ProductTemporal MsgBox "Object 'ProductTemporal' has been successfully created!", vbOkOnly, "Success!" Exit_CheckMyObject:     On Error Resume Next     Set objProd = Nothing     Exit Sub Err_CheckMyObject:     MsgBox Err.Description, vbExclamation, Err.Number     Resume Exit_CheckMyObject Exit Sub

Пожалуйста, войдите или зарегистрируйтесь чтобы ответить на этот вопрос.

Категории

Добро пожаловать на сайт DraftingCode Q&A, где вы можете задавать вопросы и получать ответы от других членов сообщества.

Похожие вопросы

0 голосов
0 ответов
спросил 10 Сен, 18 от richard maccutchan в категории Access
0 голосов
0 ответов
спросил 26 Апр, 10 от eddy vluggen в категории Access
0 голосов
0 ответов
спросил 01 Янв, 70 от MacFirst (120 баллов) в категории Access
0 голосов
0 ответов
0 голосов
0 ответов
спросил 02 Янв, 18 от dave kreskowiak в категории Access
...