كيف أجعل Combo Box يظهر رقم العميل واسم العميل في نفس السطر عند عمل Drop Down

السلام عليكــم ورحمـة الله وبركاتــه ،،

تستطيع ذلك عن طربق طود الاضافة لـCombo

Combo1.AddItem ((اسم الحقل) + " " + (اسم الحقل))

اتمنى ان يكون هذا ما تريد

السلام عليكم

مشكورة ياأخي بس ممكن تساعدني أريد كود لعرض حسب الطلب

مثلا عندي اثنين كومبو أريد أن يعرض في الكومبو الثاني على حسب اختياري للشيء في الكومبو الأول

أرجو الرد

البيانات من قاعدة بيانات ؟ ولا يتم اضافتها عن طريق الكود في الكومبو 2

شكرا أخواني لتعاونكم

اخي غالب ... حربت الكود اللي وضعته ولم يظبط معي

Private Sub Combo3_DropDown()

SQL = "SELECT * FROM dispeople "

Set DISS = db.Execute(SQL)

DISS.MoveFirst

Combo3.Clear

Do While Not DISS.EOF

' هذا هو السطر اللي يعمل عندي

Combo3.AddItem DISS("discode")

' حاولت مع السطور الثلاثة التالية ولكن تظهر رسالة خطأ

'Combo3.AddItem DISS((discode) + " " + (disname))

'Combo3.AddItem DISS(("discode") + ("disname"))

'Combo3.AddItem DISS((discode) + " " + (disname))

DISS.MoveNext

Loop

End Sub

---------------------

ارجو المساعدة من الجميع

وفقكم الله

شكل الكود غير مفهوم ارجوا ان يكون افضل الأن

يا أخي ليش ماتستعمل الكود في الفورم لود أنا جربته ضبط معي

بس فيه شوية تغيير

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

الكود كما يلي

SQLs = "select * from ghw"

If t1.State = adStateOpen Then t1.Close

t1.Open SQLs, DB, adOpenKeyset, adLockPessimistic

Combo1.Clear

If t1.RecordCount <> o Then

t1.MoveFirst

For i = 0 To t1.RecordCount - 1

Combo1.AddItem t1!aha_name & " _ " & t1!sty_number

t1.MoveNext

Next i

End If

طبعا لازم الجدول اللي راح يكون فيه البيانات يحتوي على نوع الهاتف وموديلة فإذا كان هكذا

لفو افترضنا عندي الجدول اسمه T_MODELS ويحتوي على الحقول التالية PhoneType وPhoneModel

حيث الكومبو الاول يحتوي على انواع الهواتف سواء كانت نوكيا او اي نوع اخر

سيكون الكود كالتالي عند الضغط على الكومبو الاول

combo2.clear
if rs.state=adstateopen then rs.close
rs.open "select * from t_models where phonetype='" & combo1.text & "'"
do until rs.eof
combo2.additem rs.fields!phonemodel  هنا يتم اضافة الموديلات التابعة لنوع الجهاز الموجود بالكومبو الاول

rs.movenext
loop