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

ستجد الجواب على هذا الرابط

استخدم Distinct مع ال Select

اشكركم جميعا

كل عام وانتم بخير

السلام عليكم

يا اخي mitebs

انا جربت اللي قلت عليه ولم يفلح

انظر الصورة

انتظرك

Distinct تستخدم مع قواعد بيانات اوراكل لفرز النتائج الغير المكرره

شكرا لك يا اخ عقدة

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

جربت اخى الكريم ولم يفلح مازالت التكرارات موجوده للعلم انا استخدم هذا الكود

Dim RS As New ADODB.Recordset
	Dim Sql As String
	Sql = "SELECT * 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

السلام عليكم

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

اخي الكريمة رجعي هذا الرابط ففيه حل مشكلتك ان شاء الله

وياريت حضرتك تستخدمي البحث

/index.php?showtopic=109105

بالتوفيق

=============

الى اللقاء

تفضل جرب هذه الطريقه :

Private Sub Form_Load()
Dim RS As New ADODB.Recordset
	Dim Sql As String
	Sql = "SELECT * FROM name_ser"
	Set RS = Cn.Execute(Sql)
	Dim nn As String
	Do Until RS.EOF
	   If Check_DBL(RS.Fields("compony_name")) = False Then compony_name.AddItem RS.Fields("compony_name")
		RS.MoveNext
   Loop
	RS.Close
	Set RS = Nothing

End Sub

Public Function Check_DBL(compony_nameS As String) As Boolean
Dim i As Integer

For i = 0 To compony_name.ListCount - 1
	If Trim(compony_name.List(i)) = Trim(compony_nameS) Then
	   Check_DBL = True
	Exit Function
	End If
Next i

End Function

in the name of allah

the answer is

select distinct from table name

it will return data without doublicate

Duplicates.zip

العقده كتب:

Distinct تستخدم مع قواعد بيانات اوراكل لفرز النتائج الغير المكرره

اخي العقدة و تصلح مع قواعد اكسس ايضا

msayed2004 كتب:

ممكن أثناء الأضافة نفسها تتكأد من وجود العنصر من عدمه أن كان موجود ما تضيفوش , وأن كان مش موجود ضيفة , المشروع المرفق عن كده.

اخي هو يتحدث عن النتائج التي لابد ان تتكرر ضمن الجدول مثل نوع الدم لعدة مرض ستجد ان النوع A+ مكرر لمئة مريض مثلاً

فالمطلوب عدم اضافة مئة سجل ضمن كمبو بوكس مثلا صمم لاختيار اصناف الدم المتوفرة

وكما ذكر الجميع الحل هو Distinct

If CombKafelId.Text = "" Then

CombKafelId.clear

Set rt3 = db.OpenRecordset(" SELECT DISTINCT KafelId FROM Employee ORDER BY KafelId", dbOpenDynaset)

rt3.Requery

Do While Not rt3.EOF

CombKafelId.AddItem rt3![KafelId]

rt3.MoveNext

Loop

rt3.Close

End If

اخي العزيز ممكن اعرف معني Private Const LB_FINDSTRINGEXACT = &H1A2 'For a listbox

كلمة Const ولماذا تستخدم

وليد مقلد كتب:

اخي العزيز ممكن اعرف معني Private Const LB_FINDSTRINGEXACT = &H1A2 'For a listbox

كلمة Const ولماذا تستخدم

تستخدم لحجز ثابت في الذاكرة