تحميل محتوى حقل في combobox دون تكرار

خي الكريم،

ابحث في الإنترنت عن نفس طريقة مشابهة للطريقة التي تستخدمها

وتختلف عنها بأنها تستخدم استعلام SQL

وبداخل جملة SQL تستطيع استخدام الكلمة (Distinct) للحصول على قائمة الأسماء من الجدول بدون تكرار.

وعندها قارئ السجلات الخاص بك (rs) لن يحتوي إلا على القيم غير مكررة، وتكمل باستعمال حلقة For كما في مثالك تماماً.

الخلاصة: ابحث في غوغل عن استخدام استعلام SQL بين فجوال بيسك 6 وقاعدة بيانات أكسس

واستخدم استعلاماً مشابهاً للتالي ولكنه يختلف حسب رغبتك:

Select Distinct Name from Users

أتمنى استيفاء الإجابة لما طلبت.

بارك الله فيك أخي كفيت و وفيت :happy:

استخدم هذا الكود

Set rs = New ADODB.Recordset
Set DB = New Connection
  DB.CursorLocation = adUseClient
  DB.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb"
If rs.State = 1 Then rs.Close
'لاحظ هنا عملية التجميع حسب الاسم واختيار حقل واحد فقط من الجدول
rs.Open "select nom from noms group by nom Order by nom", DB, adOpenStatic, adLockPessimistic

For I = 1 To rs.RecordCount
	cmb_n.AddItem rs!nom
	rs.MoveNext
Next

تحياتي