MouseDown doesn't fire

[GraeagleBill]

I have a form with a MouseDown event. The form has option buttons where when one is selected with the Ctrl key also being down the form takes a different action. The event does not fire for some unknown reason. I added a msgbox to confirm. Any ideas as to why the event code does not fire.

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
'========================================================================================
' User wants to see the HELP file for selected option
'========================================================================================
If (Shift And acCtrlMask) Then
    MsgBox "Ctrl is down"
    bolHELP = True
End If


End Sub

[Minty]

Do you not need to check for the correct value based on:

Value	Description
1	SHIFT was pressed.
2	CTRL was pressed.
3	SHIFT and CTRL were pressed.
4	ALT was pressed.
5	ALT and SHIFT were pressed.
6	ALT and CTRL were pressed.
7	ALT, SHIFT, and CTRL were pressed.

So you should be checking for

If Shift = 3

[Welshgasman]

I have a form with a MouseDown event. The form has option buttons where when one is selected with the Ctrl key also being down the form takes a different action. The event does not fire for some unknown reason. I added a msgbox to confirm. Any ideas as to why the event code does not fire.

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
'========================================================================================
' User wants to see the HELP file for selected option
'========================================================================================
If (Shift And acCtrlMask) Then
    MsgBox "Ctrl is down"
    bolHELP = True
End If


End Sub

Have you looked at the MS pages?
https://learn.microsoft.com/en-us/of...form.mousedown

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
'========================================================================================
' User wants to see the HELP file for selected option
'========================================================================================
If Button = acLeftButton Then MsgBox "Left is down"
 
If Button = acRightButton Then MsgBox "Right is down"
If Shift = 3 Then MsgBox "Shift & Ctrl"


End Sub

However I can only get it to fire if I click on the record indicator? Clicking anywhere on the form outside any control does nothing.

[GraeagleBill]

However I can only get it to fire if I click on the record indicator? Clicking anywhere on the form outside any control does nothing.

There's the problem! If Shift = 3 didn't fix the issue, as I had already tried that before the OP.

The solution was to use the KeyDown event with the event properties Key Preview set to Yes. With that, bolHELP is set true and the ensuing form code responds accordingly.

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
'========================================================================================
' User wants to see the HELP file for selected option
'========================================================================================
If KeyCode = 17 Then bolHELP = True


End Sub