كيف أضع مكونات جدول في combobox

صباح الخير

عندما تريد وضع مكونات جدول فى كمبوبكس اى تضع الحقل المكونة لهذا الجدول فضع الكود التالى تحت كوماند كالاتى:

private sub command1_click()

dim db as database

dim rs as recordset

dim c as integer

set db=opendatabase("wok"

set rs=db.openrecordset("cust",2)

for c=0 to rs.fields.count-1

combo1.additem rs.fields©.name

next c

جرب هذا الكود وابلغنى بالنتيجة

أنا لسه مشفتوش بس مشكور مقدما ً

السلام عليكم

طريقة أخرى

بعد ما تقوم بفتح قاعدة البيانات والجدول استخدم الطريقة الاتية

Do While Not RS.EOF

Combo1.AddItem RS("nam")

RS.MoveNext

Loop

سلام

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

data1.recordsource="select xNo from Table where xNo='"& trim(combobox1.text)&"'"
data1.refrech
with data1.recordset
if .recordcount<>0 then
for k=1 to .recordcount

combobox1.addItem   !xNo

.moveNext

next
endif
end with

والله الموفق