مطلوب تحديد محتوى كومبوبكس بناء على معلومات حقل بالنموذج

[أحمد العيسى]

السلام عليكم

بالنموذج التالى حقل النوع يظهر به كلمة : ذكر أو أنثى  تلقائياً
وذلك بعد كتابة حقل الرقم القومى والخروج منه
المطلوب أن يكون محتوى الـ  Comboboxs  
لكل من الديانة والحالة يتناسب مع هذه الكلمة تذكيراً وتأنيثاً
مثلاً  إذا كان النوع ذكر فإن محتوى الـ Combobox للديانة : مسلم ، مسيحى والإفتراضى فى الحقل  مسلم
      إذا كان النوع أنثى فإن محتوى الـ Combobox للديانة : مسلمة ، مسيحية والافتراضى فى الحقل مسلمة
كذلك :
      إذا كان النوع ذكر فإن محتوى الـ Combobox للحالة : متزوج ، أعزب ، مطلق ، أرمل  والإفتراضى متزوج
      إذا كان النوع أنثى فإن محتوى الـ Combobox للحالة : متزوجة ، آنسة ، مطلقة ، أرملة  والإفتراضى متزوجة

مرفق ملف بقاعدة بيانات تم تغيير بياناتها للسرية  وذلك لإجراء ما يلزم عليها

شكراً مقدماً

بيانات المدرسين.mdb

[Foksh]

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

اعتقد ان هناك نقطة تفصل بين المنطق والتطبيق ..

المنطق ان يتم جعل مربع النص = مربع تحرير وسرد يحتوي قيمتين ( ذكر ، أنثى ) بحيث اذا كان ذكر يتم عرض القيم الذكورية في مربعي التحرير والسرد ( الحالة الاجتماعية و الديانه ) والعكس عندما تكون قيمة كومبوبوكس النوع = أنثى .

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

 

[Foksh]

 

وهذه فكرة كما أشرت لك بتغيير نوع مربع نص Gender إلى مربع تحرير وسرد
حيث سيكون له الحدث بعد التحديث = 
 

Private Sub Gender_AfterUpdate()
    If Me.Gender.Value = "ذكر" Then
        Me.الديانه.RowSource = "مسلم;مسيحي"
        Me.الديانه.Value = "مسلم"
        Me.الحالة_الاجتماعية.RowSource = "متزوج;أعزب;مطلق;أرمل"
        Me.الحالة_الاجتماعية.Value = "متزوج"
    ElseIf Me.Gender.Value = "أنثى" Then
        Me.الديانه.RowSource = "مسلمة;مسيحية"
        Me.الديانه.Value = "مسلمة"
        Me.الحالة_الاجتماعية.RowSource = "متزوجة;آنسة;مطلقة;أرملة"
        Me.الحالة_الاجتماعية.Value = "متزوجة"
    End If
End Sub

 

بيانات المدرسين (1).mdb

[أحمد العيسى]

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

استفدت من كود حضرتك بوضعه فى  حدث بعد التحديث لحقل الرقم القومى

Private Sub National_Nr_AfterUpdate()
  Me.birth.Value = Date_Sex_Province([National_Nr], 1)
  Me.gender.Value = Date_Sex_Province([National_Nr], 2)
  Me.Mohaftha.Value = Date_Sex_Province([National_Nr], 3)

  If Me.gender.Value = "ذكر" Then
        Me.الديانه.RowSource = "مسلم;مسيحي"
        Me.الديانه.Value = "مسلم"
        Me.الحالة_الاجتماعية.RowSource = "متزوج;أعزب;مطلق;أرمل"
        Me.الحالة_الاجتماعية.Value = "متزوج"
  Else  
        Me.الديانه.RowSource = "مسلمة;مسيحية"
        Me.الديانه.Value = "مسلمة"
        Me.الحالة_الاجتماعية.RowSource = "متزوجة;آنسة;مطلقة;أرملة"
        Me.الحالة_الاجتماعية.Value = "متزوجة"
  End If

End Sub

 وبعد التجربة ، كانت النتيجة كما أردت تماماً

بيانات المدرسين.rar

تم تعديل April 12 بواسطه أحمد العيسى

[Foksh]

52 دقائق مضت, أحمد العيسى said:

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

استفدت من كود حضرتك بوضعه فى  حدث بعد التحديث لحقل الرقم القومى

Private Sub National_Nr_AfterUpdate()
  Me.birth.Value = Date_Sex_Province([National_Nr], 1)
  Me.gender.Value = Date_Sex_Province([National_Nr], 2)
  Me.Mohaftha.Value = Date_Sex_Province([National_Nr], 3)

  If Me.gender.Value = "ذكر" Then
        Me.الديانه.RowSource = "مسلم;مسيحي"
        Me.الديانه.Value = "مسلم"
        Me.الحالة_الاجتماعية.RowSource = "متزوج;أعزب;مطلق;أرمل"
        Me.الحالة_الاجتماعية.Value = "متزوج"
  Else  
        Me.الديانه.RowSource = "مسلمة;مسيحية"
        Me.الديانه.Value = "مسلمة"
        Me.الحالة_الاجتماعية.RowSource = "متزوجة;آنسة;مطلقة;أرملة"
        Me.الحالة_الاجتماعية.Value = "متزوجة"
  End If

End Sub

 وبعد التجربة ، كانت النتيجة كما أردت تماماً

بيانات المدرسين.rar 206.78 kB · 0 downloads

ما شاء الله عليك ،، ابدعت بتحوير الفكرة للمطلوب الذي تريده  .

بهذا تستطيع اغلاق الموضوع باختيار أفضل إجابة 😇 .