Strange Right Click behaviour - On Mouse Down (1 Viewer)

[Lateral]

Hi guys


I've been trying to figure out the following for some time.


I have the following code on the On Mouse Down event of a TextBox control on a form in Continuous form mode that is in a Tabbed form that I have been using to try to determine the cause of my problem:


Private Sub SupplierName_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

Dim sWhere As String

If Button = acLeftButton Then
MsgBox "You pressed the left button."

sWhere = "[PartID] = " & Me.PartID

DoCmd.OpenForm "fPartsEdit", acNormal, , sWhere

End If

If Button = acRightButton Then
MsgBox "You pressed the right button."

sWhere = "[PartID] = " & Me.PartID

DoCmd.OpenForm "fPartsEdit", acNormal, , sWhere
End If

If Button = acMiddleButton Then
MsgBox "You pressed the middle button."

sWhere = "[PartID] = " & Me.PartID

DoCmd.OpenForm "fPartsEdit", acNormal, , sWhere
End If

End Sub

The above detects if the right, middle or left buttons on the mouse is clicked and then opens a form called "fPartsEdit"

If I left click or middle click, the forms opens on top of the main form which is exactly what I want. If I right click, the "fPartsEdit" form is opened behind the main form....why????

I want to use the right click but it is acting weird...

Thanks for any help

 

[arnelgp]

right click is used as shortcut menu, so this system even is called first before your user defined sub.

 

[Lateral]

Thanks for the quick reply.


Are you saying that I can't use it to open a form?

 

[arnelgp]

you can, but after opening it you need to SetFocus to it.

 

[Lateral]

Thanks mate, I'll try that and let you know the outcome..


Cheers
Greg

 

[Lateral]

I just tried the following but it doesn't bring the form to the front of the Main form:


I have also tried to point to a specific control of the fPartsEdit form without any luck:


If Button = acRightButton Then

sWhere = "[PartID] = " & Me.PartID

DoCmd.OpenForm "fPartsEdit", acNormal, , sWhere

Forms("fPartsEdit").SetFocus

End If


Also, if I add a Button to the main form containing the Forms("fPartsEdit").SetFocus then it brings tfPartsEdit to the front...


It looks like the right click handles things differently...

 

[Minty]

Sinister...

 

[Lateral]

What does Sinister mean?

 

[Minty]

Quote from the interwebs

The Latin adjective sinister/sinistra/sinistrum originally meant "left" but took on meanings of "evil" or "unlucky" by the Classical Latin era, and this double meaning survives in European derivatives of Latin, and in the English word "sinister".

My poor attempt at left / right humour

 

[isladogs]

As a sinistral, I (am pretending to) take personal offence at this unnecessary mocking of our special talents and may cut them out of this thread....using left handed scissors of course

 

[arnelgp]

move your code to MouseUp event instead.

 

[Lateral]

Same problem when I use MouseUp....

 

[isladogs]

It seems an odd way of opening a form to me but I do have a solution for you

I've just tested something similar & get the same behaviour as you when using the right mouse button to open a standard form. The right button must affect the z-order

However, if your second form is a popup it will work just fine as that forces it to the top
If you don't want it to be permanently as popup then use the following to change it temporarily using code. This can only be done when that form is open in design view.

If Button = acRightButton Then

   sWhere = "[PartID] = " & Me.PartID

   [COLOR="DarkRed"]DoCmd.OpenForm "fPartsEdit", acDesign
   Forms!fPartsEdit.PopUp = True[/COLOR]

   DoCmd.OpenForm "fPartsEdit", acNormal, , sWhere

   Forms("fPartsEdit").SetFocus

End If

You will also need to use code like this somewhere else to reset it again

DoCmd.OpenForm "fPartsEdit", acDesign
   Forms!fPartsEdit.PopUp = False
   DoCmd.Close acForm, "fPartsEdit"

FYI - nothing happens at all when I use the middle mouse button in this way - so that must depend on how it is programmed.

 

[Lateral]

Thanks mate


I'll have a play around......

 

[isladogs]

You're welcome
I've tested it & know it works

 

[Lateral]

Thanks again Colin, it works a treat!

 

[Micron]

on the form which you right click
Forms!form1.ShortcutMenu = False

That should do it.
(I should mention that you'll have to cycle it back on at the end of the right click IF block).

 

[Lateral]

Thanks Micron

 

[isladogs]

Even easier. Never thought of that one!