'Listing 34.3  34LIST03.TXT -- Wykorzystanie transakcyjnoci przy obsudze bdu wykonania


  msg_ans = MsgBox ("Czy zapisa dane przed zakoczeniem pracy?",   vbYesNoCancel + vbQuestion, App.Title)
    If msg_ans = vbCancel Then
    Exit Sub
  ElseIf msg_ans = vbYes Then
    MsgBox "Dane zostay zapisane",   vbExclamation, App.Title
    MyWorkSpace.CommitTrans
  ElseIf msg_ans = vbNo Then
    MyWorkSpace.RollBack
  End If
  Unload Me
