02-07-19, 12:41 AM
(آخر تعديل لهذه المشاركة : 02-07-19, 12:48 AM {2} بواسطة 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