كيفية منع تكرار البيانات فى الكمبو بوكس

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

جرب تعديل الكود ليصبح

On Error Resume Next
	Dim RS As New ADODB.Recordset
	Dim Sql As String
   Sql = "SELECT Distinct * FROM name_ser"
	Set RS = Cn.Execute(Sql)
	Dim nn As String
	Do Until RS.EOF
	   compony_name.AddItem RS.Fields("compony_name")
		RS.MoveNext
   Loop
	RS.Close
	Set RS = Nothing

وقد تم التعديل باضاقة كلمة Disyinct الى السطر الرابع من الكود.

اخي الكريم ارجو ان تتقبل ملاحظتي بصدر رحب

كيف تتطلب عدم التكرار في الكمبو و قمت بصنع تكرار لا نهائي في المنتدى :wacko: !!!!

فقد قمت باعادة الموضوع ثلاث مرات مما يسبب الارباك في المنتدى

فارجو ان تتفهم راي لان هذه التكرار لا يفيد في حالة العجلة بل العكس قد يتسبب في اغلاق الموضوع لانه يخالف القوانين مما يؤدي الى تأخر الموضع اكثر

اخوك SUPER_PRO :lol:

اشكركم جميعا على المتابعه واشكر الاخ ايهاب عثمان على التعديل لقد قمت بتركيب الكود بعد التعديل ومازال التكرار موجود اما بالنسبه للاخ Super_Pro اقول لك انى متقبل تماما ملاحظتك وبشكل رحب ولكن تكرار الموضع كان خارج ارادتى بعد ما كتبت المشاركه اضغط على قبول المشاركه ولا تتم ولاحظ الثلاث مشاركات فى دقيقه واحده طبعا وهذا دليل لذلك وارجو من الاخوه المشرفين ازالة التكرار وتقبلو اعتذارى

شكرا لكم

شكر على التوضيح

وشكر اكبر على رحابه صدرك :lol: