فلترة السجلات

[Luqman Khooshnaw]

السلام عليكم....

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

والملف في المرفقات 

وشكرا

Filter.accdb

[kkhalifa1960]

تفضل استاذ @Luqman Khooshnaw طلبك حسب ما فهمت . ووافني بالرد .

Filter.rar

[Luqman Khooshnaw]

شكرا جزيلا استاذ العزيز و جزاكم الله خيرا...نعم هذا كان المقصود ...بس فيه اختلاف بسيط وهي انا كنت اقصد مع تغيير او ابديت لاسم العميل يصير الفلترة بشكل اوتوماتيكي و ليس عن طريق الزر...وشكرا

[kkhalifa1960]

51 دقائق مضت, Luqman Khooshnaw said:

بس فيه اختلاف بسيط وهي انا كنت اقصد مع تغيير او ابديت لاسم العميل يصير الفلترة بشكل اوتوماتيكي و ليس عن طريق الزر

 

تفضل استاذ @Luqman Khooshnaw طلبك حسب ما فهمت. بالشرح والمرفق.  ولو تريد الغاء الزر موضح بالشرح   . ووافني بالرد .

                                                                                                            

Filter-1.rar

[Luqman Khooshnaw]

شكرا استاذ العزيز جزاكم الله خيرا......نعم هذا كان المقصود....بس اخر شي ممكن توضح لي اين اضع هذا الكود ؟؟؟

Private Sub FilterRecords()
    Dim strFilter As String
    Dim strCustomer As String
    
    ' ÈäÇÁ ÔÑØ ÇáÝáÊÑÉ
    strFilter = ""
    
    ' ÝáÊÑÉ ÍÓÈ ÇáÊÇÑíÎ ÅÐÇ Êã ÅÏÎÇáå
    If Not IsNull(Me.txtStartDate.Value) And Not IsNull(Me.txtEndDate.Value) Then
        strFilter = strFilter & "[Da_te] Between #" & Format(Me.txtStartDate.Value, "mm/dd/yyyy") & _
                    "# And #" & Format(Me.txtEndDate.Value, "mm/dd/yyyy") & "#"
    End If
    
    ' ÝáÊÑÉ ÍÓÈ ÇÓã ÇáÚãíá ÅÐÇ Êã ÅÏÎÇáå
    strCustomer = Nz(Me.txtCustomerName.Value, "")
    If strCustomer <> "" Then
        If strFilter <> "" Then strFilter = strFilter & " AND "
        strFilter = strFilter & "[ClientName] Like '*" & strCustomer & "*'"
    End If
    
    ' ÊØÈíÞ ÇáÝáÊÑÉ Úáì ÇáäãæÐÌ
    If strFilter <> "" Then
        Me.Filter = strFilter
        Me.FilterOn = True
    Else
        Me.FilterOn = False
    End If

[kkhalifa1960]

بنفس محرر أكواد الفورم . أما اذا تريد أن يستدعى من أي مكان أخر يمكن تحويله الى وحدة نمطية عامة كما بـــ (FrmMain1). واليك المرفق الجديد وبه النموذجان . ووافني بالرد .

Filter-2.rar