LISITING 32.3  32LIST03.TXT  Procedury zdarzeniowe przyciskw formularza wprowadzania transakcji 

Private Sub btnCancel_Click()
  msg_ans = MsgBox("Okay to Cancel?", vbYesNo + vbQuestion, APP.Title)
  If msg_ans = vbYes Then
    Unload Me
  End If
End Sub

Private Sub but_Continue_Click()
  msg_ans = MsgBox("Save account entry before Closing?", vbYesNoCancel + vbQuestion, APP.Title)
  if msg_ans = vbCancel Then
    Exit Sub
  ElseIf msg_ans = vbYes Then
    MsgBox "Entry Saved", vbExclamation, APP.Title
  End If
  Unload Me
End Sub

Sub But_Save_Click()
  msg_ans = MsgBox ("Okay to save account entry?", vbOKCancel + vbQuestion, App.Title)
  If msg_ans = vbOK Then
    MsgBox "Entry Saved", vbExclamation, App.Title
  End If
End Sub
