اعادة تفعيل الفرز التنازلى عند غلق النموذج او عمل refresh

[Abdelaziz Osman]

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

لدي نموذج باسم   bers  به حقل باسم  fega

فى بعض الاحيان عندما اقوم بالعمل على هذا النموذج اجد ان تسلسل السجلات غير مرتب تصاعديا من الاقدم الى الاحدث

حيث ان فرز التسلسل مرتبط بالحقل fega حيث ان هذا الحقل به ارقام تسلسل الحقول 1 2 3 4   وهكذا

اريد كود vba يعمل باعادة الفرز تصاعديا من الاقدم الى الاحدث   او  كود vba يعمل باعادة الفرز تنازليا من الاحدث الى الاقدم

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

ولكم منى بالغ التحية

[kkhalifa1960]

تفضل أخي @Abdelaziz Osman حسب مافهمت . عند فتح الفورم . اكتب الكود التالي .

    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    
    ' تحديد قاعدة البيانات الحالية
    Set db = CurrentDb()
    
    ' فتح نموذج "bers" كـ Recordset
    Set rs = db.OpenRecordset("bers", dbOpenDynaset)
    
    ' تطبيق الفرز التنازلي حسب الحقل "fega"
    rs.Sort = "fega DESC"
    
    ' تحديث النموذج لإظهار البيانات المفرزة
    Me.Requery
    
    ' تنظيف الذاكرة
    rs.Close
    Set rs = Nothing
    Set db = Nothing

 

[Abdelaziz Osman]

منذ ساعه, kkhalifa1960 said:

تفضل أخي @Abdelaziz Osman حسب مافهمت . عند فتح الفورم . اكتب الكود التالي .

    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    
    ' تحديد قاعدة البيانات الحالية
    Set db = CurrentDb()
    
    ' فتح نموذج "bers" كـ Recordset
    Set rs = db.OpenRecordset("bers", dbOpenDynaset)
    
    ' تطبيق الفرز التنازلي حسب الحقل "fega"
    rs.Sort = "fega DESC"
    
    ' تحديث النموذج لإظهار البيانات المفرزة
    Me.Requery
    
    ' تنظيف الذاكرة
    rs.Close
    Set rs = Nothing
    Set db = Nothing

 

وماذا بخصوص الفرز التصاعدى

[Abdelaziz Osman]

1 ساعه مضت, kkhalifa1960 said:

تفضل أخي @Abdelaziz Osman حسب مافهمت . عند فتح الفورم . اكتب الكود التالي .

    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    
    ' تحديد قاعدة البيانات الحالية
    Set db = CurrentDb()
    
    ' فتح نموذج "bers" كـ Recordset
    Set rs = db.OpenRecordset("bers", dbOpenDynaset)
    
    ' تطبيق الفرز التنازلي حسب الحقل "fega"
    rs.Sort = "fega DESC"
    
    ' تحديث النموذج لإظهار البيانات المفرزة
    Me.Requery
    
    ' تنظيف الذاكرة
    rs.Close
    Set rs = Nothing
    Set db = Nothing

 

الكود لم يستجيب  يرجى التكرم تحميل النموذج واختبار الكود

sorting.accdb

[Foksh]

مشاركة مع الأستاذ خليفة ,,

جرب فكرتي :-

[fega] DESC

للترتيب من الأحدث إلى الأقدم حسب الحقل Fega

وللترتيب من الأقدم إلى الأحدث :-

[fega] ASC

 

[Abdelaziz Osman]

1 ساعه مضت, Foksh said:

مشاركة مع الأستاذ خليفة ,,

جرب فكرتي :-

[fega] DESC

للترتيب من الأحدث إلى الأقدم حسب الحقل Fega

وللترتيب من الأقدم إلى الأحدث :-

[fega] ASC

 

هذه هى فكرة الفرز داخل النموذج تتغير بتغير الامر من خلال شريط الادوات

اريد شئ ثابت يعيد الترتيب تلقائى بعد اعادة التشغيل او عمل refresh

[Foksh]

13 دقائق مضت, Abdelaziz Osman said:

اريد شئ ثابت يعيد الترتيب تلقائى بعد اعادة التشغيل او عمل refresh

لا اعلم ما هي الفكرة التي تدور في مخيلتك . ولكن لدي توضيحان ..

1. الفرز سيكون إما من خلال تغيير مصدر سجلات النموذج وتضع الفرز حسب ما تريد من داخل استعلام مصدر السجلات للنموذج .
2. استخدام الفكرة التي وضحتها لك ولن تحتاج لأكواد داخل اي حدث .. ولن تتغير ما لم تقم بتغييرها من داخل التصميم .

[ناقل]

20 دقائق مضت, Abdelaziz Osman said:

هذه هى فكرة الفرز داخل النموذج تتغير بتغير الامر من خلال شريط الادوات

اريد شئ ثابت يعيد الترتيب تلقائى بعد اعادة التشغيل او عمل refresh

جرب هذا ....

Private Sub Form_Open(Cancel As Integer)
    Me.OrderBy = "fega ASC" ' للفرز تصاعديًا
    Me.OrderByOn = True
End Sub

Private Sub Form_Current()
    Me.OrderBy = "fega ASC" ' للفرز تصاعديًا
    Me.OrderByOn = True
End Sub

 

[Abdelaziz Osman]

43 دقائق مضت, ناقل said:

جرب هذا ....

Private Sub Form_Open(Cancel As Integer)
    Me.OrderBy = "fega ASC" ' للفرز تصاعديًا
    Me.OrderByOn = True
End Sub

Private Sub Form_Current()
    Me.OrderBy = "fega ASC" ' للفرز تصاعديًا
    Me.OrderByOn = True
End Sub

 

ممتاز سيدى  اشكرك  كثيرا