Selasa, 19 Januari 2016

[MS_AccessPros] Short Cut Menu


Dear Friends
I am trying to create Short Cut Menu to my form ,I succeeded when the form Popup property is No but if the form popup property is Yes it is not working i am using Office 2010.
The Function i am using

Public Function CreateCMenu2()
On Error Resume Next


    Dim cmb As CommandBar
    Dim cmbBtn1 As CommandBarButton
    Dim cmbBtn2 As CommandBarButton

    Set cmb = CommandBars.Add("PrintingOptions", _
               msoBarPopup, False, False)
        With cmb
           Set cmbBtn2 = .Controls.Add(msoControlButton, , , , True)
            With cmbBtn2
                .Caption = "Reset"
                .OnAction = "=Openit()"
            End With
        End With

End Function

I appreciate any friend can help me



Posted by: ahmad beshari <>
Reply via web post Reply to sender Reply to group Start a New Topic Messages in this topic (1)



Tidak ada komentar:

Posting Komentar