اخر سجل بعد الفلتر

[husseinharby]

السلام عليكم

اريد عند عمل فلتر علي سجل معين ان يذهب الي اخر سجل

في المثال المرفق يذهب عند اول سجل بعد عمل الفلتر

ApowerREC.rar

[biskra]

في خصائص النموذج عند الفتح On open 

استعمل الكود التالي

application.runcommand accmdrecordsgotolast

 

[husseinharby]

عفوا اخى الفاضل هذا ليس المطلوب

المطلوب كما هو موضح في الفيديو بعد تطبيق الفلتر الذهاب الي اخر سجل

[jjafferr]

وعليكم السلام 🙂

 

ضع هذا الكود في احداث النموذج  وسيؤدي العمل :

Option Compare Database
Option Explicit

    Dim Goto_L As Boolean
'

Private Sub Form_ApplyFilter(Cancel As Integer, ApplyType As Integer)

    If ApplyType = 1 Then
    
        Goto_L = True
    End If
    
End Sub

  
Private Sub Form_Current()

    If Goto_L = True Then
        DoCmd.GoToRecord , , acLast
        Goto_L = False
    End If
    
End Sub

.

.

جعفر

New Microsoft Access Database.zip

[ابوبسمله]

40 دقائق مضت, jjafferr said:

وعليكم السلام 🙂

 

ضع هذا الكود في احداث النموذج  وسيؤدي العمل :

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

جزاك الله خيرا معلمى العزيز فقد افدتنى لاننى حاولت استخدام حدث عند تطبيق عامل التصفيه ولم اوفق فاستخدامه ولانى مشغول فلم ابحث فجزاك الله خيرا 🌹

[husseinharby]

شكرا استاذ @jjafferr

لى طلب اخر بعد اذنك اريد تعميم هذا الكود علي باقي النماذج في قاعدة البيانات 

ماذا افعل

تم تعديل نوفمبر 15, 2022 بواسطه husseinharby