Is it possible to anchor a shortcut menu to the control that opens it instead of the cursor?

[PeakH]

I have a button on a form that opens a small shortcut menu. I would like the menu to be anchored to the bottom of the control so that it always appears in the same spot, instead of wherever the cursor is. Basically I want it to work similarly to the buttons at the top of this forum, like under "Quick Links", the menu starting with "Unanswered Threads" is anchored to the bottom left corner of the "Quick Links" button.



The following is the code for the menu:

Sub SortPopupMenu()
    Dim SortMenu As CommandBar
    Dim SortBy As CommandBarControl
    
        Set SortMenu = CommandBars.Add("", msoBarPopup, , True)
        Set SortBy = SortMenu.Controls.Add:  SortBy.Caption = "Product Type": SortBy.OnAction = "SortByProduct"
        Set SortBy = SortMenu.Controls.Add:  SortBy.Caption = "Strain Name": SortBy.OnAction = "SortByStrain"
        Set SortBy = SortMenu.Controls.Add:  SortBy.Caption = "Order Entered": SortBy.OnAction = "SortByItem"
        Set SortBy = SortMenu.Controls.Add:  SortBy.Caption = "Custom Sort": SortBy.OnAction = "SortByCustom"
    
    SortMenu.ShowPopup
        
End Sub


Sub SortByProduct()
    Screen.ActiveReport.OrderBy = "[ProdType]"
    Screen.ActiveReport.OrderByOn = True
End Sub


Sub SortByStrain()
    Screen.ActiveReport.OrderBy = "[StrainName]"
    Screen.ActiveReport.OrderByOn = True
End Sub


Sub SortByItem()
    Screen.ActiveReport.OrderBy = "[InfoID]"
    Screen.ActiveReport.OrderByOn = True
End Sub


Sub SortByCustom()
    Screen.ActiveReport.OrderBy = "[Sort]"
    Screen.ActiveReport.OrderByOn = True
End Sub

Then the code for the form control:

Private Sub Command246_Click()
    SortPopupMenu
End Sub

[aytee111]

SortMenu.ShowPopup has x and y as parameters. Set these to the position (in pixels) of where you want the popup to show.

[PeakH]

This works great if the user has the database open to full screen, but if they have it sized to partial screen the menu shows up off of the database window. Is there a way to have it follow the window or anchor it to access instead of the monitor somehow?

[aytee111]

Maybe you can use relative positions from: Me.WindowTop/Left/Height/etc

[PeakH]

hmm. Any ideas of how to work that in?
The internet seems to be working against me today so researching how to refer to positions has not yielded much good information.
I have tried working it into the x,y for the Show Popup

SortMenu.ShowPopup Reports!rptOrderConfPS1!Command246.Height, Reports!rptOrderConfPS1!Command246.Width

I tried Top and Left, WindowTop and WindowLeft, Windowheight and Windowwidth, but none of those combinations seemed to move the shortcut. Height and Width move the menu, but I'm not sure how it's calculating where to move it and again it is anchored to the monitor screen and not the access window.
I'm not sure if I can use Me. since I'm not actually doing anything with the report, just referring to a position of a control.

[aytee111]

I have a button on a form that opens a small shortcut menu

That is where the "Me" comes in, not sure why you are referencing a report? The attributes are for the Access window, so unless it is a form that can move around the top for the x/y should be static. In this case, the only variable is if the ribbon is maximized or not.

[PeakH]

My bad, I have a nearly identical button on a report and I am working on both of them. But I did try to do the same thing on the form using Forms!frmLotList!Command58.Top/Left and WindowTop/Left/Height/Width. It is certainly changing where the menu shows up, but not in relation to the access window.

The form is not popup, but if the access window is moved or resized, the x,y still acts as if it's anchored to the monitor.

If I use "Me" in the ShowPopup x, y I get an error that says it's an invalid use of "Me" My guess for why would be that the shortcut menu code is not directly on the form control, just called from it?

So from there I wouldn't know where to put the Me. so that it is valid.

[aytee111]

I think I have pulled a brain muscle! I found this code and have to admit I don't get what it is doing. However, I did manage to bastardize it sufficiently to make it work. It gets the position of the form and then I add a number to that to mark the position of the menu. You will have to work out your own number to add.

http://access.mvps.org/access/forms/frm0042.htm

[PeakH]

Wow! This is wonderful! Thank you so much.

In order to make both one for the form and another for the report I made a second MoveToTopRight function: MoveToTopRightrpt() and copied it exactly but changed the
With fwForm
.hWnd = Forms("frmLotList").hWnd

To
With fwReport
.hWnd = Reports("rptOrderConfPS1").hWnd

I may try changing it to IF the report is loaded THEN .hWnd= Reports("rptOrderConfPS1").hWnd ; ELSE IF the form is loaded THEN .hWnd = Forms("frmLotList").hWnd
That way I may be able to create additional buttons like this more easily in the future, but for now I'm thrilled that it works!

[aytee111]

Me too! You can clean it up a bit, change the names and stuff like that. I was just so glad to get it working ... finally.