تعديل كود لاخفاء شريط القوائم لاكسس 2003 - 2010- 2013

zahrah كتب:

تفضل اخي الكريم

 

سيتم اخفاء شريط القوائم  لجميع نسخ الأكسيس بواسطة هذا الكود في حدث عند التحميل

 

 

Private Sub Form_Load()
If SysCmd(acSysCmdAccessVer) > 11 Then
DoCmd.ShowToolbar "Ribbon", acToolbarNo
Else
 
Dim i As Integer
For i = 1 To CommandBars.Count
CommandBars(i).Enabled = False
Next i
End If
End Sub

 

 

 

za-acd.rar

 

 

بالتوفيق

تسلمي استاذة

هذا هو المطلوب

وكل عام وانت بالف خير ورمضان كريم علينا وعليك