التحقق من شرطين قبل الحفظ فى النموذج

[محمد السيد الشاطر]

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

 

998.تجربة.rar

[midomashakel]

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

راجع هذا الموضوع

[محمد السيد الشاطر]

أخى الكريم مشكور على ردك الجميل وجارى المحاولة للاستفادة من كود الاستاذ المحترم جعفر 

[ابو جودي]

انا لم اقهم .
الاول ممكن بس تشرح لى البرنامج الية عمله

يتملكنى احساس بوجود هلل ما فىالاكواد هذا والا انا لم استطع الفهم بوضوح

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

[محمد السيد الشاطر]

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

[ابو جودي]

بالفعل وجدت الكثير من الاخطاء فى بناء الاستعلامات داخل الجدول قمت بتعديل كل شئ 

كما اننى قمت بالاجابة بفكرة اجمل

الطالب الذى يتم تسجيل غياب له يختفى اسمه من القائمة المنسدلة لنفس التاريخ 

انتظر ردك 

998.تجربة.accdb

[kha9009lid]

استاذ محمد عصام تمام وفكرة اخفاء الاسم من القائمة جيدة

ولكن تغيير التاريخ ليوم سابق يقبل التكرار ولا يختفي الاسم من القائمة

[ابو جودي]

10 دقائق مضت, kha9009lid said:

استاذ محمد عصام تمام وفكرة اخفاء الاسم من القائمة جيدة

ولكن تغيير التاريخ ليوم سابق يقبل التكرار ولا يختفي الاسم من القائمة

فى مربع النص textdate على النموذج الرئيسي اضف السطر التالى فى الحدث  AfterUpdate

Private Sub textdate_AfterUpdate()
Me.combostudentname.Requery
frmAbsence.Requery   '  <<----------<   اضف هذا السطر 
End Sub

 

[محمد السيد الشاطر]

عمل اكثر من رائع استاذ محمد زادك الله علما لكن بحاول ادرس ما قمت بفعله 

[محمد السيد الشاطر]

استاذ محمد عصام بعد التحية والتقدير لشخصك الكريم 

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

 

تم تعديل يونيو 13, 2019 بواسطه محمد السيد الشاطر

[ابو جودي]

كتابة الاسم والضغط على انتر 

اين يتم الكتابة

[محمد السيد الشاطر]

فى الكمبو بوكس اللى موجود فيه اسم الطالب لا تفترض دائما ان المستخدم سيستخدم الماوس 

[ابو جودي]

19 دقائق مضت, محمد السيد الشاطر said:

فى الكمبو بوكس اللى موجود فيه اسم الطالب لا تفترض دائما ان المستخدم سيستخدم الماوس 

اتفضل 

998.تجربة.accdb

[محمد السيد الشاطر]

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

[midomashakel]

في ١٣‏/٦‏/٢٠١٩ at 07:32, ابا جودى said:

الطالب الذى يتم تسجيل غياب له يختفى اسمه من القائمة المنسدلة لنفس التاريخ 

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

الاخ المبدع / ابا جودى 

ما شاء الله عليك ممكن تشرح هذه الجزئية بالتفصيل

[midomashakel]

ابا جودى 

ربنا يكون في عونك انا عارف انك مشغول جدا   بس ما تنسناش انك تشرح الكود

وفي ملحوظة اخرى على البرنامج

بافتراض اانا قفلت البرنامج واعدت تشغيلة وحابيت اضيف اسم بنفس التاريخ بالخطأ البرنامج يعطي رسالة خطأ

كما في الصورة

عند اضافة اسم دعاء السيد لنفس التاريخ 13/6/2019

ولا يغلق البرنامج بصورة طبيعية

 

[ابو جودي]

3 دقائق مضت, midomashakel said:

ابا جودى 

ربنا يكون في عونك انا عارف انك مشغول جدا   بس ما تنسناش انك تشرح الكود

وفي ملحوظة اخرى على البرنامج

بافتراض اانا قفلت البرنامج واعدت تشغيلة وحابيت اضيف اسم بنفس التاريخ بالخطأ البرنامج يعطي رسالة خطأ

كما في الصورة

عند اضافة اسم دعاء السيد لنفس التاريخ 13/6/2019

ولا يغلق البرنامج بصورة طبيعية

 

 اولا بالنسبة الى هذه المشكلة لم تعد موجوده اصلا وانتهت مع المرفق الاخيـــــــــــر

https://www.officena.net/ib/applications/core/interface/file/attachment.php?id=159809

بخصوص الشرح اسف جدا لم انتبه الا الان لطلب حضرتك

جارى اعداد الشرح ابشر

[midomashakel]

عفوا سيدي ...

الرسالة من اخر تعديل حضرتك ارفقته

المشكلة تاتي بعد غلق البرنامج واعادة تشغيله

واضافة اسم موجود من قبل وبنفس التاريخ

كما اخبرتك

[ابو جودي]

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

On Error Resume Next
        Response = False
        combostudentname = Empty
        MsgBox "تم تسجيل الغياب لهذا الاسم من قبل او انك كتب اسم غير صحيح"

السطر الاول     On Error Resume Next
الاستمرار عند وجود اى خطأ

السطر التانى    Response = False  اى عدم الاستجابة 

السطر الثالث   combostudentname = Empty    تفريغ مربع السرد من القيمة التى يحتويها 

السطر الثالث رساله تفيد انه اما تم تسجيل الاسم من قبل لنفس التاريخ او ان الاسم اصلا غير صحيح ولم يتم ادراجه

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

[ابو جودي]

6 دقائق مضت, midomashakel said:

عفوا سيدي ...

الرسالة من اخر تعديل حضرتك ارفقته

المشكلة تاتي بعد غلق البرنامج واعادة تشغيله

واضافة اسم موجود من قبل وبنفس التاريخ

كما اخبرتك

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

تم تسجيل الغياب لهذا الاسم من قبل او انك كتب اسم غير صحيح

[midomashakel]

اتفق مع حضرتك في هذه النقطة تماما

المشكلة في اختيار اسم موجود بالفعل ومسجل من قبل بنفس التاريخ

حضرتك جرب تسجل اسم موجود من قبل وبنفس تاريخ التسجيل المسبق سوف جد المشكلة

 

ارجو من حضرتك شرح كود استبعاد الاسم بعد تسجيل الغياب

 

الاختلاف في الراي لا يفسد للود قضية

تقبل تحياتي

 

[ابو جودي]

انا فعلا جربت والله ولم تحدث المشكلة
هناك فكرة اخرى ان كانت المشكلة لا تزال قائمة عندك على الرغم من ان صاحب المشاركة لم يفيد بوجودها  
الكود الموجود على زر الامر حفظ ممكن نضع بعد  Else

قاعدة if مع  DCount لجدول الغياب برقم الطالب طبقا لمربع السرد والتاريخ بالنموذج وان كانت النتيجة 0 يستكمل باقى الكود والى exit sub 

 

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

[midomashakel]

ممكن تكون المشكلة من عندي انا

 

المهم المفيد عايز افهم الكود بالتفصيل

عشان محتاجة بشغل كتير في برنامج الوارد والصادر اللى شغال عليه

ارجوك اشرح الكود بالتفصيل الممل

 

تقبل تحياتي

[ابو جودي]

ناتى لمسالة اختفاء اسم الطالب من التحرير والسرد لنفس التاريخ  وشرح الالية التى توصلنا الى هذه النتيجة

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

فى غضون دقائق قليلة ان شاء الله تجد الموضوع 

 

[midomashakel]

في انتظارك على احر من جمر

بالتوفيق ابا جودي