11-07-22, 04:51 PM
هذا كود يم فيه استدعاء سجلات المأذونيين حسب اسم المأذون وهو شغالٌ 100%
ولكن عند إختيـار اسم المأذون من الكومبوكس Comboalmadhun وإظهار سجلات المأذون
يتم تعبئة كومبوكس Comborecord بالسجلات.
المشكلة أن أرقام السجلات غير مرتبة تصاعدياً، حاولت ترتيبها ولكن دون جدوى؛ فهل يمكن التعديل على الكود حتى يتم إظهار الأرقام تصاعدياً؟
ولكن عند إختيـار اسم المأذون من الكومبوكس 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