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. a file was uploaded under the name "ShortCutMenuProblem.accdb"
...................
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:
Posting Komentar