أخواني الاعزاء
السلام عليكم ورحمة الله وبركاتة
أحب أن أضع مشاركه بسيطه بين أيديكم أوضح فيها كيفية أظهار وإخفاء بعض قوائم أكسس والذي يسأل عنها الكثيرون في برامجهم عن طريق الكود
أولاً : - من خلال هذا الكود تسطيع أخفاء جميع قوائم أكسس
Dim i As Integer For i = 1 To CommandBars.Count CommandBars(i).Enabled = False Next i
أيضا يمكنك اظهارها مرة أخري عن طريق هذا الكود
Dim i As Integer For i = 1 To CommandBars.Count CommandBars(i).Enabled = True Next i
ثانياً : - من خلال هذا الكود يمكنك اظهار القائمة الخاصة بك
DoCmd.ShowToolbar "ضع اسم قائمتك هنا", acToolbarYes
وهذا الكود لاظهارها مرة أخري
DoCmd.ShowToolbar "ضع اسم قائمتك هنا", acToolbarNo
ثالثا ً : - من خلال هذا الكود يمكنك اخغاء نافذه الداتا بيز
DoCmd.SelectObject acTable, , True DoCmd.RunCommand acCmdWindowHide
ويمكنك اظهارها مرة اخري من خلال هذا الكود
DoCmd.SelectObject acTable, , True
رابعاً : - من خلال هذا الكود يمكنك إزاله الرساله التي تظهر بمساعد اوفيس ونصها "Type a question for help" وهذا الكود متاح لنسخة أوفيس 2002 - 2003 فقط
Application.CommandBars.DisableAskAQuestionDropdow n = True
خامساً : - من خلال هذا الكود يمكنك منع ظهور النموذج بشريط المهام
Application.SetOption "ShowWindowsinTaskbar", False
ويمكنك اظهارة عن طريق هذا الكود
Application.SetOption "ShowWindowsinTaskbar",true
أنا عارف أن ممكن تكون معلوماتي قديمة ومعروفه لكن حبيت أساعد الاعضاء الجدد وأشارك الجميع
مرفق مثال فيه كل هذه الاكواد
