عمل مجموعة أرقام

[اسلام الكبابى 17]

لدى جملة طويييييييلة بسبب أرقامها الكثيييييرة أحتاجها كثيرآ فى الكود
وأريد اخنصارها بدلآ من تكرارها بنفس هذا الطووووول

كود :

X = Val(Text1.Text)
Y = 200
If X = 7 Or X = 20 Or X = 23 Or X = 38 Or X = 69 Or X = 188 Or X = 213 Or X = 239 Or X = 246 Then Y = 100
Print Y

ألا يمكن عمل مجموعة تحتوى هذه الأرقام
بحيث تكون صيغة هذه الجملة الشرطية الطويييييييلة هكذا

THEN Y=100    ضمن أرقام المجموعة     IF X

ولكم ألف شكر

[اسلام الكبابى 17]

أم لابد لعمل ذلك من عمل جدول من حقل واحد بقاعدة بيانات

ووضع هذه الأرقام فيه كسجلات

وكلما أردت كتابة هذه الجملة كتبت جملة البحث select عن قيمة X فيه

ألا يمكن عمل ذلك بطريقة سهلة بدلآ من هذا اللف والدوران ؟

ولكم ألف شكر

 

 

[اسلام الكبابى 17]

ألا يمكن الاستغناء عن هذه الجملة الطويييييييلة .......... OR...OR...OR...OR...OR...OR

ولكم ألف شكر