mzaki قام بنشر ديسمبر 23, 2004 مشاركة قام بنشر ديسمبر 23, 2004 بسم الله الرحمن الرحيم الاخوة الأعزاء هل ممكن المساعدة فى الغاء مفتاح الشيفت عند بداية تشغيل البرنامج واريد عمل حماية رأيتها فى حماية قواعد البيانات فى المنتدى ومع الاسف على الرغم من اننى رأيتها وقرأتها لكن لا اعرف الطريقة حيث يوجد رقم النسخة ورقم التشغيل وأنا لا اعرف كيف تتم ولا اعرف اين يكتب الاكواد اللازمة اعذرونى فأنا مبتدئ وشكراً اخوكم mzaki رابط هذا التعليق شارك More sharing options...
الباشق1 قام بنشر ديسمبر 23, 2004 مشاركة قام بنشر ديسمبر 23, 2004 (معدل) السلام عليك ورحمة الله وبركاته اخي الكريم جرب هذا المثال من الاخ أشرف خليل الغاء الشفت و تفعيله http://www.officena.net/ib/index.php?showtopic=2066&hl= المثال الثاني http://www.officena.net/ib/index.php?showtopic=111&hl= الباشــــــــــــــــــــــــــــــــــــــــــــــــــــق1 تم تعديل ديسمبر 23, 2004 بواسطه الباشق1 رابط هذا التعليق شارك More sharing options...
mzaki قام بنشر ديسمبر 23, 2004 الكاتب مشاركة قام بنشر ديسمبر 23, 2004 أخى الفاضل يبدو ان سؤالى غير واضح فأنا أريد أن ألغى مفتاح الشيف فى القاعدة التى قمت بعملها بمعنى أن عندما يقوم احد بتشغيل النظام بالضغط على مفتاح الشيفت لا يظهر له اطار قاعدة البيانات وليس فكها ولكن اريدها موضوعة اى ما هو الكود الذى يعمل على سبب تعطيل مفتاح الشيفت " أريد تعطيله" وما هى الطريقة وشكراً اخوك mzaki رابط هذا التعليق شارك More sharing options...
الباشق1 قام بنشر ديسمبر 23, 2004 مشاركة قام بنشر ديسمبر 23, 2004 وعليكم السلام تفضل هذا الكود للغاء الشفت في حدث عند النقر تضع هذا الكود ChangeProperty "AllowBypassKey", DB_BOOLEAN, True رابط هذا التعليق شارك More sharing options...
الباشق1 قام بنشر ديسمبر 23, 2004 مشاركة قام بنشر ديسمبر 23, 2004 (معدل) هذا مثال منقول بعد التحية .. لقد تم مناقشة هذا الموضوع مرات عديده في المنتدى ولكني سأورد لك الإجابة بالتفصيل الممل ــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ ــــــ بالنسبة لأمر الغاء ( شيفت ) أو تمكينه فهو يخضع لعدة عوامل أهمها عدم ترك مجال للمستخدم بالاطلاع أو العبث بقاعدة البيانات .. وثانيا حفظ بعض الحقوق أثناء رفع البرامج على مواقع الشبكة العنكبوتية .. لذلك يجب أن يكون هناك داله معرفه لأوامر الغاء ( الشفت ) سنوردها لاحقاً .. ويجب أن يكون هناك أمر لتنفيذ هذه الداله .. والأمر لتمكين الغاء زر ( الشفت ) هو : 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 تم تعديل يوليو 19, 2006 بواسطه التقني رابط هذا التعليق شارك More sharing options...
mzaki قام بنشر ديسمبر 24, 2004 الكاتب مشاركة قام بنشر ديسمبر 24, 2004 بسم الله الرحمن الرحيم الاخ الفاضل / الباشق1 حقيقى أنا عاجز عن الشكر وأعتذر بشدة عن الازعاج ولك ألف شكر وتحية ... واللهم زيدك من العلم والايمان اخوك mzaki رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.