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

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

كود :

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

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

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

princeofislam

princeofislam