مساعدة / تصفية بين تاريخين لاتعمل

[محمد التميمي]

الاسم عليكم

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

ملاحظة / اخواني المرفق من انشاء اكسس 2013 - 32 بايت عربي

بيع.rar

[jjafferr]

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

 

واهلا وسهلا بم في المنتدى

 

تفضل:

Option Compare Database

    Dim strcriteria As String
'

Private Sub dfgh_AfterUpdate()

    Call searchCriteria
    strcriteria = ""
End Sub

Private Sub Form_Load()

    Call searchCriteria
    strcriteria = ""
End Sub

Private Sub n1_AfterUpdate()
Call searchCriteria
End Sub

Private Sub n2_AfterUpdate()

    Call searchCriteria
    strcriteria = ""
End Sub

Private Sub qwer_AfterUpdate()
    
    Call searchCriteria
    strcriteria = ""
End Sub

Function searchCriteria()

    Dim task As String

    If Not IsNull(Me.dfgh) Then
        strcriteria = " And "
        strcriteria = strcriteria & " [اسم المشتري] = '" & Me.dfgh & "' "
    End If


    If Not IsNull(Me.qwer) Then
        strcriteria = strcriteria & " And "
        strcriteria = strcriteria & " [نوع البيع] = '" & Me.qwer & "' "
    End If

    
    If Not IsNull(Me.n1) And Not IsNull(Me.n2) Then
        strcriteria = strcriteria & " And "
        strcriteria = strcriteria & "Format([تاريخ الفاتورة],'yyyymmdd') Between " & Format(Me.n1, "yyyymmdd") & " And " & Format(Me.n2, "yyyymmdd")
    End If
    
    If Left(strcriteria, 5) = " And " Then
        strcriteria = " Where " & Mid(strcriteria, 6)
    End If
    'Debug.Print strcriteria
    
    task = "Select * from [راس الفاتورة]" & strcriteria

    Me.مساعد_تصفية_فواتير_البيع.Form.RecordSource = task
    Me.مساعد_تصفية_فواتير_البيع.Form.Requery
    
End Function



Private Sub اغلاق_Click()
DoCmd.Close acForm, "تصفية فواتير البيع"
DoCmd.OpenForm "المركزي", acNormal

End Sub

Private Sub أمر10_Click()
Me.dfgh = Null
Me.qwer = Null
Me.n1 = Null
Me.n2 = Null
Call searchCriteria

End Sub

Private Sub أمر11_Click()

    Call searchCriteria
    DoCmd.OpenReport "تصفية البيع", acViewNormal, , strcriteria
    strcriteria = ""
End Sub

 

جعفر

870.بيع.accdb.zip

[محمد التميمي]

اخي العزيز جعفر المحترم

السلام عليكم

بعد التحية اشكرك الشكر الجزيل على اختصار الكد وجعله يعمل بشكل جيد ...... ولاكن زر الطباعة لايعمل بشكل جيد ارجوا من جنابكم الكريم

تعديل كد زر الطباعة  ولكم من الله الاجر مع فائق شكري واحترامي

870.بيع.accdb.zip

[jjafferr]

المعذرة

تفضل

Option Compare Database

    Dim strcriteria As String
'

Private Sub dfgh_AfterUpdate()

    Call searchCriteria
End Sub

Private Sub Form_Load()

    Call searchCriteria
End Sub

Private Sub n1_AfterUpdate()

    Call searchCriteria
End Sub

Private Sub n2_AfterUpdate()

    Call searchCriteria
End Sub

Private Sub qwer_AfterUpdate()
    
    Call searchCriteria
End Sub

Function searchCriteria()

    Dim task As String

    strcriteria = ""
    If Not IsNull(Me.dfgh) Then
        strcriteria = strcriteria & " And "
        strcriteria = strcriteria & " [اسم المشتري] = '" & Me.dfgh & "' "
    End If


    If Not IsNull(Me.qwer) Then
        strcriteria = strcriteria & " And "
        strcriteria = strcriteria & " [نوع البيع] = '" & Me.qwer & "' "
    End If

    
    If Not IsNull(Me.n1) And Not IsNull(Me.n2) Then
        strcriteria = strcriteria & " And "
        strcriteria = strcriteria & "Format([تاريخ الفاتورة],'yyyymmdd') Between " & Format(Me.n1, "yyyymmdd") & " And " & Format(Me.n2, "yyyymmdd")
    End If
    
    If Left(strcriteria, 5) = " And " Then
        strcriteria = " Where " & Mid(strcriteria, 6)
    End If
    'Debug.Print strcriteria
    
    task = "Select * from [راس الفاتورة]" & strcriteria

    Me.مساعد_تصفية_فواتير_البيع.Form.RecordSource = task
    Me.مساعد_تصفية_فواتير_البيع.Form.Requery
    
End Function



Private Sub اغلاق_Click()
DoCmd.Close acForm, "تصفية فواتير البيع"
DoCmd.OpenForm "المركزي", acNormal

End Sub

Private Sub أمر10_Click()
Me.dfgh = Null
Me.qwer = Null
Me.n1 = Null
Me.n2 = Null
Call searchCriteria

End Sub

Private Sub أمر11_Click()

    strcriteria = Replace(strcriteria, " Where ", "")
    'DoCmd.OpenReport "تصفية البيع", acViewPreview, , strcriteria
    DoCmd.OpenReport "تصفية البيع", acViewNormal, , strcriteria
End Sub

 

جعفر

870..accdb.zip

[محمد التميمي]

احسنت اخي العزيز جعفر وبارك الله فيك وكثر الله من امثالك الطيبين

الكد يعمل بأمتياز وقد اختصر لي هذا العمل من ثلاث نماذج الى نموذج واحد 

شكراً جزيلاً

تم تعديل يناير 15, 2018 بواسطه محمد التميمي

[jjafferr]

حياك الله

 

برنامجك كان فيه مشكله ما ، فما كنت اقدر اصطياد الكود البارحة ،

لكني اليوم نقلت برنامجك الى قاعدة بيانات جديدة ، فاستطعت التحكم فيه بالكامل

 

جعفر

[محمد التميمي]

اشكرك على سرعة الاجابة وانشاء الله سأتمسك بهذا المنتدى الرائع