بعد التحية والتقدير
ممكن تزودوني بكود الغاء زر الشفت
حيث اريد اضافته على برنامج ولكن اريد الطريقة السليمة للاضافة حيث البرنامجي استخدم فيه شاشة دخول ( لوجو )
مهم جداً "" اين اضع هذا الكود بطريقة الصحيحة """
واهم شي هو هل يمكنني الدخول على القاعده بعد استخدام هذا الكود وماهي الطريقة
ولكم فائق الاحترام والتحية
تم تعديل هذه المشاركة بواسطة nas_ksa في 22 ديسمبر 2004 في 01:39
الأخ العزيز / nas_ksa
بعد التحية .. لقد تم مناقشة هذا الموضوع مرات عديده في المنتدى
ولكني سأورد لك الإجابة بالتفصيل الممل 012
ــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ
بالنسبة لأمر الغاء ( شيفت ) أو تمكينه فهو يخضع لعدة عوامل أهمها عدم ترك مجال للمستخدم بالاطلاع أو العبث بقاعدة البيانات ..
وثانيا حفظ بعض الحقوق أثناء رفع البرامج على مواقع الشبكة العنكبوتية ..
لذلك يجب أن يكون هناك داله معرفه لأوامر الغاء ( الشفت ) سنوردها لاحقاً ..
ويجب أن يكون هناك أمر لتنفيذ هذه الداله ..
والأمر لتمكين الغاء زر ( الشفت ) هو :
ChangeProperty "AllowBypassKey", DB_BOOLEAN, False
حيث تمثل كلمة ( False ) اخفاء أو عدم تمكين
ولألغاء عمل زر ( شفت ) نضع الكود التالي
ChangeProperty "AllowBypassKey", DB_BOOLEAN, True
حيث تمثل كلمة ( True) تمكين أو اظهار
ويمكنك وضع اكواد الأوامر في اي مكان توده مثلاً اثناء بداية عمل شاشة اللوجو أو البداية لديك .. أو دمجه مع أي زر من أزرار الأوامر كما في المثال المرفق .
ولكن كثير من الاخوة الكرام يحدث له ارتباك عندما يفعل أمر الغاء ( الشفت ) حيث أنه لا يستطيع تعديل قاعدة بياناته أو الاضافه اليها ...
ولكني اسديك حيله ضريفه أعتمد عليها في كل برامجي اللتي اقوم بتنفيذها على الأكسس وهي أن يكون زر تفعيل الشفت على الفورم مخفي ويكون في مكان معين لا يعلمه الا المبرمج فقط حيث أنه يستطيع تفعيل والغاء الشفت في أي وقت يشاء
فمثلاً في الملف المرفق عند بداية البرنامج ستكتشف ان ( الشفت ) لا يعمل
ولكن لو نظرت الى الصوره الموجوده في شاشة البداية ستجد في المنديل الأبيض الموجود في قميص الرجل زر مخفي هذا الزر هو اللذي يقوم يتفعيل عمل ( شفت ) ماعليك الا الضغط عليه ثم ضغط زر خروج والعوده للبرنامج بالضغط على ( شفت ) ستنفتح لك قاعدة البيانات ...
يمكنك استخدام نفس الفورمه في برنامجك وتغير التصميم الذي تريد هذا سيختصر عليك كثير من الوقت والجهد
بالنسبة للداله المطلوبة :
' ßáÇ ÒÑí ÇáÃãÑ íÓÊÏÚíÇä ÇáÏÇáÉ ÇáÊÇáíÉ
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
ـــــــــــــــــــــــــــ
متمني لك التوفيق
جميع الأكواد أخذت من هذا المنتى الرائع للعلم فقط 006
لا مكان مثل الوطن
في حالة وجود استفسار الرجاء تحديد جزئية معينه من المشكله
لكي نحاول مع زملائي حلها .. وشكراً
__016 __027
لا مكان مثل الوطن
الف الف شكر لله ثم لك اخي ( micro ) على هذه المعلومة القيمة
تمنياتي لك بالتوفيق والنجاح
السلام عليكم ,,
عارف اني داخل غلط في الموضوع لكن عجبني الواجهه للبرنامج الي
ارفقته اخوي ماكرو :)
عندي كم سؤال بسيط جدا ,,
الاول : المقصود بالشيفت بالتفصيل؟
الثاني : في البرنامج المرفق منعت تحريك الفورم لاي جهه فكيف تم عمل ذلك؟
الثالث : ايضا منعت ظهور الزر الاحمر (اغلاق) على الاطار , الي اعرفه تقدر تمنعه من خيارات النموذج لكن يطلع بلون باهت فكيف احذفه بالكلية؟
الاخير : هل لما اعمل بدء تشغيل للبرنامج اقدر اصغر (Minimize) لبرنامج الاكسس؟
وشكرا لكم :)
أخي الحبيب / Expert20
اشكرك لتواصلك مع الموضوع والمناقشة غير مخصصة لعضو واحد
الهذف الفائدة لجميع الأحبة الأعضاء حيث أن لهذا المنتدى افضال كثيره علينا
يجب أن نسدد ولو جزء بسيط منها :wub:
بالنسبة لواجهة البرنامج هذه من تصميمي وهو برنامج قديم من 6 سنوات تقريبا
وإذا أردت مني تصميم أي واجه لك انا في خدمتك .. __024
وبسؤالك أخي عن ( الشفت ) تعني الزر الموجود في لوحة المفاتيح المسمى ( عالي )
والذي بواسطته يتم تحويل الأحرف من الكبير الى الصغير والعكس
وعند ضغط هذا الزر ( عالي ) أثناء فتح اي قاعدة بيانات يقوم برناج الأكسس بالدخول الى قائمة الأوامر والجداول والفورم ........ ألخ
والأخ العزيز طلب مني الكود الخاص بإلغاء خاصة استخدام زر ( شفت ) او ( عالي ) لكي يحمي قاعدة بياناته
عموماً اخي الحبيب بعد أن تستطيع الدخول على المثال المرفق مع الضغط على عالي يمكنك مشاهده خصائص الفورم الموجوده من توسيط وتصعير وعدم تحريك
مرفق صوره للمطلوب عن فورم الدخول ...
ولك خالص تحياتي
أخوك مايكرو 012
لا مكان مثل الوطن
جزاك الله خير ماكرو وبارك الله فيك :)
الحمد لله وضحت لي لان فيه احد الخيارات كان منحاش 8o|
عندي مشروع جالس عليه وتقريبا انتهيت منه بس حجمه 14 ميجا تقريبا :blink:
باذن الله ابرفعه بعد الضغط ادعوا لي بالتوفيق :)
وجزاك الله خير مره اخرى ماكرو 8-|
يمكنك أيضاً أخي عمل كود خاص للفورم بحيث تحدد حجم الفورم وتحديد مكانه
تحياتي
__027
لا مكان مثل الوطن
micro كتب:أخي الحبيب / Expert20اشكرك لتواصلك مع الموضوع والمناقشة غير مخصصة لعضو واحد
الهذف الفائدة لجميع الأحبة الأعضاء حيث أن لهذا المنتدى افضال كثيره علينا
يجب أن نسدد ولو جزء بسيط منها :wub:
بالنسبة لواجهة البرنامج هذه من تصميمي وهو برنامج قديم من 6 سنوات تقريبا
وإذا أردت مني تصميم أي واجه لك انا في خدمتك .. __024
وبسؤالك أخي عن ( الشفت ) تعني الزر الموجود في لوحة المفاتيح المسمى ( عالي )
والذي بواسطته يتم تحويل الأحرف من الكبير الى الصغير والعكس
وعند ضغط هذا الزر ( عالي ) أثناء فتح اي قاعدة بيانات يقوم برناج الأكسس بالدخول الى قائمة الأوامر والجداول والفورم ........ ألخ
والأخ العزيز طلب مني الكود الخاص بإلغاء خاصة استخدام زر ( شفت ) او ( عالي ) لكي يحمي قاعدة بياناته
عموماً اخي الحبيب بعد أن تستطيع الدخول على المثال المرفق مع الضغط على عالي يمكنك مشاهده خصائص الفورم الموجوده من توسيط وتصعير وعدم تحريك
مرفق صوره للمطلوب عن فورم الدخول ...
ولك خالص تحياتي
أخوك مايكرو 012
السلام عليكم بارك الله في جهودك اخي
بس ياليت تتحملني شوي لان لما ضغطت شفت ما قدرت اشاهد خصائص الفورم ولا يفتح معي شيء ؟؟
وسؤال اخر ارجو الاجابه عليه هو كيف طريقه عمل الواجهه لاني بصدد مشروع واود عمل واجهه له ؟؟
ارج اخ micro ان ترد علي انا في انتظار اجابتك الشافيه
جزاكم الله كل خير
ولكن عندي سؤال ورجاء من يعرف الاجابة لا يبخل علينا
عن اضافة اكواد تفعيل او تعطيل الشيفت لا يستطيع الاوفيس تحويل قاعدة البيانات الي mde
والحق اني لا اعرف لذلك سبب
فهل من طريقة تجعلني قادر علي اضافة كود تعطيل / تفعيل الشيفت مع امكانية تحويل قاعدة البيانات الي mde
وجزاكم الله كل خير
مشكور على المعلومة الهامة بارك الله فيك
السلام عليكم ورحمة الله وبركاته ..
ارجو مساعدتي حيث اطلعت على المشاركة الأول وللكود العام الخاص بإلغاء الشفت والدالة العامة لإستدعاء الإلغاء ولكن عندي مشكلة هو ان هذا الكود يعمل على جداول الأكسس ولكن اذا وجد ان الأكسس مرتبط ارتباط مباشر مع sqlserver لا يعمل ولا ادري ما هو السبب .
أرجو مساعدتي وفقكم الله
الدالة العامة هي حسب ما ذكر في مشاركة استاذنا micro
' ßáÇ ÒÑí ÇáÃãÑ íÓÊÏÚíÇä ÇáÏÇáÉ ÇáÊÇáíÉ
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
وأعتقد ان الكود يحتاج لتعديل بسيط بحيث يتعرف على واعتقد المشكلة ممكن تكون هنا ولم استطع معرفة الحل
Set dbs = CurrentDb
اخواني السلام عليكم ورحمة الله وبركاته ...
إنني أستخدم مشروع أكسس adp والمرتبط مع sqlserver وعندما حاولت تجربة الكود الموضح لإلغاء الشفت لا يعمل معي ولا ادري ما هو السبب ربما لأن الجداول ليست أكسس أم ماذا ارجو مساعدتي بسرعة لأن الأمر لدي لا يتحمل التأخير والا سوف أخسر عملي . وفقكم الله تعالى .
شكراً لك اخي الكريم
تحية خاصة للاخ ماكرو والف شكر علي الشرح الجميل دة - وياريت ما تحرمنى من مواضيعك الجميلة
والله انا راي انك ما تتعب نفسك في موضوع الغاء عمل الشفت لان كده كده حماية ملهاش لازمه لان ببساطه بتتلغي حتي لو حطيت 50 كود عشان يلغي الشفت بسهوله ممكن يتلغي حمايته فالاحسن توجه نظرك لحماية بطريقه تانيه
السلام عليكم ورحمه الله وبركاته .