Private Sub Form_Unload(Cancel As Integer)

    On Error GoTo Err_Sub
  
  If  xxxxxx  Then
  
  Select Case MsgBox("xxxxx" & vbCr & _
                 "xxxxx ?" & vbCr & _
                 "<Yes> - xxxxx;" & vbCr & _
                 "<No>  - xxxxx;" & vbCr, vbDefaultButton2 + vbQuestion + vbYesNo)
    Case vbYes
      Cancel = - 1 
    Case vbNo
      Cancel =  0 
  End Select
  End If
  
Exit_Sub:
    DoCmd.Hourglass False
    DoCmd.SetWarnings True
    Exit Sub
Err_Sub:
  Select Case Err.Number
      
      Case Else
        MsgBox Err.Number & " " & Err.Description
      Resume Exit_Sub
    End Select
End Sub