popup menu

أنشئ مويول جديد والصق به هذا الكود:

Sub CreateSimpleShortcutMenu()

On Error Resume Next

   Dim MenuName As String

Dim CB As CommandBar

Dim CBB As CommandBarButton

MenuName = "CustomMenu"

Set CB = Application.CommandBars.Add(MenuName, msoBarPopup, False, False)

Set CBB = CB.Controls.Add(msoControlButton, 2521, , , True)

CBB.Caption = "طياعة"

Set CBB = CB.Controls.Add(msoControlButton, 247, , , True)

CBB.Caption = "إعداد الصفحة"

Set CBB = CB.Controls.Add(msoControlButton, 11723, , , True)

CBB.BeginGroup = True

CBB.Caption = "تصدير الى إكسيل"

Set CBB = CB.Controls.Add(msoControlButton, 12499, , , True)

CBB.Caption = “حفظ ك (PDF)”

Set CBB = CB.Controls.Add(msoControlButton, 923, , , True)

CBB.BeginGroup = True

CBB.Caption = "إغلاق"

Set CB = Nothing

Set CBB = Nothing

End Sub

فى خصائص التقرير (property Sheet) وفى خانة (Shortcu Menu Bar) إختر (CustomMenu)

فى انتظار التجربه والافادة 

بارك الله فيك يا استاذ عصام ولكن عند الضغط الزرالايمن من الماوس يظهرمربع صغير ولا يوجد به اى اوامر

فبرجاء الافادة وشكر جزيلا على المساعده

ا/أشرف برجاء إرفاق مثال للعمل عليه ... وشكرا

شكرا جزيلا مرة اخرى وبارك الله فيك

TEST.accdb

اخى الكريم إعذرنى فى التأخير .. مرفق المثال بعد التعديل على الموديول فقط وارجو ان يفى بالغرض وسأرفق لك رابط عن القوائم المختصر زبادة فى الفائدة.

https://msdn.microsoft.com/en-us/vba/access-vba/articles/create-a-shortcut-menu-for-a-form-form-control-or-report

TEST2.accdb

اخى العزيز

شكرا جزيلا على المساعدة وجزاك الله كل خير

السيد عصام السلام عليكم

اشكرك على المثال المرفق والذي كنت ابحث عنه طويلا 

لدي استفسار : هل يمكن عمل اوامر بالزر اليمين لفتح نماذج او تقارير 

ارج افادتنا بالطريقة 

ولك جزيل الشكر