ما هي المشكلة في إلغاء عمل الشفت ؟

إذا كنت تستخدم أكسيس 2000 فيجب أن تعلم ( تضع علامة صح ) على السطر التالي Microsoft Dao 3.6 Object library وذلك من References

أشرف خليل

لم يعمل عندي الكود من قبل حيث انه عند استدعائه بالماكرو يقول هناط خطائ ويجبرني على التوقف ولكن عندما اضفت الذي قلت لاكسس 2000 اشتغل لكن اعطاني الخطأ في السطر التالي:

Set prp = dbs.CreateProperty(strPropName, varPropType, varPropValue)

قمت بحذفه فانتقل الخطا الى السطر الذي يله وعند حذفه اشتغل الماكرو ولم يعطي اية اخطاء لكن الكود لم يقوم بعمي اي شيء يعني ما الغى الشفت

كيف العمل

كما اننى اود الحصول على المثال الذي طرحه الاخ ابو حمود لان الرابط لم يعمل عندي رغم كثرة المحاولات ياليت تعيد الرابط هنا للتحميل او ترسله انت او احد الاخوان مشكورا على البريد ZEYAD_999@HOTMAIL.COM

ولك جزيل الشكر

جرب هذه

انشء وحدة نمطية جديدة وضع فيها هذا الكود كما هو :

Option Compare Database

Option Explicit

Private Const ErrPropNotFound As Long = 3270



Public Function SetAllowByPassKey()

 Dim db As DAO.Database



    Dim prp As DAO.Property





  



    On Error Resume Next



    Set db = CurrentDb



   db.Properties("AllowBypassKey").Value = False



    If Err.Number = ErrPropNotFound Then



      Set prp = db.CreateProperty("AllowBypassKey", dbBoolean, False)



     db.Properties.Append prp



     End If



   Err.Clear

End Function

تحقق من أنه تم فصل الكود بوجود (خط فاصل ) بعد السطر الأول من الكود الذي ينتهي برقم 3270

إذا تحقق ذلك قم بإنشاء ماكرو واستدعي الدالة التالية عن طريق الأمر run code من داخل الماكرو

الدالة هي :

=SetAllowByPassKey()

جرب وأعطني النتيجة مع ملاحظة أن المرجع السابق ذكره يظل معلم عليه .

أشرف خليل

لخبطة الكود عيب المنتدي وليس مني .

إليكم مثال على إلغاء الشفت .

http://www.pcpages.com/ashrafk/sh.zip

أشرف خليل

مشكور يا أخ أشرف .

بمناسبة طريقة كتابة الأكواد :

لا ألاحظ هذه المشكلة عند البعض . فكيف ذلك ؟

إلى جميع من تفاعل مع الموضوع

أقدم لكم الشكر الجزيل واخص به أخوي أشرف خليل

مشكور على المثال وقد عمل معي على ما يرام

______________________________

ولكن عندما قمت باستيراد الوحدة النمطية إلى برنامج آخر حصل عندي خطأ فعندما أفتح البرنامج يذهب بي إلى تصميم الوحدة النمطية التي تخص تعطيل الشفت ويضلل هذا السطر

db As DAO.Database

_______________________________

فربما يكون السبب أني لم أعمل ما ذكرته سابقاً في رسالتك التي نصها ( إذا كنت تستخدم أكسيس 2000 فيجب أن تعلم ( تضع علامة صح ) على السطر التالي Microsoft Dao 3.6 Object library وذلك من References )

_______________________________

اعذرني .. كيف يتم ذلك ؟

فأنا لا أفهم شيئاً في اللغة الإنجليزية فياليت الطريقة تكون موضحة وخطوة بخطوة إذا سمحت.

_______________________________

سؤال آخر : هل يعني أني إذا استخدمت الوحدة النمطية في الأكسس 97 أنه لا يحتاج إلى أي عمل غير وضع الوحدة النمطية واستدعائها من ماكرو AutoExec

الأخ سعودي 31

1- أفتح أي نموذج لديك وادخل على التصميم ومنه إلى أي زر وافتح إجراء الحدث المكتوب بهذا الزر .

2- ستفتح معاك شاشة ميكوسوف فيجوال بيسك والخاصة بكتابة الكود . يوجد فيها قائمة من أعلى فيها بند اسمه tools عند الضغط على هذا البند تجد أول شيء فيها اسمه References ادخل فيه وابحث عن السطر الخاص بـ DAO السابق ذكره .

3- علم عليه صح فقط لا غير .

4- احفظ وأخرج .

أشرف خليل

فعلا بدء البرنامج يعمل بدون مشاكل الآن

شكراً جزيلاً لك أخوي أشرف خليل

والله لا يحرمك الأجر والمثوبة