منع التكرار بداخل الكمبو بوكس

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

اخي قم بفلترة البينات باستخدام جملة سيكوال أولا

RS.Open "select distinct(erea) from Persons"

وهذا الكود لملء الكومبو بوكس واعتقد انك تعرفه ولكن اضعه لزيادة المعرفة ولتسهيل الامر على المبتدأين

Do While Not RS.EOF
Combo1.AddItem RS("erea")
RS.MoveNext
Loop

بالتوفيق

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

الى اللقاء

اقتباس

منع التكرار بداخل الكمبو بوكس

كيف يتم منع التكرار بداخل المنتدى !

نفس الموضوع هنا

من قواعد المشاركة : ممنوع نهائيا وبشكل قاطع تكرار الموضوع نفسه

يعني لو ناظرت قليلا لوجدت ان هناك موضوع في نفس الصفحة بهذا الخصوص .. فالماذا لم تواصل فيه .. كما ان هناك محرك بحث في المنتدى

غريب امركم تعملون برامج فيها بحث وانتم لا تعرفون استخدامه

اولا مشكور جدا يا اخ MR^King

ثانيا يا اخ HnHn انا قلت في اول المشاركة ان انا بحثت كثيرا في المنتدى عن هذا الموضوع ولم اجده

بحثت بكلمة

تكرار

التكرار

كمبو

combo

ولم اجد الموضوع اللي انا عاوزه

هل لي ان ابحث تاني

<_< الى هذه الدرجة هذا المنتدى سيفتقر لهذه المعلومة لو اطلعت على "دليــــــلك الأسرع " لوجدت هذا الرابط

وهذه نتيجة البحث في المنتدى الرابط

انظر الى الكود اللي انا بستعمله علشان اتصل بقاعدة البيانات واخذ البيانات من الحقل رقم 24

SQL = "select * from addition"
Re.Open SQL, Connection, adOpenDynamic, adLockReadOnly


If Re.EOF And Re.BOF Then

Exit Sub

Else


Do While Re.EOF = False


Combo2.AddItem Re(24)



Re.MoveNext

Loop


End If

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

الكود سليم 100 % بس فى

اضافة الكود ده قبل التعبئة فى كل مرة حتى لا تتكرر البيانات

combo2.clear

يا اخي العزيز

انت لم لتفهمني صح

الكود ده في حدث تحميل الفورمة

والكمبو بوكس زي ما انا وضحت فوق انه بيكون فيه اكثر من كلمة متشابه

حلوان

حلوان

حلوان

معادي

حلوان

معادي

مصر الجديدة

مصر الجديدة

وانا لا اريد ذلك انا اريد

حلوان

معادي

مصر الجديدة

فهمتني ؟؟؟؟

up

جرب يا أخى هذا المثال

ComboBox.rar

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

يا أخ MohamedAliSalim يعني حضرتك كتبت موضوع مكرر اكتر من مرة في المنتدى ومع علمي بذلك وضعت لك الكود

مش قادر تتعب نفسك وتجربه ؟ ولا احنا اتعودنا على الامثلة الجاهزة ؟

وكمان الكود اللي حضرتك كتبته الجزء الأول فيه ليس له أي فائدة لا ادري لما قمت بوضعه اصلا

الفكرة كلها في جملة السيكوال فقط اما كود ملء الكومبو فلا مشكلة فيه

والأخ هاني وضعلك روابط لو نظرت فيها لوجدت الحل دون انتظار

ياريت تجرب الاول قبل متابعة الموضوع وانظر في المواضيع السابقة وبعدها اسأل براحتك وان شاء الله نجيب على أسئلتك

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

الى اللقاء

أنا أعتذر إذا كنت عملت مشكلة

ولكنى قرأت كلمة UP قمت حاطط إللى أعرفه

ولم اكن اعلم ان المشكلة قد حلت

تحياتى للجميع :)

Zain

السلام عليكم

اولا مشكور جدا يا اخ zain50 وانت لم تعمل اي مشاكل وكمان انا والله بشكرك قبل ما اري المثال اللي انت ارفقته لأن اقل حاجة انت عملتها تعتبر اكبر حاجة عندي وهي انك فكرت بس تساعدني

