المختصر المفيد في القوائم المنسدلة في أكسس - تفعيل القوائم المنسدلة
Ahmed AbdelMoneim University
0:00 / 0:00
المختصر المفيد في القوائم المنسدلة في أكسس - تفعيل القوائم المنسدلة
4 205 просмотров · 6 л. назад
Ahmed AbdelMoneim University
15,6 тыс. подписчиков
4 205 просмотров · 6 л. назад
#AHMED_ABDELMONEIM_UNIVERSITY
المختصر المفيد في القوائم المنسدلة في أكسس - تفعيل القوائم المنسدلة
#اكسس
#اكسس_VBA
#AHMED_ABDELMONEIM_UNIVERSITY
اذا عجبك الفيديو اضغط اعجاب واترك تعليق واشترك في القناة وشارك مع أصحابك لأفادة الجميع
------------------------------------------------------------------------------------------------
اذا كان لديك استفسار أو فكرة ولو بسيطة شاركنا بها لنحولها الي واقع في فيديو + مرفق
------------------------------------------------------------------------------------------------
"اللهم علمنا ما ينفعنا وانفعنا بما علمتنا"
"اللهم اغفر لأبي وارحمه كما رباني صغيرا"
تحميل المرفق بامتداد Accdb
https://drive.google.com/file/d/1c55d...
تحميل المرفق بامتداد Accde اكسس 2016
https://drive.google.com/file/d/12nHS...
كود عمل أكثر من قائمة فرعية
Option Compare Database
Option Explicit
Dim mainmenu As CommandBar
Dim but As CommandBarControl
'reference Microsoft office 16.0 object Library
Public Sub Menuforms()
On Error Resume Next
Application.CommandBars("forms").Delete
Set mainmenu = Application.CommandBars.Add("forms", 5, , True)
With mainmenu.Controls.Add(msoControlPopup)
.Caption = "النماذج"
Set but = .Controls.Add(msoControlPopup)
With but
.Caption = "سيتفرع منه أكثر من قائمة"
Set but = .Controls.Add
With but
.Caption = "نموذج1"
.OnAction = "sub1"
End With
Set but = .Controls.Add
With but
.Caption = "نموذج 2"
.OnAction = "sub2"
End With
Set but = .Controls.Add
With but
.Caption = "نموذج 3"
.OnAction = "sub3"
End With
End With
End With
mainmenu.ShowPopup
End Sub
Sub sub1()
DoCmd.OpenForm "form1"
End Sub
Sub sub2()
DoCmd.OpenForm "form2"
End Sub
Sub sub3()
DoCmd.OpenForm "form3"
End Sub
