يرجى تعديل كود ملء مربع تحرير وسرد إذا كان هو السبب

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

السلام عليكم

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

إذا كانت ذكر فيتم ملئ مربعى التحرير والسرد :الديانة (مسلم،مسيحى. والافتراضى مسلم) ، الحالة(متزوج،أعزب،مطلف،أرمل. والافتراضى متزوج)

وإذا كان أنثى فيتم ملئ نفس المربعين السابقين بما يتناسب والتأنيث

عند إضافة أى سجل جديد يوجد مشكلة فى تأنيث قائمة السرد ولا توجد فى المذكر

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

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

وإليكم بعض الأرقام القومية على سبيل التجربة لمن يريد إختبار ما سبق :

26507111201809        أنثى
28603110400251        ذكر
27301052700568        أنثى
27908100400212        ذكر
28101200400409        أنثى

 

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

[Foksh]

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

 

فقط غير في الكود من "أنثى" إلى "انثى" ( بدون الهمزة فوق الألف )   .

 

ولتفريغ مربعي السرد ( الديانه والحالة الاجتماعية ) ، في حدث عند التحميل مثلاً أضف ما يلي :-

    Me.الديانه.RowSource = ""
    Me.الديانه.Value = Null
    Me.الحالة_الاجتماعية.RowSource = ""
    Me.الحالة_الاجتماعية.Value = Null

 

تم تعديل الخميس at 14:33 بواسطه Foksh

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

تمام  .. الله ينور

شكراً  لحضرتك

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

  Me.الديانه.RowSource = ""
' Me.الديانه.Value = Null
  Me.الحالة_الاجتماعية.RowSource = ""
' Me.الحالة_الاجتماعية.Value = Null

لزم التنويه

[Foksh]

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

لزم التنويه

الأمر يعود لحاجتك ومتطلباتك