سؤال سؤال : بخصوص جلب الرسائل من جدول

[ابو جودي]

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

هذا المرفق ناتج عن تطبيق إرشادات معلمى الجليل 

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

- ماذا لو تم فقد الجدول الخاص بالرسائل لاى سبب ايا كان
- ماذا لو تم حذف اسطر الرسالة من الجدول 
-ماذا لو تم تغير المعيار الذى استخدمه لجلب الرسالة 
-ماذا لو تم حذف السجل كاملا و الخاص بتلك الرسالة   ... وماذا لو ولو ولو    بلا بلا بلا بلا

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

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

ولكن متعب لانه عند كل رساله  لابد من كتابة هذه الاسطر
السؤال : هل ممكن اختزالها بشكل ما او عمل كود فى موديول ليسهل الامر
لمشاهدة النتيجة
- غير اسم الجدول على اعتبار انه تم حذفه  وجرب
- غير المعيار aa  من داخل الجدول 
- امسح كل اسطر الرساله من الحقول MsgLin1   و   MsgLin2  و MsgLin3   و  MsgLin4    و   MsgLin5 

محاور العمل
تلافى مسح الجدول او تغيير اسمه 
المعيار المستخدم لجلب الرسالة التأكد من وجوده اولا داخل الجدول 
ان لا تكون اسطر الرسالة خالية  ( على الأقل سطر واحد لتظهر الرسالة من واقع الجدول )

On Error GoTo ErrHandler

If Len(DLookup("[MyCriteria]", "tbllvlUsefulData", "MyCriteria ='aa'") & "") = 0 Then
    MyMesg ("This alternative message is in English" & vbCrLf & "Due to a bugs in the message table"), vbOKOnly, "The idea of a professor /" & strUserLogin
Else
    strMyCriteria = "MyCriteria ='aa'"
    If Len(txtOfMesg & "") = 0 Then
        MyMesg ("This alternative message is in English" & vbCrLf & "Due to a bugs in the message table"), vbOKOnly, "The idea of a professor /" & strUserLogin
    Else
        If Len(strMsgTitle & "") <> 0 Then
            MyMesg (txtOfMesg), vbOKOnly, strMsgTitle & strUserLogin
        Else
            MyMesg (txtOfMesg), vbOKOnly, "NEW Title" & strUserLogin
        End If
    End If
End If

ErrHandler:
    If Err = 3078 Then Resume Next

 

الرسائل من داخل جدول.mdb

تم تعديل يوليو 22, 2019 بواسطه ابا جودى

[ابوآمنة]

6 ساعات مضت, ابا جودى said:

- ماذا لو تم فقد الجدول الخاص بالرسائل لاى سبب ايا كان
- ماذا لو تم حذف اسطر الرسالة من الجدول 
-ماذا لو تم تغير المعيار الذى استخدمه لجلب الرسالة 
-ماذا لو تم حذف السجل كاملا و الخاص بتلك الرسالة   ... وماذا لو ولو ولو    بلا بلا بلا بلا

نبارك لك اخي الكريم @ابا جودى  على التميز والانجاز وليسى بمستغرب عليكم

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

وأقول كما قالت المقوله :

 

اقتباس

المعلم الناجح يتوقع من طلابه تحقيق النجاح، فالطالب يحتاج إلى من يثق في قدراته و مواهبه ، و يحفزه و يشجعه في مسيرته الدراسية .

فشكراً لك ابا جودى 

دائماً تتحفنا بجديدك منقطع النظير .

سلمت يمينك 

تم تعديل يوليو 23, 2019 بواسطه ابوآمنة

[ابو جودي]

up

 

[jjafferr]

وعليكم السلام 🙂

 

في الواقع في امور ما يحتاج ان نعطيها اكثر من حجمها ، وإلا ، فالإحتمالات لا تنتهي !!

هذا الجدول مثله مثل اي جدول ، Users مثلا ، اذا تم حذف هذا الجدول فماذا سيحصل للبرنامج !!

 

هناك طريقتين بسيطتين بأتون على بالي الآن:

1. اول ما تفتح البرنامج ، تأكد عن وجود الجدول (الجداول الاساسية) ، اذا ما موجود ، اخرج من البرنامج بعد اعطاء رسالة بعدم وجود الجدول الفلاني الذي يعتمد عليه البرنامج ، بس المستخدم المسكين شو ممكنه يعمل!!

2. وبما انني اعرف انك لن تقبل بالطريقة اعلاه ، فاليك طريقة ثانية ، وهي ان تجعل هذا الجدول كما هو ، وتستعمله كل مكان في البرنامج ، وتعمل منه نسخة اضافية يبدأ اسمه Msys حتى يكون مخفي ،

ولما تفتح قاعدة البيانات ، تتأكد من وجود الجدول كما هو ، وإلا ، فتقوم بنسخه من الجدول الاحتياط 🙂

طبعا بدلا عن جدول الاحتياط ، تقدر يكون عندك ملف txt تحتفظ به في البرنامج بطريقة Blob او كمرفق ، ولما يفتح البرنامج ، تستخدمه للتأكد من بيانات الجدول ، او وجود الجدول.

 

قد تكون هناك طرق اخرى ، ولكني دائما اميل الى البساطة 🙂

 

جعفر

[ابو جودي]