[مصمم هاوي]

هذا كود يم فيه استدعاء سجلات المأذونيين حسب اسم المأذون وهو شغالٌ 100%
ولكن عند إختيـار اسم المأذون من الكومبوكس Comboalmadhun وإظهار سجلات المأذون
يتم تعبئة كومبوكس Comborecord بالسجلات.
المشكلة أن أرقام السجلات غير مرتبة تصاعدياً، حاولت ترتيبها ولكن دون جدوى؛ فهل يمكن التعديل على الكود حتى يتم إظهار الأرقام تصاعدياً؟

كود :

Private Sub Comboalmadhun_Click()
'On Error Resume Next: Err.Clear
''''''''''''''''''''''''''''''''''
Call ConnectionDatabase
If RS.State = adStateOpen Then RS.Close

SQL = " SELECT record  FROM TBL_archives GROUP BY TBL_archives.record, TBL_archives.aism_almadhun HAVING (((TBL_archives.aism_almadhun)='" & Trim$(Comboalmadhun.Text) & "'))"
Text1.Text = SQL
RS.Open SQL, db, adOpenStatic, adLockOptimistic
                      
Comborecord.Clear

For I = 0 To RS.RecordCount - 1
Comborecord.AddItem RS.Fields(0)
Comborecord.ItemData(Comborecord.NewIndex) = RS.Fields(0)
RS.MoveNext
Next
'
End Sub

[مصمم هاوي]

حيث لم أجد جوابا لسؤالي المطروح قمت بحل المشكلة عن طريق تغيير نوع الحقل record إلى (عملة) ونجح في ترتيب الارقام تصاعديا بعد إجراء تغيير ظفيف بكود الكومبوكس combrecord

[Taha Okla]

السلام عليكم ورحمة الله وبركاته.
إذا كان الحقل من نوع نصي فعليك ترتيب وتنسيق الأرقام فيه بعدد الخانات المتوقع الوصول إليها
فلو تتوقع أنه لن يتجاوز الرقم 999
فيكن ترتيب الأرقام وتنسيقها فيه على الشكل التالي  :
001
002
003
...
...
998
999
-----
المقصود من ذلك أن تحفظها بالتنسيق الثلاثي الخانات
فلو طلبت ترتيبها فستترتب كما تريد تصاعدياً أو تنازلياً ..
===================================
أما لو كانت :
1
2
.
.
11
12
13
..
21
22
23
...
.
998
999

فلن يتم ترتيبها تصاعديا أو تنازلياً كما تتصور على أنه رقم بل على أنه نص
فيرتب بحسب الخانة التي تقع على اليسار ( بالرقم الذي يبتدأ به من جهة اليسار بالواحد ثم الرقم 2 ثم الرقم ثلاثة ) 
فيكون الترتيب كـ التالي :
1
10
11
12
13
.
.
.
101
102
103
.
.
.
2
20
21
22
..
وهكذا ..

[مصمم هاوي]

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