هذا مثال منقول
بعد التحية .. لقد تم مناقشة هذا الموضوع مرات عديده في المنتدى
ولكني سأورد لك الإجابة بالتفصيل الممل
ــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ
ــــــ
بالنسبة لأمر الغاء ( شيفت ) أو تمكينه فهو يخضع لعدة عوامل أهمها عدم ترك مجال للمستخدم بالاطلاع أو العبث بقاعدة البيانات ..
وثانيا حفظ بعض الحقوق أثناء رفع البرامج على مواقع الشبكة العنكبوتية ..
لذلك يجب أن يكون هناك داله معرفه لأوامر الغاء ( الشفت ) سنوردها لاحقاً ..
ويجب أن يكون هناك أمر لتنفيذ هذه الداله ..
والأمر لتمكين الغاء زر ( الشفت ) هو :
ChangeProperty "AllowBypassKey", DB_BOOLEAN, False
حيث تمثل كلمة ( False ) اخفاء أو عدم تمكين
ولألغاء عمل زر ( شفت ) نضع الكود التالي
ChangeProperty "AllowBypassKey", DB_BOOLEAN, True
حيث تمثل كلمة ( True) تمكين أو اظهار
ويمكنك وضع اكواد الأوامر في اي مكان توده مثلاً اثناء بداية عمل شاشة اللوجو أو البداية لديك .. أو دمجه مع أي زر من أزرار الأوامر كما في المثال المرفق .
ولكن كثير من الاخوة الكرام يحدث له ارتباك عندما يفعل أمر الغاء ( الشفت ) حيث أنه لا يستطيع تعديل قاعدة بياناته أو الاضافه اليها ...
ولكني اسديك حيله ضريفه أعتمد عليها في كل برامجي اللتي اقوم بتنفيذها على الأكسس وهي أن يكون زر تفعيل الشفت على الفورم مخفي ويكون في مكان معين لا يعلمه الا المبرمج فقط حيث أنه يستطيع تفعيل والغاء الشفت في أي وقت يشاء
فمثلاً في الملف المرفق عند بداية البرنامج ستكتشف ان ( الشفت ) لا يعمل
ولكن لو نظرت الى الصوره الموجوده في شاشة البداية ستجد في المنديل الأبيض الموجود في قميص الرجل زر مخفي هذا الزر هو اللذي يقوم يتفعيل عمل ( شفت ) ماعليك الا الضغط عليه ثم ضغط زر خروج والعوده للبرنامج بالضغط على ( شفت ) ستنفتح لك قاعدة البيانات ...
يمكنك استخدام نفس الفورمه في برنامجك وتغير التصميم الذي تريد هذا سيختصر عليك كثير من الوقت والجهد
بالنسبة للداله المطلوبة :
' &
szlig;áÇ ÒÑí ÇáÃãÑ íÓÊÏÚíÇä ÇáÏÇáÉ ÇáÊÇáíÉ
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
ـــــــــــــــــــــــــــ
متمني لك التوفيق
جميع الأكواد أخذت من هذا المنتى الرائع للعلم فقط
وهذا الملف مرفق
http://www.arabteam2000-forum.com/index.ph...t&id=260644