Almost there guys, almost there!
So, it works. But... I get a Runtime Error when running the Macro. Code below...
Private Sub Command2_Click()
blockClose = False
DoCmd.OpenQuery "End Shift", acViewNormal, acReadOnly
DoCmd.OpenQuery "End Client", acViewNormal, acEdit...