combobox

ما فهمة قصدك بالضبط

بس على حد فهمي هذه هي الطريقة

من قائمة properties - combo1

اختار list

ثم اضف ما تريد مع الضغط على ctrl+enter بين كل اختيار.

مثال انت تريد اضافة لون احمر | اصفر | اخضر | ازرق

قم بعمل التالى

احمر ctrl+enter

اصفر ctrl+enter

اخضرctrl+enter

ازرق

ارجو ان يكون هذ اردا على سؤالك ..

أعتقد بأنك تريد تعبأت combo box من قاعدت بيانات ...

إذا كنت تستخدم أداة Data .. فهذا غير ممكن بشكل مباشر ..

تستطيع أستعمال الكود التالي لعمل ذلك :

Dim RecordCountDD As Integer

Data1.Recordset.MoveLast
RecordCountDD = Data1.Recordset.RecordCount

Data1.Recordset.MoveFirst
For I = 0 To RecordCountDD - 2
    Data1.Recordset.MoveNext
    Combo1.AddItem Data1.Recordset![Value]
Next

إذا كنت تستخدم نوع آخر من أدوات Data مثل MSRDC يمكنك أستخدام الأداة Microsoft Data Bound List التي تدعم الأداة الأولى بشكل سهل جداً ومباشر ..

أتمنى أن يكون واضح ...

تحياتي ...

ارجو من العريق ان يوضح الكود أكثر لا نه لم ينفذ مع بشكل صحيح

السلام عليكم

لقد فهمت ما يقصده الاخ صاحب السؤال و إن شاء الله سوف اطرح الحل

if rs.recoredcount=0 then exit sub

rs.move frist

do while rs.Eof=false

combo1.add item rs("name")

rs.move next

loop

set rs=nothing