Article ID: 158931
Article Last Modified on 1/19/2007
Private Sub ExitMicrosoftAccess_MouseDown(Button As Integer, Shift _
As Integer, X As Single, Y As Single)
If Shift And acCtrlMask Then
DoCmd.Close
End If
End Sub
In Microsoft Access 2.0:
Sub Exit_Microsoft_Access_MouseDown (Button As Integer, Shift As _
Integer, X As Single, Y As Single)
If Shift And CTRL_MASK Then
DoCmd Close
End If
End Sub
Other constants available for Microsoft Access 7.0 and 97 are
acShiftMask and acAltMask, representing the SHIFT and ALT keys
respectively. In Microsoft Access 2.0, you can use SHIFT_MASK and
ALT_MASK.
Keywords: kbhowto kbprogramming KB158931