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