الكود التالي لا يعمل معي والكومبو بكس لا يعرض حقل الجدول user_tab
رغم أني فاتح الجدول بالكود في نفس الفورم لوود وفاتح قاعدة البيانات في الشاشة الرئيسية
الكود هو
If rs.RecordCount = 0 Then Exit Sub rs.MoveFirst Do While rs.EOF Me.Combo2.AddItem rs![user_name] Me.Combo2.ItemData(Combo2.NewIndex) = rs![user_name] rs.MoveNext Loop
اذن أين المشكلة
[/size=4]
اخي العزيز قم بارفاق البرنامج الزي يحتوي علي المشكلة وان شاء الله سوف نقوم بتصحيح الخطا ان وجد لعللي وعسا ان انتا تكون نسيت كود او وضعته في مكان خاطا .....
للشباب الذين شاركوني المشكلة جزاكم الله خيراً على الإهتمام
طبعاً أنا جربت رسالة اختبار الاتصال بالجدول ونجح الاتصال
لكن تحميل البرنامج صعب لأنه ذو حجم كبير شويه
أرجوا المعاونة جزاكم الله خيراً
أحمــــد
ياشباب حد يشاركني المشكلة
بارك الله فيكم جميعاً
ياشباب
مومعقول ماحد يشترك في ها المشكلة جزاكم الله خيرا
الموضوع مهم واتأخرت في البرنامج كتير
رجاء الدخول والمشاركة وشكراً لأساتذة الفيجول في ذلك المنتدى الرائع
أحمـــد
عندي مشاركة على هذا الرابط ربما تفيدك
"نحن لا نستسلم... ننتصر أو نموت.... وهذه ليست النهاية... بل سيكون عليكم أن تحاربوا الجيل القادم والاجيال التي تليه... اما أنا... فإن عمري سيكون أطول من عمر شانقي."
عمر المختار
اللهم انعم على بلادي بالأمن والأمان
مشكووووووووووور أخي عبد الجليل جداًَ جداً على المشاركة افتح الأن الرابط وسأطلعك على ما توصلت اليه
بارك الله فيك
اخي عبد الجليل
بارك الله فيك
الحمد لله انتهت المشكلة ولله الفضل والمنة وهناك تعليق فقط حتى تكتمل الفائدة لكل من بحث عن تلك المشكلة من رواد المنتدى
فقد وصلت للرابط وطبعاً الموديول وتحميل قاعدة البيانات والجدول كل ذلك شغال عندي كويس لكن المشكلة كانت في استعراض البيانات من حقل user_name
داخل الكومبو بكس
والكود الذي نسخته منك هو
s1 = "select ItemName from Items" Call rs_state(rs) Do While Not rs.EOF Combo2.AddItem rs!ItemName rs.MoveNext Loop
طبعاً عرفنا s1 كمتغير نصيى dim s1 as string
وعدلت الكود بما يتناسب مع الشغل عندي لكني وجدت مشكلة في السطر
call rs.state(rs)
وعندما قمت بإلغاء السطر كاملاً عمل الكومبو بكس معي بشكل جيد
وإليك وإلى جميع الزملاء الكود في شكله الجديد
s1 = "select user_name from user_tab" Do While Not rs.EOF Combo2.AddItem rs![user_name] rs.MoveNext Loop
شكراً جزيلاً لك ولكل شباب المنتدى
هذا الموضوع مغلق.
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…
