ترتيب بيانات حقل ابجديا فى listbox

Data1.RecordSource="SELECT * FROM Phones ORDER BY Name"

Data1.Refresh

Phones هو اسم الجدول و Name هو اسم صاحب التليفون و Data1 هى التى تملئ منها ListBox

:wacko:

ملحوظة : لا تستخدم خاصية الترتيب Sort حيث أنها ترتب البيانات المحملة فى الـ ListBox ولكن ليس لها تأثير على ترتيب قاعدة البيانات

شكرا على اهتمامك اخ Sphinx-EG

انا جربت الكود ده ومشتغلش

بس ممكن اكون نسخته فى حدث غلط انا نسخته فى حدث الاكتف فورم

طيب انسخه فى اى حدث

انت غيرت اسم الحقل Name والجدول Phones بحيث يكونوا نفس الأسماء التى تستخدمها انت؟

هل وضعت الكود أعلاه قبل الكود الذى تملئ فيه ListBox?

هل ظهرت رسالة خطأ ما؟ وما هى؟

ايوه انا عملت كل ده ومنفعش

هذا هو الكود الذى املئ به listbox

 Private Sub Form_Activate()

Data1.DatabaseName = (App.Path & "/db2.mdb")

List1.Refresh

If App.PrevInstance Then End

Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Data1.Refresh
    If Data1.Recordset.RecordCount = 0 Then
    
deleall.Enabled = False
List1.Clear
Exit Sub
Else
    List1.Clear
    Call Data1.Recordset.MoveFirst
    i = 0
    Do While Not Data1.Recordset.BOF And Not Data1.Recordset.EOF
        List1.AddItem Data1.Recordset.Fields(0).Value
        Data1.Recordset.MoveNext
        i = i + 1
    Loop
    deleall.Enabled = True
 End If

End Sub

فين السطر

Data1.RecordSource="SELECT * FROM Phones ORDER BY Name"

الذى يجب أن تضعه قبل Data1.Refresh

وأيضا ألاحظ أنك تستخدم Data1.Recordset.Fields(0).Value وهى بصراحة عادة سيئة ويجب وضع اسم الحقل بدلا من رقم الحقل ليكون Data1.Recordset.Fields("Name").Value

بهذه الطريقة سيكون من السهل تتبع البرنامج واسترجاع طريقة عمله بسهوله عندما تتركه لفترة ثم تعود إليه مرة أخرى ثم ماذا سيحدث إذا أضفت فى المستقبل أى حقل جديد فى أو الجدول فى هذه الحالة سيكون Field(0) تشير إلى حقل أخر تماما....فقط للعلم

طيب ممكن تكتبلى الكود بعد التعديل

لو سمحت

اسم الجدول roka واسم حقل الاسماء name

Private Sub Form_Activate()

Data1.DatabaseName = (App.Path & "/db2.mdb")

List1.Refresh

If App.PrevInstance Then End

Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""


Data1.RecordSource = "SELECT * FROM roka ORDER BY name"
Data1.Refresh

   If Data1.Recordset.RecordCount = 0 Then
   
deleall.Enabled = False
List1.Clear
Exit Sub
Else
   List1.Clear
   Call Data1.Recordset.MoveFirst
   i = 0
   Do While Not Data1.Recordset.BOF And Not Data1.Recordset.EOF
       List1.AddItem Data1.Recordset.Fields("name").Value
       Data1.Recordset.MoveNext
       i = i + 1
   Loop
   deleall.Enabled = True
End If

End Sub

جربته ولم يعمل ولم تظهر اى رسائل خطأ

ضع هذا الكود فى ListBox Click Event

Private Sub List1_Click()
Data1.Recordset.FindFirst "name='" & List1.List(List1.ListIndex) & "'"
End Sub

معلش انا عارف ان انا تعبتك جدا

ممكن تعملى مثال وترفقه

ولا يهمك حاجة...الملف مرفق

Example.zip

عند تشغيل البرنامج تظهر الرسالة التالية

على فكرة الطريقة دى مبتشتغلش لو الاسماء فى listbox باللغة العربية

فى الملف المرفق قمت باستبدال الاسماء الانجليزية بالعربية

ولم يعمل الكود على ترتيبها

Example2.zip

:wacko:

من الواضح أنك لازلت تستخدم Access 97 وبناء عليه فقد أرفقت البرنامج مرة أخرى باستخدام Access 97 وكذلك غيرت الأسماء للعربية

بالنسبة للأسماء العربية يجب عليك عندما تصمم أى ملف بيانات فى Access أن تجعل (ترتيب فرز قاعدة البيانات الجديدة) هى اللغة العربية وإلا فلن يقوم الجيت إنجن بالترتيب بطريقة صحيحة ويمكنك فعل ذلك من قائمة أدوات ثم خيارات ثم نقر عام ثم اختيار اللغة العربية فى كومبو ترتيب فرز قاعدة البيانات

Example.zip