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

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

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

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

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

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

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

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

 

 

IF.rar

تم تعديل بالامس في 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

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

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

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

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

 

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

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

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

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

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

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

IFX.rar

تم تعديل منذ 20 ساعات بواسطه طاهر اوفيسنا

[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:

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

شكرا استاذ