تعديل على كود دالة IF

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

السلام عليكم اساتذتي الكرام 

وجدت مشكلة عند تنفيذ دالة IF

عند الضغط على اول عنصر في مربع تحرير وسرد C8 يجعل              خانه الاختيار S1=-1 

عند الضغط على ثاني عنصر في مربع تحرير وسرد C8يجعل            خانه الاختيار S2=-1

عند الضغط على ثالث عنصر في مربع تحرير وسرد C8 يجعل          خانه الاختيار S3=-1

عند الضغط على رابع عنصر في مربع تحرير وسرد C8يجعل             خانه الاختيار S4=-1

 

 

IF.rar

تم تعديل السبت at 14:44 بواسطه طاهر اوفيسنا

[Foksh]

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

أولاً يجب تنبيهك الى ضرورة حذف المسافة الزائدة من الاختيار الرابع من الكومبوبوكس C8 

الآن في حدث بعد التحديث ، استعمل الكود التالي :-

Private Sub C8_AfterUpdate()
    Me.s1 = False
    Me.s2 = False
    Me.s3 = False
    Me.s4 = False
    Select Case Me.C8.Value
        Case "سكن اجتماعي"
            Me.s1 = True
        Case "سكن أقارب"
            Me.s2 = True
        Case "سكن مؤجر"
            Me.s3 = True
        Case "محل غير قابل للسكن (مستودع، فوضوي، قبو)"
            Me.s4 = True
    End Select
End Sub

حيث استخدمت الدالة Case بدلاً من الجمل الشرطية If

 

 

وطبعاً يوجد حل آخر بعيد عن تحديد القيم النصية من الكومبوبوكس ( وخصوصاً أنها باللغة العربية ) ، بحيث نستخدم الـ Index أو فهرس الكومبوبوكس نفسه كالتالي :-

Private Sub C8_AfterUpdate()
    Me.s1 = False
    Me.s2 = False
    Me.s3 = False
    Me.s4 = False
    Select Case Me.C8.ListIndex
        Case 0
            Me.s1 = True
        Case 1
            Me.s2 = True
        Case 2
            Me.s3 = True
        Case 3
            Me.s4 = True
    End Select
End Sub

 

وهذا أيضاً حل ثالث :-

Private Sub C8_AfterUpdate()
    Me.s1 = (Me.C8.Value = "سكن اجتماعي")
    Me.s2 = (Me.C8.Value = "سكن أقارب")
    Me.s3 = (Me.C8.Value = "سكن مؤجر")
    Me.s4 = (Me.C8.Value = "محل غير قابل للسكن (مستودع، فوضوي، قبو)")
End Sub

 

 

IF.accdb

تم تعديل السبت at 15:27 بواسطه Foksh
تعديل وإضافة حلول إضافية ...

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

1 ساعه مضت, Foksh said:

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

 

شكرا استاذ على الحل  المفيد فعلا المسافة تعمل مشكلة

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

استاذي العزيز  Foksh

اذا استبدلت مربع خانة الاختيار بمربع عادي غير منظم وتكون النتيجة فيه X

صراحة لان خانة الاختيار في التقرير ظهرت حجمها صغير جدا

قكيف يتم استبدالها

IFX.rar

تم تعديل السبت at 19:19 بواسطه طاهر اوفيسنا

[Foksh]

حسناً..

سألقي نظرة على الملف حال وصولي للكمبيوتر 🤗 

[Foksh]

1 ساعه مضت, طاهر اوفيسنا said:

اذا استبدلت مربع خانة الاختيار بمربع عادي غير منظم وتكون النتيجة فيه X

 

إليك هذا التعديل اخي الكريم :-

Private Sub C8_AfterUpdate()
    Me.s1 = Null
    Me.s2 = Null
    Me.s3 = Null
    Me.s4 = Null
    Select Case Me.C8.ListIndex
        Case 0
            Me.s1 = "X"
        Case 1
            Me.s2 = "X"
        Case 2
            Me.s3 = "X"
        Case 3
            Me.s4 = "X"
    End Select
End Sub

 

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

منذ ساعه, Foksh said:

إليك هذا التعديل اخي الكريم :-

شكرا استاذ

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

السلام عليكم

تكملة للبرنامج

البرنامج يحتوي على :

- رقم الزوج  - رقم الزوجة غالبا يكونان نفس الرقم ولكن فما حالات الزوج لديه زوجة ثانية هنا يختلف رقم الزوجة

والابناء يحتون على رقم الزوج ورقم الزوجة

وجدت مشكلة في فلترة الاطفال الذين تترواح اعمارهم مابين 6 سنوات الى 17 سنة اي سن التدريس في فورم A4

في حالة اختلاف رقم الازواج والصورة توضح ذلك

 

 

enfent_6or17.rar

تم تعديل الأحد at 17:48 بواسطه طاهر اوفيسنا

[ابوخليل]

جرب هذا التعديل

التعديل : جعلت المعيار معرف الأم بدل الأب

ايضا ادخلت جدول الزوجات في الاستعلام

ليصبح العرض : الزوج / الزوجة/ الابناء

كذا يتم عرض الابناء حسب الزوجة

 

enfent_6or18.rar

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

32 دقائق مضت, ابوخليل said:

التعديل : جعلت المعيار معرف الأم بدل الأب

ايضا ادخلت جدول الزوجات في الاستعلام

ليصبح العرض : الزوج / الزوجة/ الابناء

كذا يتم عرض الابناء حسب الزوجة

شكرا استاذي الجليل أبو خليل

سؤال : التصفية حسب معيار العمر من 6 سنوات الى 17 يظهر وغيرهم لايظهر في SearchListZT

تكون هكذا كما في الاستعلام

 And ((Year(Date())-[anneNes])>=6 And (Year(Date())-[anneNes])<=17));

 

[ابوخليل]

انا لم اتعرض للتصفية

ما المطلوب ؟ . لطفا .. لم افهم

[Foksh]

أعتقد هذا يحتاج موضوع جديد 😅

لأن المطلوب الثاني مختلف عن عنوان المشاركة والطلب الأول .

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

20 دقائق مضت, ابوخليل said:

ما المطلوب ؟ . لطفا .. لم افهم

لا مجرد سؤال استاذي 

سئلتك هل  معيار التصفية يفي بالغرض وبدون اي مشاكل مستقبلا لاني فكرت في معيار بدالة Between

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

أعتقد هذا يحتاج موضوع جديد 😅

لأن المطلوب الثاني مختلف عن عنوان المشاركة والطلب الأول .

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

[ابوخليل]

10 دقائق مضت, طاهر اوفيسنا said:

لا مجرد سؤال استاذي 

المهم النتيجة الصحيحة التي تؤدي الغرض

واعتقد ان الموجود حاليا اخف على الاستعلام

 

[ابوخليل]

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

أعتقد هذا يحتاج موضوع جديد 😅

لأن المطلوب الثاني مختلف عن عنوان المشاركة والطلب الأول .

كنت اظن ان الموضوع جديد واني اول من قام بالرد  😕

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

12 دقائق مضت, ابوخليل said:

كنت اظن ان الموضوع جديد واني اول من قام بالرد  😕

عموما الف شكر استاذي الجليل الله ينفعنا بعلمك 

[Foksh]

15 ساعات مضت, طاهر اوفيسنا said:

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

لا اعلم فعلاً إن كان المحتوى واحد ,,  ..

 

15 ساعات مضت, ابوخليل said:

كنت اظن ان الموضوع جديد واني اول من قام بالرد  😕

وكيف أفتي في مدينتكم  ..