Как правильно закрыть форму

[Osteon]

Здравствуйте.

Подскажите, как правильно выгрузить форму, чтобы VB6 не матерился?

Имеем первичную MDI-форму.

Из меню вызываю форму печати приходно-кассового ордера (frmPKO).

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

Private Sub mnuPKOrderItem_Click() 'заполнение и печать приходного кассового ордера
    frmPKO.Show vbModal
End Sub


Так же из меню (пока) вызываю форму печати справки в ИФНС.

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

Private Sub mnuIFNSItem_Click()'заполнение и печать справки в ИФНС
    frmIFNS.Show vbModal
End Sub


По отдельности все работает.

Для удобства хочу по окончании печати ПКО из этой же формы вызвать печать справки в ИФНС.

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

If MsgBox("Печатаем справку в ИФНС?", vbYesNo + vbQuestion, "Печать справки") = vbYes Then
   frmIFNS.Show vbModal
End If

И здесь начинается мозгоклюйство:

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

Dim rsIFNS As ADODB.Recordset
'заполняем поле "Сумма платежа"
Set rsIFNS = New ADODB.Recordset
    sSQL = "SELECT * FROM PKO WHERE nKart = '" & numKart & "'"
        rsIFNS.Open sSQL, cnDB, adOpenStatic, adLockReadOnly
        If rsIFNS.recordCount = 0 Then 'необходимо сначала выписать ПКО
           MsgBox "Для " & txtFIOnp.Text & vbNewLine & "не выписан кассовый ордер!", vbCritical, "Не выписан ПКО"
          'варианты************   
           cmdExit_Click
          'Set rsIFNS = Nothing
          'Unload Me
          'Exit Sub
          'варианты************
        End If
rsIFNS.Close

Private Sub cmdExit_Click()
    Set rsIFNS = Nothing:    Unload Me
End Sub

Если я выхожу через cmdExit_Click(), или нахально из процедуры выгружаю форму, то выдается ошибка 364 - объект уже выгружен.
'вариант 1:

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

           cmdExit_Click
           'Set rsIFNS = Nothing
           'Unload Me

'вариант 2:

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

           'cmdExit_Click
           Set rsIFNS = Nothing
           Unload Me

Если выхожу через (вариант 3)

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

          'cmdExit_Click
          'Set rsIFNS = Nothing
          'Unload Me
          Exit Sub

то остаются выведенные формы, и каждую нужно закрывать отдельно. Теряется смысл "удобства".

Вот как-то так. Можно, конечно, тупо через меню вызывать каждую форму, и отдельно каждую закрывать. Но - ПКО и справка взаимосвязаны, хотелось бы и для юзера их логически связать.
Подскажет кто что? Отдельно просьба к Хакеру - пожалйста, не отправляй меня в Поиск. Я там уже был.

[alibek]

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

Dim frm as frmPKO
Set frm = New frmPKO
Load frm
frm.Prepare 'если у формы есть инициализация
frm.Show vbModal
...
Unload frm
Set frm = Nothing


[Хакер]

Отдельно просьба к Хакеру - пожалйста, не отправляй меня в Поиск.

Пфф... я бы постыдился такие вещи писать.
Я даже сути вопроса/проблемы не понял полноценно.

Но понял, что кое-кому стоит отложить работу над унылыми офисными приложениями и научиться базовым понятиям. Базовым вещам в программированию. Базовому пониманию ООП. Пониманию устройства механизма форм в VB. Понимание

[Osteon]

Пфф... я бы постыдился такие вещи писать.

Ну куда нам, колхозникам, понять вашу тонкую духовную организацию...

Я даже сути вопроса/проблемы не понял полноценно.

А alibek понял. Спасибо, alibek!

[Osteon]

alibek, я чайник в VB, этого не скрываю. Но и VB6 не знает, что такое .Prepare

11.jpg (74.02 Кб) Просмотров: 3446

[Debugger]

alibek, я чайник в VB, этого не скрываю. Но и VB6 не знает, что такое .Prepare

11.jpg

Иногда при инициализации формы необходимо вызвать в ней какую-то процедуру. Которая, например, дернет БД, и занесет в списки возможные значения, и так далее - эту процедуру alibek условно назвал Prepare. Её ты должен написать. Её может и не быть. Тогда, естественно, её и вызывать не надо. Можно код написать в событии Initialize/Load/Show формы - тут это не имеет значения (гуру, если это не так, поправьте).

[ger_kar]

Ну я тоже подозреваю, что что под методом .Prepare подразумевается не встроенный метод, а пользовательский (т.е. метод написанный пользователем) для некой процедуры инициализации.

[Osteon]

Вона чо... Врубился теперь. Спасибо-преспасибо.
Т.е., под

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

frm.Prepare 'если у формы есть инициализация

уважаемый alibek имел в виду что производится проверка, не загружена ли форма ранее?

[alibek]

Нет.
Я имел ввиду, что в коде формы можно объявить публичную функцию Prepare, которая будет выполнять какие-то подготовительные действия, предшествующие отображению формы. Например инициализировать подключение к БД или проверять права доступа.

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

...
If frm.Prepare() Then
  frm.Show vbModal
Else
  MsgBox "Отмена операции, причина: " & frm.Tag
End If
Unload frm
Set frm = Nothing


[Osteon]

Ясненько. Спасибо.