Listing 33.5 --- Zamknicie formularza LineItem Entry jako wynik nacinicia przycisku Close.

Private Sub btnClose_Click()
no_save = False
msg_ans = MsgBox("Save account entry before Closing?", vbYesNoCancel + vbQuestion, App.Title)
If msg_ans = vbCancel Then
    Exit Sub
ElseIf msg_ans = vbYes Then
    Call save_lineitem
Else
    actkey.Caption = Str(current_account)
    itmkey.Caption = "9999"
End If
Unload Me
End Sub
