bekhet2003 قام بنشر ديسمبر 9, 2015 قام بنشر ديسمبر 9, 2015 اريد عندما اختار رقم من الكمبو بوكس يظهر لي في رساله عن اريد معرفه خطائي في داله array for داله for.zip
علي المصري قام بنشر ديسمبر 9, 2015 قام بنشر ديسمبر 9, 2015 اضف كلمة 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 اخي الكريم هل جربت الكود لاني فتح قاعدة البيانات مرة أخرى لم يعمل معي متأسف على الخطأ وان شاء الله نتوصل للحل بمساعدة أعضاء المنتدى الكرام 1
رمهان قام بنشر ديسمبر 9, 2015 قام بنشر ديسمبر 9, 2015 عزيزي استخدم الدالة val للمقارنة حيث المصفوفة من نوع فارينت والكمبو رقم ! If Val(Combo2.Value) = Val(num1(i)) Then لكن هل ممكن شرح انت تريد ماذا ؟ قد يكون هناك كود اسهل ! حسب فهمي تريد ان تشيك وجود الارقام التي بالمصفوفة في القائمة ! صحيح ؟ اذا كان صحيح هناك طريقة اسهل وللعلم طريقتك او خوارزميتك ستظل تظهر سالة عدم وجود الرقم الى ان يتم وجوده ! بالتوفيق 1
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.