والدقائق او الثواني اللي قعد تفتح فيها الفيجوال وتعمل المثال وتجربه اكثر من مرة علشان تتاكد وعلشان ترفقه بدون اي اخطاء كل هذا محسوب ان شاء الله في ميزان حسناتك

ثانيا يا اخ MR^King

انا عاوزك بس تنظر الى اي كود تم وضعه في اي رابط بهذا الموضوع

هتلاقي كل الرد كود فقط ولكن لا يوجد اي شرح

كيف لي ان اعرف مثلا ان الرقم بعد Fileds اللى هو 0 رقم ثابت وليس برقم الحقل

انا قمت بتغيره الى 24 علشان رقم الحقل بتاعي هو 24 وحدث خطأ بالفعل

فقمت بإسترجاعه الى اصله وهو 0 ونجح والحمد لله ولكن انا الأن لا اعلم ما فائده هذا الصفر

وكمان انت بتقول في نهاية جملة SQL كاتب Person ولم توضح هل هذا اسم الجدول ولا اسم ثابت

من المعروف دائما انه لازم تكتب كلمة تفيد بذلك مثل TabelName مثلا فما الداعي ان تكتب Person

وايضا كلمة erea ماذا تفيد وما معناها

كل هذا كان يسبب مشاكل في التجربية

ولو كل عضو شرح اي كود بيكتبه كان احسن واسهل لأن المنتدى للتعليم وليس لتعليم الكوبي والبيست Copy & peast

وشكرا على مرورك بالموضوع مش علشان تعلمني او تفيديني بشي بل علشان تسخر مني مش اكثر

وانا توصلت الى الكود والحمد لله

SQL = " Select  Distinct FiledName From TabelName"
Re.Open SQL, Connection, adOpenDynamic, adLockReadOnly
Do Until Re.EOF
Combo2.AddItem Re.Fields(0)
Re.MoveNext
Loop

طبعا السطر الثاني ده ثابت مش بيتغير بتغير الجداول ولا حاجة ده بس طريقة الإتصال بقاعدة البيانات يعني لو عندك طريقة اخرى للإتصال تضعها في هذا المكان وكلمة Re ده قناة الإتصال الل قمنا بتعريفها

انت عارف توصلت اليه ازاي ؟؟؟

انا اولا سبت الموضوع من اساسه لحين ان افكر فيه براحة خالص وعلى مهلى

يعني لو وقفت حاجة امامي في المشروع مش لازم اعطل باقي المشروع علشنه

فتوجهت الى جزئية اخرى بالمشروع وهي خاصة بالتقارير ومن ثم ذهبت الى الإستاذ ماجور والحمد لله ربنا بدل ما يحل لي مشكلة التقرير بس حل لي مشكلة التكرار في الكمبو بوكس والتقرير

والحمد لله حليت المشكلتين وانا في طريقي الى تكملة المشروع بنجاح

وسلامي لكم جميعا

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

يا أخ محمد الله يكرمك

اقتباس

وكمان انت بتقول في نهاية جملة SQL كاتب Person ولم توضح هل هذا اسم الجدول ولا اسم ثابت

من المعروف دائما انه لازم تكتب كلمة تفيد بذلك مثل TabelName مثلا فما الداعي ان تكتب Person

وايضا كلمة erea ماذا تفيد وما معناها

كل هذا كان يسبب مشاكل في التجربية

اولا كونك كتبت هذا الكلام فمعناه انك تعرف ان كلمة Person هي اسم الجدول و كلمة erea هي الحقل

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

على اعتبار انك تعرف جيدا تكوين جمل الـ SQL

ولكن أريد ان اسألك فقط

ماهو الفرق بين الكود الذي وضعته لك وبين الكود الذي وضعته في ردك الاخير ؟

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

بالتوفيق

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

الى اللقاء

شوف الشغل وادعيلي وللعماني

وهذا الكود موجود في البحث عن طريق "المهنا" من سنتين وهو موجود

COMBO100.rar

اعمل استعلام مجموعاتgroup by ويقراء منه الكومبو بكس بس سهله

مشكور جدا يا جماعة على هذه الردود

وماتزعلش مني يا اخ MR^King

-------------