كيف أقوم بتعبئة أداة ال(combo) في البرمجة?

with comobobox
.additem "1"
.additem "2"
end with

جزاك الله ألف خير لن انساك من دعواتي

أريد ان أسألك الكود أكتبه داخل الاستعلام في الآكسس أم داخل البرمجة

في الفيجوال بيسك

وشكرا

بالطبع داخل الفيجوال

هذا الاجراء additem متعلق بالاداة combobox

اي انه يمكنك كتابة الكود هكذا

combobox.additem"1"
combobox.additem"2"

وسيؤدي عمل الكود السابق

ممكن بالقشول بيسك نكتب

اذا افترضنا ان لنا

'public rs as recordset

' public rec_count as long

private sub form_load()

rec_count = rs.recordcount ' من اجل معرفة عدد حقول الجدول

for i = 0 to rec_count

combo1.additem rs!Your_Fild

next

'Your_Fild اسم الحقل اللي في الجدول الذي تريد ان تملا به الكمبو بوكي