تعليمة للمقارنة مع اكثر من قيمة

[محمد ايمن]

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

اصدقائي هل يمكن لتعليمة الشرط if المقارنة مع اكثر من قيمة

لدي 12 حقل و لا ارغب في تكرار البيانات في احدا الحقول.

قمت بكتابة هذا الكود و لكن ظهرت رؤسالة خطأ و هي tupe mismatch

الكود

If Me.Product1 = Me.Product2 Or Me.Product3 Or Me.Product4 Or Me.Product5 Or Me.Product6 Or Me.Product7 Or Me.Product8 Or Me.Product9 Or Me.Product10 Or Me.Product11 Or Me.product12 Then

MsgBox "اسم المادة موجود يرجى إدخال اسم آخر", vbCritical

Else

DoCmd.GoToControl "number1"

End If

هل هذا الكود صحيح ام خطأ و هل يمكن لتعليمة if اساسا المقارنة مع اكثر من قيمة ؟؟؟؟؟؟؟

ولكم جزيل الشكر سلفا

[أحمد خلف]

اخي الفاضل و

عليكم

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

يمكن ل If عمل اكثر من ذلك ايضا

ولكن تأكد من وجود هذا الكونترول وهو

number1 في

"DoCmd.GoToControl "number1

وتأكد من وجود الكود في مكانه الصحيح.

والله الموفق.

[محمد ايمن]

اخي الكريم

الحمدلله تم حل المشكلة و لكن تم تعديل الكود الى التالي

If Me.Product2ID = Me.Product1ID Then

Me.Number2 = 0

ElseIf Me.Product2ID = Me.Product3ID Then

Me.Number2 = 0

ElseIf Me.Product2ID = Me.Product4ID Then

Me.Number2 = 0

ElseIf Me.Product2ID = Me.Product5ID Then

Me.Number2 = 0

ElseIf Me.Product2ID = Me.Product6ID Then

Me.Number2 = 0

ElseIf Me.Product2ID = Me.Product7ID Then

Me.Number2 = 0

ElseIf Me.Product2ID = Me.Product8ID Then

Me.Number2 = 0

ElseIf Me.Product2ID = Me.Product9ID Then

Me.Number2 = 0

ElseIf Me.Product2ID = Me.Product10ID Then

Me.Number2 = 0

ElseIf Me.Product2ID = Me.Product11ID Then

Me.Number2 = 0

ElseIf Me.Product2ID = Me.product12ID Then

Me.Number2 = 0

End If