SHARE
TWEET

Untitled

a guest Aug 12th, 2017 42 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Option Compare Database
  2.  
  3. '------------------------------------------------------------
  4. ' CloseReportForm
  5. '
  6. '------------------------------------------------------------
  7. Function CloseReportForm()
  8. On Error GoTo CloseReportForm_Err
  9.  
  10.     Beep
  11.     MsgBox "You Are About To Close Report Form.", vbQuestion, ""
  12.     Beep
  13.     Beep
  14.     Beep
  15.     DoCmd.Close acForm, "Report Form"
  16.     DoCmd.OpenForm "MainForm", acNormal, "", "", , acNormal
  17.  
  18.  
  19. CloseReportForm_Exit:
  20.     Exit Function
  21.  
  22. CloseReportForm_Err:
  23.     MsgBox Error$
  24.     Resume CloseReportForm_Exit
  25.  
  26. End Function
RAW Paste Data
Top