مرحبا
سؤالي كيف نخفي شريط المعلومات من غير عمل Maximize
يعني نخفي شريط المعلومات ( ملف وتحرير وعرض ووو )
بالكود
والله الموفق
كيف نخفي شريط المعلومات بالكود
مغلق
اشكرك علي التعاون
ولكن الملف لم يعمل معي يرد ملف غير موجود
الرجاء ان تتاكد لي وشاكرلك
والله الموفق
الملف جيد حبيبي وفيه الصوت ولكن اريد ان اجعل النموذج يصدر اصوات او موسيقى او قران او اي صوت بالكود وليسه بالوزرد
واشكرك حبيبي
نزلت الملف فى البيت واشتغل عادي
هو على أكسيس 2000
زهي تتلخص فى أنك تعمل قائمة خاصة بك فارغه وتحمله فى النموذج وتعطي أمر عند الفتح للنموذج بأن يخفى هذه القائمة . وهذا هو الأمر
DoCmd.ShowToolbar "menu", acToolbarNo
على اعتبار أن اسم شريط القوائم هو menu
أشرف خليل
السلام عليكم
تحتاج اخي العزيز الى اضافة خاصية "AllowFullMenus" الى قاعدة البيانات لديك تماما كطريقة عمل تعطيل زر الشفت مع تبديل AllowBypassKey والخاصة بزر الشفت الى "AllowFullMenus"
الكود المستعمل لتغيير الخاصية
Private Function ChangeProperty(strPropName As String, varPropType As Variant, varPropValue As Variant)
Dim dbs As Object, prp As Property
Set dbs = CurrentDb
On Error GoTo Change_Err
dbs.Properties(strPropName) = varPropValue
ChangeProperty = True
Change_Bye:
Exit Function
Change_Err:
If Err = conPropNotFoundError Then
Set prp = dbs.CreateProperty(strPropName, varPropType, varPropValue)
dbs.Properties.Append prp
Resume Next
Else
ChangeProperty = False
Resume Change_Bye
End If
End Function
وهو نفسه الذي يستخدم مع تعطيل زر الشفت
ثم تنشيء فورم و عليه زرين الاول يحتوي الكود التالي وذلك عند حدث click
ChangeProperty "AllowFullMenus", DB_Boolean, True
لاظهار القوائم
والزر الآخر يحتوي الكود التالي عند حدث click
ChangeProperty "AllowFullMenus", DB_Boolean, False
لاخفاء القوائم
آسف يا اخوان لم انتبه للردود
كفيتم ووفيتم
لآ أسف ول شيئ زيادة الخير خيرين
وأهلا بك معنا
أشرف خليل
مشكور حبيبي والله يعطيك العافيه
والله الموفق
هذا الموضوع مغلق.