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

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

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

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

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

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

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

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

 

 

IF.rarFetching info...

تم تعديل April 12 بواسطه طاهر اوفيسنا

[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.accdbFetching info...

تم تعديل April 12 بواسطه Foksh
تعديل وإضافة حلول إضافية ...

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

  في 12‏/4‏/2025 at 14:53, Foksh said:

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

Expand  

 

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

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

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

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

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

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

IFX.rarFetching info...

تم تعديل April 12 بواسطه طاهر اوفيسنا

[Foksh]

حسناً..

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

[Foksh]

  في 12‏/4‏/2025 at 19:04, طاهر اوفيسنا said:

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

 

Expand  

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

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

 

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

  في 12‏/4‏/2025 at 21:02, Foksh said:

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

Expand  

شكرا استاذ

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

السلام عليكم

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

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

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

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

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

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

 

 

enfent_6or17.rarFetching info...

تم تعديل April 13 بواسطه طاهر اوفيسنا

[ابوخليل]

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

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

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

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

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

 

enfent_6or18.rarFetching info...

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

  في 13‏/4‏/2025 at 18:43, ابوخليل said:

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

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

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

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

Expand  

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

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

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

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

 

[ابوخليل]

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

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

[Foksh]

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

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

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

  في 13‏/4‏/2025 at 19:32, ابوخليل said:

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

Expand  

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

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

  في 13‏/4‏/2025 at 19:48, Foksh said:

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

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

Expand  

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

[ابوخليل]

  في 13‏/4‏/2025 at 19:58, طاهر اوفيسنا said:

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

Expand  

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

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

 

[ابوخليل]

  في 13‏/4‏/2025 at 19:48, Foksh said:

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

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

Expand  

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

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

  في 13‏/4‏/2025 at 20:11, ابوخليل said:

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

Expand  

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

[Foksh]

  في 13‏/4‏/2025 at 19:58, طاهر اوفيسنا said:

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

Expand  

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

 

  في 13‏/4‏/2025 at 20:11, ابوخليل said:

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

Expand  

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