Needed help with command bar popup location (1 Viewer)

[nax009]

Hi I have created a command bar which popup when the user click "cmd_file" button. What I need is to replicating a classic windows menu bar (i.e. MS Office 2003 style) by create a button that show command bar popup below the button. But my problem is I can't find a way to put the command bar below that button. I've written some code as shown in the attachment. I seek some tutorial to solve this. Anyone?

Option Compare Database Option Explicit Private Sub cmd_file_Click() Set objPopup = CommandBars("t_m_A_1") objPopup.ShowPopup Me.cmd_file.Left, Me.cmd_file.Top + Me.cmd_file.Height Set objPopup = Nothing End Sub

 

[arnelgp]

i have a demo here (post #13) (1) Add field item data create left-side gap | Access World Forums (access-programmers.co.uk)

 

[nax009]

sorry for those messy code, here's the new one

Option Compare Database
Option Explicit
Private Sub cmd_file_Click()
Set objPopup = CommandBars("t_m_A_1")
objPopup.ShowPopup Me.cmd_file.Left, Me.cmd_file.Top + Me.cmd_file.Height
Set objPopup = Nothing
End Sub

 

[nax009]

i have a demo here (post #13) (1) Add field item data create left-side gap | Access World Forums (access-programmers.co.uk)

I see, a good example. Are there any ways to get coordinates dynamically without forcing the cursor?

 

[arnelgp]

custom shortcut menu pops-up at cursor position.
you can have a "dummy" textbox (Enabled=true,height=, width=0)
where you want your pop-up to appear.
and use that dummy textbox as reference.

 

[nax009]

custom shortcut menu pops-up at cursor position.
you can have a "dummy" textbox (Enabled=true,height=, width=0)
where you want your pop-up to appear.
and use that dummy textbox as reference.

OH!! That's work! But can I ask something? Why can't I use the button's position why a textbox?