تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
استفسار عن الكومبو بوكس
#1
الاخوة الاعزاء انني استعمل الكود التالي لاكنة يسمح بالتكرار  فهل لديكم كود افضل منه شاكرا لكم ما تقدمونة




كود :
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
Heartاحبكم في اللهHeart
http://www.vb4arb.com/vb4arb2.gif
الرد
تم الشكر بواسطة:
#2
(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

السلام عليكم و رحمة الله و بركاته 
هذا مثال : 
.rar   Test_Name.rar (الحجم : 15.37 ك ب / التحميلات : 6)
وَقُل رَّبِّ اغْفِرْ وَارْحَمْ وَأَنتَ خَيْرُ الرَّاحِمِينَ
الرد
تم الشكر بواسطة: princeofislam , sendbad100
#3
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
Heartاحبكم في اللهHeart
http://www.vb4arb.com/vb4arb2.gif
الرد
تم الشكر بواسطة: sendbad100



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم