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

    CommandBars("PrintingOptions").Delete

    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

Ahmed

__._,_.___

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

.

__,_._,___

Tidak ada komentar:

Poskan Komentar