التعديل على الوحدة النمطية

[بلال اليامين]

السلام عليكم

اريد تعديل الوحدة النمطية لاظهار الصورة في القائمة المنسدلة وهذا عند الضغط على الزر اضغط هنا تظهر القائمة

Option Compare Database
Option Explicit
Option Private Module


Public Sub MENUFORMS11()
On Error Resume Next
 Application.CommandBars("FORMS").Delete
Set MAINMENU11 = Application.CommandBars.Add("FORMS", 5, , True)
Set Button = MAINMENU11.Controls.Add
With Button
.Caption = "form1"
.OnAction = "SUBFORM1"
 End With
Set Button = MAINMENU11.Controls.Add
With Button
.Caption = "form2"
.OnAction = "SUBFORM2"
End With
MAINMENU11.ShowPopup
End Sub
Sub subform1()
DoCmd.OpenForm "FORM1"
End Sub
Sub SUBFORM2()
DoCmd.OpenForm "FORM2"
End Sub
Public Function SetFntName(strFName As CommandButton)
Rem: استبدل خط ايريل بالخط الذي تريد
strFName.FontName = "Arial"
strFName.FontSize = "16"
strFName.FontItalic = True
End Function

القائمة الفرعية.rar