اريد معرفت خطائي في داله for

[bekhet2003]

اريد عندما اختار رقم من الكمبو بوكس يظهر لي في رساله عن     اريد معرفه خطائي في داله  array   for

داله for.zip

[علي المصري]

اضف كلمة value

Private Sub Combo2_AfterUpdate()
Dim i As Integer

Dim Num1 As Variant

Num1 = Array(2, 6, 8, 25, 28, 62)

For i = 0 To 5
If Me.Combo2.Value = Num1(i).Value Then

MsgBox Combo2.Value: Exit Sub

Else

MsgBox ("لا يوجد هذا الرقم")

End If

Next

End Sub

 

اخي الكريم

هل جربت الكود

لاني فتح قاعدة البيانات مرة أخرى لم يعمل معي

متأسف على الخطأ

وان شاء الله نتوصل للحل بمساعدة أعضاء المنتدى الكرام

 

[bekhet2003]

لا يعمل معي

 

[رمهان]

عزيزي 

استخدم الدالة val  للمقارنة حيث المصفوفة من نوع فارينت والكمبو رقم !

If Val(Combo2.Value) = Val(num1(i)) Then

لكن هل ممكن شرح انت تريد ماذا ؟ قد يكون هناك كود اسهل !  حسب فهمي تريد ان تشيك وجود الارقام التي بالمصفوفة في القائمة ! صحيح ؟

اذا كان صحيح هناك طريقة اسهل وللعلم طريقتك او خوارزميتك ستظل تظهر سالة عدم وجود الرقم الى ان يتم وجوده !

 

بالتوفيق