runtime error '5' при закрытии модального окна

[Igor_123]

Ну сколько можно повторять, без кода ничего не понятно!
У меня нормально все работает, без каких либо ошибок.
Сделано как сказали выше.

[clou]

перечисляю кусками где и как я вызываю модальные окна, где dll- они все подключены и работают


Set PatEnq = New tkMTPatEnq.clsPatientEnquiry
PatEnq.PatientName = TxtF.Text
PatEnq.PatientName2 = TxtI.Text
PatEnq.PatientName3 = TxtO.Text
PatEnq.ExecuteSearch = True
PatEnq.SHOW_FORM vbModal
PatRowId = PatEnq.rowid

на менюшку подвешиваются др. dll

Private Sub StartMenu(Num)
mControl.execute "K ^TEMPR($J) M ^TEMPR($J)=^TEMP($J)"
If Num = 1 Then
Set frmPrintMark.mControl = mControl
frmPrintMark.Show vbModal
If (Label = "") Or (Kol = "") Or (Kol = "0") Then
Exit Sub
End If
End If
'MsgBox "!!!" & Menu(Num)
frmShowParams.MousePointer = 11
Set SpARM002 = New tkSPARM002.Print
Set SpARM002.PrintHook_mcontrol = mControl
SpARM002.PrintHook_sCode = Menu(Num)
SpARM002.PrintHook_P1 = gUserRowid
SpARM002.PrintHook_P2 = gLocationRowid
If Num = 1 Then
SpARM002.PrintHook_P3 = Label
SpARM002.PrintHook_P4 = Kol
End If
SpARM002.PrintHook_Show vbModal
Set SpARM002 = Nothing
frmShowParams.MousePointer = 4
mControl.execute "K ^TEMP($J) M ^TEMP($J)=^TEMPR($J) K ^TEMPR($J)"
End Sub

FrmInPut.Show vbModal
выход сделан был как описано выше просто по unload (не работало)



Private Sub SetUp_Click()
FrmSetUp.Show vbModal
ChOtd.value = aOtd
ChPlat.value = aPlat
ChPlan.value = aPlan
ChKat.value = aKat
End Sub

выход

Private Sub cmdOK_Click()
PutSetUp
'frmShowParams.ChOrd = CheckOrd.value
frmShowParams.aOtd = CheckOtd.value
frmShowParams.aPlat = CheckIns.value
frmShowParams.aPlan = CheckPlan.value
frmShowParams.aKat = CheckKat.value
Unload Me
End Sub


Private Sub MyHelp_Click()
.... различные проверки

FormExplorer.WebBrowser.Navigate File(1)
FormExplorer.Caption = Gr & " " & Form
FormExplorer.Show vbModal
end sub

в этой форме выход просто по крестику, там браузер ие


всего в references около 8 новых подключенных dll

[Igor_123]

Код: Выделить всё

Set PatEnq = New tkMTPatEnq.clsPatientEnquiry
...
PatEnq.SHOW_FORM vbModal
PatRowId = PatEnq.rowid

После этого, если есть
PatEnq.UnloadForm
PatEnq.Close(Quit, UnloadMe)
и
Set PatEnq = Nothing

и такое расставляешь после каждого vbModal

[clou]

да после этого есть это.
я щас из формы убираю все формы которые вызываю модально из за того что обьяснение ошибке не найдено, чтобы в последствии это опять не заглючило на ровном месте.
всем спасибо за ответы и советы