اعلام بوفاة عن طريق MsgBox

[طاهر اوفيسنا]

السلام عليكم اساتذتي الكرام اريد التعديل على كود عند النقر على اسم الزوجة او الزوجة ينبهني لحالة الوفاة علما في حالة الزوجة hamech=4 والزوج يساوي 2 الكود موجود في A1 يحتاج إلى تعديل  فقط 

MsgBox وفاة.rar

[Foksh]

 أخي طاهر ، الواضح من خلال الكود انك تعتمد على مربع النص IDM كشرط للحصول على رقم الهامش للزوجة ، ولكن!!

مربع النص IDM عند الكود التالي :-

If SearchListZ.ListIndex = -1 Then Me.IDM = SearchListZ.Column(0, 1) Else: Me.IDM = SearchListZ.Column(0)
    Cr = DLookup("Hamech", "Tbl_ZAWJA", "IDM =" & Me.IDM)
    If Cr = 4 Then
       MsgBox " تنبيه ! هذه الزوجة متوفيه"
       DoCmd.Close acForm, "A1"

تكون قيمته = تاريخ ميلاد الزوجة ، وهنا لا تتم المقارنة بالشرط بشكل صحيح .

لذا ، انشئ مربع نص جديد على سبيل المثال Tx_IDM ، واجعل قيمته = رقم الزوجة

Me.Tx_IDM = [Forms]![Search_Frm]![IDM]

ثم عدل الجزء السابق ليصبح :-

If SearchListZ.ListIndex = -1 Then Me.IDM = SearchListZ.Column(0, 1) Else: Me.IDM = SearchListZ.Column(0)
    Cr = DLookup("Hamech", "Tbl_ZAWJA", "IDM =" & Me.Tx_IDM)
    If Cr = 4 Then
       MsgBox " تنبيه ! هذه الزوجة متوفيه"
       DoCmd.Close acForm, "A1"

وعليه سيظهر لك مسج انه هذه الزوجة متوفية ، ونفس الشيء عند الزوج في مربع النص IDP ، هو شرط لجلب قيمة الهامش ، ولكن قيمته = تاريخ ميلاد الزوج

 

قمت بذكر المشكلة وتركت الحل لك لتتبين لك الأمور بشكل واضح .

[طاهر اوفيسنا]

35 دقائق مضت, Foksh said:

قمت بذكر المشكلة وتركت الحل لك لتتبين لك الأمور بشكل واضح .

شكرا استاذي العزيز