ترتيب الأسماء أبجدياً في القائمة

اخي confort استخدم الخاصية sorted لذلك

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

اخي العزيز - على حسب معلوماتي البيسطة - تحتاج للبحث عن الاسماء التي تبدأ بحروف عربية فقط وتضيفها للقائمة ثم تبحث مرة أخرى عن الاسماء التي تبدأ بحروف إنجليزية

مثال

rs.Open "select * from names where name like'أ%'", cn, adOpenStatic, adLockOptimistic

كذا راح يبحث بالاسماء التي تبدأ بحرف الألف ، وهكذا يعني تضيف جميع الحروف في كود البحث مثل

rs.Open "select * from names where name like'أ%' or name like'ب%' or name like'ج%'", cn, adOpenStatic, adLockOptimistic

وبعد كذا تعمل لها اضافة للقائمة

For i = 0 To rs.RecordCount - 1
List1.AddItem rs!Name
rs.MoveNext
Next

ثم تقوم بالبحث عن الاسماء التي تبدأ بحروف انجليزية

rs.Open "select * from names where name like'a%'", cn, adOpenStatic, adLockOptimistic

ولا تنس أن تضع خاصية الفرز Sorted لأداة listbox = True

هذا ما اعلمه ، إذا كان لدى الإخوة حل أفضل منه أتمنى أن لا يبخلوا به ..

والله الموفق

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

شكراً جزيلاً لكم إخواني

1. المتميز (( شكراً جزيلاً ))

2. mostafazidani .

قد تنفعك هذة الامثلة

ListBoxFunctions.rar

جزاك الله خيراً Moudey

أخي الكريم المتميز هل ممكن ترفق لي مثال

جزاك الله خيراً لأن في رسالة خطأ بتظهر

صورتها مرفقة .

ضروري جزاك الله خيراً

السلام عليكم

اخي نسيت أنه يرتب الحروف الانجليزية قبل العربية :(

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

فرز.zip

شكراً جزيلاً لك أخي المتميز . :rolleyes: