الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

مساعدة فى اداة combo

مغلق
بدأه walid_alex في 7 أكتوبر 2006 · 4 رد · 676 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

Private Sub Form_Load()

Dim a As String

Do While Not eim.rscustomer.EOF = True

a = eim.rscustomer.Fields("اسم العميل").Value

'كلمة اسم العميل ' هنا تمثل اسم الحقل في قاعدة البيانات

Combo1.AddItem a

Loop

End Sub

اريد معرفة ما هو الخطأ فى هذا الكود حيث انة يعمل بلا نهاية

combo.doc

#2

يجب أن تعطي أمر للتنقل للعنصر التالي

movenext

من قال لا إله إلا الله صادقا دخل الجنة

موقعي للتعارف و تبادل الأخبار http://www.xybond.com

#3

شكرا اخى على الرد

ولكنى كتبت السطر التالى و يعطينى رسالة خطأ فية

eim.rscustomer.movenext

الرجاء توضيح سبب الخطأ و الطريقة الصحيحة

#4

السلام عليكم

أخى الكريم جرب الكود بهذه الطريقه

Dim a As String
Do While Not eim.rscustomer.EOF
a = eim.rscustomer.Fields("اسم العميل").Value
Combo1.AddItem a
eim.rscustomer.movenext
Loop

Never Give Up You Are Programmer

Being Genius Is The Step Before Madness

Artificial Intelligence Is No Match For Natural Stupidity

#5

يا اخواني

لا ينفع ان يكون اسم الحقل باللغة العربية ولا يصلح ان يكون به مسافات فجرب ان تحوله الى حروف انجليزية وشيل المسافات

ولاحظ ان اسماء الحقول دي المستخدم لا يعرف عنها شئ يعني المستخدم لا يراها ابدا يتعامل معا بس وانت الوحيد اللي عارفها من الممكن ان تغير اسمه الى Name_cust

Mohamed Ali Salim

0.1..0...4....7.....6......2.......7........4.........8

هذا الموضوع مغلق.

مواضيع مشابهة