منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

---

اثناء بحثي في الانترنت حصلت على الكود ادناه لاكنه لا يمنع التكرار يا ريت لو في كود يمنع التكرار ..يا ربي سهل الامور
Dim i As Integer
Adodc1.Refresh
Adodc1.Recordset.MoveLast
Adodc1.Recordset.MoveFirst
For i = 1 To Adodc1.Recordset.RecordCount
Combo1.AddItem Adodc1.Recordset.Fields("Name")
Adodc1.Recordset.MoveNext
Next i
End Sub

(02-07-19, 12:41 AM)princeofislam كتب : [ -> ]

الاخوة الاعزاء انني استعمل الكود التالي لاكنة يسمح بالتكرار  فهل لديكم كود افضل منه شاكرا لكم ما تقدمونة

كود :

Do Until Adodc2.Recordset.EOF
Combo1.AddItem Adodc2.Recordset.Fields!mname
Adodc2.Recordset.MoveNext
Loop
Adodc2.Recordset.MoveFirst

---

اثناء بحثي في الانترنت حصلت على الكود ادناه لاكنه لا يمنع التكرار  يا ريت لو في كود يمنع التكرار ..يا ربي سهل الامور
Dim i As Integer
Adodc1.Refresh
Adodc1.Recordset.MoveLast
Adodc1.Recordset.MoveFirst
For i = 1 To Adodc1.Recordset.RecordCount
   Combo1.AddItem Adodc1.Recordset.Fields("Name")
   Adodc1.Recordset.MoveNext
Next i
End Sub

السلام عليكم و رحمة الله و بركاته 
هذا مثال : [attachment=21900]

that is is really what i need sir
wow that is is amazing code - i could not even imagine i will get it , after long time searching online and there are nothing there - so when i sow this and i try it . it works like a rocket
now i cannot see duplicated names in my records thanks a lot sir and my teacher Mr Amir Alzubidy
----your always do your best with us .god bless you and bless your family and all who works here to help
i love you all