| Вопрос: проблема с закрытием формы под Win 98 | Добавлено: 11.09.03 13:50 |
Автор вопроса:  Tolik
|
|
Есть такая процедура Private Sub grdContragents_DblClick() On Error Resume Next If Contr_Recip = 1 Then ContragentName = RsContragents.Fields("Name_Recipient").Value ContragentId = RsContragents.Fields("ID_Contragent").Value If Err.Number Then MsgBox "??????: " & Err.Number & vbCrLf & Err.Source & vbCrLf & Err.Description, vbExclamation, "??????"
End If RsContragents.Close Set RsContragents = Nothing If Err.Number Then MsgBox "??????: " & Err.Number & vbCrLf & Err.Source & vbCrLf & Err.Description, vbExclamation, "??????" Else Me.Hide Unload frmViewContragent End If End If If Contr_Recip = 2 Then RecipientName = RsContragents.Fields("Name_Recipient").Value RecipientId = RsContragents.Fields("ID_Contragent").Value RsContragents.Close Set RsContragents = Nothing If Err.Number Then MsgBox "??????: " & Err.Number & vbCrLf & Err.Source & vbCrLf & Err.Description, vbExclamation, "??????" Else Me.Hide Unload frmViewContragent End If End If End Sub Которая после даблклика по гриду, должна заполнить глобальные переменные и закрыть форму. Под windows 2000 workstation все работает, а под windows 98 на Unload frmViewContragent возникает критическая ошибка и закрывается все приложение. Если кто сталкивался, то помогите. |
| Ответы | Всего ответов: 0 |
Страница: