Posted By

gtree on 07/26/13


Tagged


Versions (?)

Force exit in shared Access Database with timers


 / Published in: Visual Basic
 

Takes place in 3 different forms: Entry Form, KeepOpen, and ForceOut

  1. Private Sub Form_Load()
  2.  
  3. DoCmd.OpenForm "frmKeepOpen", acNormal, , , , acHidden
  4.  
  5. Forms!frmKeepOpen!ForceOutCheck.Value = ""
  6. If DCount("*", "tblForceOut", "[Force Out?] = 'Y'") = 1 Then
  7. DoCmd.Quit
  8. End If
  9.  
  10. End Sub
  11.  
  12.  
  13. Private Sub Form_Load()
  14.  
  15. Me.TimerInterval = 300000
  16.  
  17. End Sub
  18.  
  19. Private Sub Form_Timer()
  20.  
  21. If DCount("*", "tblForceOut", "[Force Out?] = 'Y'") = 1 And Forms!frmKeepOpen!ForceOutCheck.Value = "Y" Then
  22. DoCmd.Quit
  23. ElseIf DCount("*", "tblForceOut", "[Force Out?] = 'Y'") = 1 Then
  24. DoCmd.OpenForm "frmForceOut", acNormal, , , acFormReadOnly, acWindowNormal
  25. Me.TimerInterval = 60000
  26. End If
  27.  
  28. End Sub
  29.  
  30.  
  31. Private Sub Form_Load()
  32.  
  33. Forms!frmKeepOpen!ForceOutCheck.Value = "Y"
  34.  
  35. End Sub

Report this snippet  

You need to login to post a comment.