مساعدة في تعبئة Combobox

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

اخى هذا كود اتمنى ان يساعدك

انا هكتب الكود كامل الاول وتحت هتلاقى الشرح

If rs.RecordCount = 0 Then Exit Sub
Combo1.Clear
rs.MoveFirst
Do While Not rs.EOF
Combo1.AddItem rs!u_user
rs.MoveNext
Loop
Combo1.Text = "اختر"

الشرح

طبعا هتفتح الداتا بيز بـ ADO او DAO

dim it As Recordset

وبعد كدة هتفتح الريكورد ست

Set rs= db.OpenRecordset("Tabel", 2)

,

وبعد كدة هتتاكد ان الجودل مش فاضى

If  rs.RecordCount = 0 Then Exit Sub

وبعد كدة بترجع الكورسر (الموشر بتاع الريكورد ست) فى اول الجدول

rs.MoveFirst

وبعد كدة بتفضى الكوبو عشان لو جيت تملاها تانى منلاقيش البيانات متكررة

Combo1.Clear

Do While Not rs.EOF
Combo1.AddItem rs!u_user
rs.MoveNext
Loop

ودى اختيارى علشان ترجع اول ايتم فى الكوبو يبقى كلمة اختر

Combo1.Text = "اختر"

يارب اكون افتدك

اخوك عمرو

ارفقت لك مثال للكود

Combo.rar

مشكر اخي 100/100 هذا ما اريد بالتفصيل بارك الله فيك وان شاء الله زاد الله في حسناتك

شكرا مرة اخرى اخي على سرعة الاستجابة

مشكور اخي بارك الله فيك هذا هو الطلب...100/100

العفو اخى

كلنا هنا فى خدمة بعضنا البعض

انا اطلب وغيرى يجيب

وغيرى يطلب وانا اجيب

الحمد لله على نعمى الاخوة المودودة بقضل الله فى المنتدى

تسلملي يا أخي العزيز لقد أستفدت أنا أيضاً

فشكراً للسائل والمجيب