منع تكرار القيم المتشابهة داخل كمبو بوكس ... ارجو المساعدة

shadi77 كتب:

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

اخواني ارجو مساعدتي بطريقم يتم من خلالها منع تكرار القيم المتشابهة بكمبو بكس ؟

مثال:

ليكن كومبو بوكس يحتوي القيم:

1

2

3

1

2

3

1

2

3

المطلوب طريقة تمنع تكرار القيم المتشابهة ليصبح محتوى الكومبو بكس كما هو ادناه و دون التاثير على محتويات قاعدة البيانات:

1

2

3

ودمتم سالمين

"SELECT Fieldname FROM Tablename GROUP BY Fieldname

mcse+ccna كتب:

"SELECT Fieldname FROM Tablename GROUP BY Fieldname

شكرا لردك اخي الكريم

لكن هل لك بمزيد من التوضيح اذ قمت بتطبيق الطريقة اعلاه لكن لم تنجح او انني لم اطبق الطريقة بشكل صحيح !!!

قد ينجح الكو معي بمزيد من التوضيح

السلام عليكم

استعمل me.Combo1.Clear

قبل جملة الاستعلام

SELECT DISTINCT Fieldname FROM Tablename GROUP BY Fieldname

AHMAD KALIL كتب:

السلام عليكم

استعمل me.Combo1.Clear

قبل جملة الاستعلام

اخي احمد

هذه الطريقة لا تنفع اذ تقوم بحذف محتويات الكومبو قبل الاستعلام !!! اذ المشكلة بعد جملة الاستعلام اذ يتم اظهار القيم كلها مكررة وهذا ما ابحث عنه ,,,,,,, منع التكرار

شكرا لمرورك

EMNALI كتب:

SELECT DISTINCT Fieldname FROM Tablename GROUP BY Fieldname

اخي الكريم:

ان كانت هذه جملة الاستعلام لدي:

SQLs = "select * from info where name='" & Text1 & "'"

If rs.State = adStateOpen Then rs.Close

rs.Open SQLs, db, adOpenKeyset, adLockPessimistic

Do Until rs.EOF

Com1.AddItem rs!name

rs.MoveNext

Loop

فاين الكود SELECT DISTINCT Fieldname FROM Tablename GROUP BY Fieldname من هذه الجملة ؟

ولك مني كل التقدير

السلام عليكم

اذا كنت تقصد عدم تكرار البيانات من قاعدة البيانات ووضعها في combo

الكلمة المحجوزة distinct تحضر البيانات من غير تكرار

AHMAD KALIL كتب:

السلام عليكم

اذا كنت تقصد عدم تكرار البيانات من قاعدة البيانات ووضعها في combo

sqls = "select distinct number1 from table1 order by number1 asc "
If rs.State = adStateOpen Then rs.Close
rs.Open sqls, db, adOpenKeyset, adLockPessimistic
If rs.EOF = True Then GoTo end1:
rs.MoveFirst
Do
Combo1.AddItem rs.Fields("number1")
rs.MoveNext
Loop Until rs.EOF = True
end1:

الكلمة المحجوزة distinct تحضر البيانات من غير تكرار

شكرا لك اخي احمد .......... قمت بتجربة الكود وهو يعمل جيدا لكن ما زال هناك مشكلة وهي:

في هذا الكود يتم منع تكرار القيم فعلا كما يقوم بعرض جميع القيم التي تحمل اسم number1 بداخل الكومبو بكس وهنا المشكلة الجديدة !!!

ان تفضلت بمراجعة جملة الاستعلام التي قمت بطرحها بالمشاركة السابقة تجد اني استخدمت Where لحصر النتائج بموجب قيمة Text1 وذلك لعرض القيم اكثر دقة !!

وهنا حاولت حصر القيم بموجب قيمة معينة لكن لم تنجح باعتقادي ان هناك تعديلا يجب اجرائه وهذا ما ارجوه منك اخي احمد ...... ارجو ان اكون قد وفقت بايصال الفكرة

وشكرا لك

السلام عليكم

sqls = "select distinct number1,name from table1 where name = '" & Me.Text1 & "' order by number1 asc  "

AHMAD KALIL كتب:

السلام عليكم

If rs.State = adStateOpen Then rs.Close
rs.Open sqls, db, adOpenKeyset, adLockPessimistic
If rs.EOF = True Then GoTo end1:
rs.MoveFirst
Do
Combo1.AddItem rs.Fields("number1")
rs.MoveNext
Loop Until rs.EOF = True
end1:

sqls = "select distinct number1,name from table1 where name = '" & Me.Text1 & "' order by number1 asc  "

شكرا جزيلا لك اخي احمد تم تجربة الكود وهو يعمل جيدا وقام بحل المشكلة .....

بارك الله لك بعلمك ونفعك به ونفعنا بك

جاري تطبيق الكود وتطويره....