عدم تكرار الاسماء في الكمبو بوكس

قبل الاضافة الى ComboBox اعمل شرط يتحقق من ان المراد ادخاله ليس موجوداَ من قبل...

استخدم في ذلك حلقة For Loop للمرور على جميع العناصر..

اذا كان بإمكانك وضع نسخه من البرنامج لكي اقوم بالتعديل عليه..

بالتوفيق اخي (FreeWily)..

قم بتجربة الكود التالي:

Private Sub Form_Activate()Combo1.ClearData1.RecordSource = "SELECT DISTINCT Names From Names"Data1.RefreshDo While Not Data1.Recordset.EOF	Combo1.AddItem Data1.Recordset("names")	Data1.Recordset.MoveNextLoopEnd Sub

الكود

Private Sub Form_Activate()Combo1.ClearData1.RecordSource = "SELECT DISTINCT Names From Names"Data1.RefreshDo While Not Data1.Recordset.EOF	Combo1.AddItem Data1.Recordset("names")	Data1.Recordset.MoveNextLoopEnd Sub

قم بتجربة الكود التالي وباذن الله يعمل معك :

Private Sub Form_Activate()Combo1.ClearData1.RecordSource = "SELECT DISTINCT Names From Names"Data1.RefreshDo While Not Data1.Recordset.EOF	Combo1.AddItem Data1.Recordset("names")	Data1.Recordset.MoveNextLoopEnd Sub

اشكرك يا اخ ميدو وايضا الاخ كلمة العرب

واتمنى لكم التوفيق