تصحيح كود فى وحدة نمطية

[jo_2010]

الخبراء الافاضل

عند الضغط على زر CAREA  يظهر مربع الاختيار

مااريدة بالصور

TEST.rar

TEST.rar

تم تعديل منذ 7 ساعات بواسطه jo_2010

[Foksh]

وعليكم السلام ورحمة الله وبركاته ..

أخي جو والمتاهات في مشروعك 😅 . بعد تتبع المشكلة المشكلة لاحظت أنك كنت تستخدم المتغير strSelectedChoice مباشرة في الزر CArea ، في السطر :-

Area = strSelectedChoice
Call SetProperty("AreaValue", dbText, strSelectedChoice)

لكن لم تكن هناك أي خطوة تسند القيمة للمتغير بعد إغلاق الرسالة . فكان المتغير يعود فارغاً للدالة .

 

أيضاً في الدالة SetProperty ، كانت المشكلة عند الجزء dbs.CreateProperty !!! ففي أكسيس ( DAO ) لا تقبل إطلاقاً حفظ قيمة فارغة Null ، وعند إرسال قيمة فارغة كانت تعود لك بالخطأ 3385 .

وهنا فقط قمنا بإضافة السطر

If IsNull(varValue) Or IsEmpty(varValue) Then varValue = ""

أيضاً التصريح الصريح لكائنات DAO . حيث تم إضافة تعريفات Dim dbs As DAO.Database لضمان عدم حدوث تضارب بين مكتبتي DAO و ADO داخل أكسيس .

 

وإليه فالملف المرفق التالي بعد إجراء التعديلات :-

TEST.zip

[منتصر الانسي]

بعد إذن أخي @Foksh المشكلة مرتبطة بإستخدام صندوق الحوار TaskDialog الخاص بقائمة الخيارات RadioButton فعند إستخدام هذا النوع فإنه بحاجة إلى حدثين 

الأول يخص حدث إظهار مربع الحوار (قد يكون النقر على زر أو النقر المزدوج على عنصر تحكم أو أي حدث آخر) وتكون القيمة الراجعة منه رقم الزر الذي سيتم نقره في مربع الحوار

أما الحدث الثاني فهو حدث TaskDialog_RadioButtonClick والذي يرجع قيمة الخيار الذي تم إختياره

والمشكلة أن الأخ @jo_2010 نفذ الأول ولم ينفذ الثاني ولو كان قد ركز قليلا في كود هذا النوع ضمن أداة مربع حوار المهام لوجد أنها مكونة من الحدثين المذكورين أعلاه

عموما قمت بتعديل المثال المرفق بعد إضافة الحدث TaskDialog_RadioButtonClick وتم تنفيذ العمل بدون أخطاء

تحياتي 

TEST.rar