combobox

السلام عليكم

خير الكلام ما قل ودل

Combo1.clear
rs.open "Select Distince(name)  from  [table]"
do until rs.eof
combo1.additem rs("name")
rs.movenext
loop

شرح الكود

Combo1.clear

تنظيف الكمبو بوكس من اي محتويات سابقة

rs.open "Select Distince(name)  from  [table]"

جملة Sql للاستعلام عن الحقل Name دون تكرار ((ولذلك تم استعمال Distince))

do until rs.eof
combo1.additem rs("name")
rs.movenext
loop

دوران حتى اخر سجل في الكائن Rs يقوم باضافة جميع مكون الحقل Name الى الكمبو طبعا دون تكرار

و السلام خير ختام :lol:

طبعا الكود السابق اخي لم اجربه على الفي بي لعدم وجوده حاليا على جهازي

اي اخطاء ابلغني عن طريق الخاص لاقوم بتعديلها

مشكور اخوي وجاري التجربة

لا شكر على واجب و الحمد لله انها نجحت معك (طبعا حسب رسالتك بالخاص) :lol: