أحدهم أرسل لي هذه الرسالة عن طريق البريد :
السلام عليكم ورحمة الله وبركاته
أخي أبو حمود بارك الله فيك ومن أمثالك
أرجو ان توضح لي عن هذا
كيف عمل ذلك وأين أدخل هذا الحدث
لو تكرمت ان تشرح لي خطوة بخطوة أنا أريد فقط
الغاء مفاتح الشفت عند التشغيل وياريت في أقرب وقت للأهمية لا أمرا
والله لا يحرمنا منك ...
والجواب بالخطوات :
1- أنشئ نموذج جديد ثم أنشئ عليه زر أمر .
2- في حدث عند النقر لزر الأمر ضع الأسطر التالية (أنسخ وألصق):
ChangeProperty "AllowBypassKey", DB_Boolean, False
3- ضع الدالة التالية في آخر الوحدة النمطية الخاصة بالنموذج هذا الجديد :
Public Function changeproperty(strPropName As String, varPropType As Variant, varPropValue As Variant)
Dim dbs As Database, prp As Property
Const conPropNotFoundError = 3270
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
4- افتح النموذج في العرض العادي ثم اضغط زر الأمر الموجود عليه .
بس انتهينا .
وللجميع التحية
السلام عليكم ورحمة الله وبركاتة
هذة المقدمة للأخ ابو حمود في احدى مواضيعة وقمت بنسخها لكي تفهموني جيدا وماذا اريد بالضبط .
انا قمت بما ذكرة الاخ ابو حمود خطوة خطوة ولكن لم تنجح معي .
وعندما اضغط على الرز ينقلني الى منشئ البرامج ويظلل على كلام باللون الاصفر وكلام ثاني باللون الازرق .
صورة توضيحية بالمرفقات
الرجاء المساعدة
تحياتي