بحث بالنقدي بحث بالاجل

[النجاشي]

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

استاتذتي الكرام 

اريد البحث عن الفواتير النقدي بنص البحث عن نقدي

والبحث عن اجل بنص البحث عن الاجل 

وان  لا يبحث اي واحد منهما الا بالشي المخصصه له 

شاكرين احبتي

مع جزيل الشكر

بحث بالنقدي والاجل.rar

[النجاشي]

للرفع

[النجاشي]

استاتذي الكرام هل موضوعي ماله حل ام السوال غير واضح اوضح اكثر 

اليك تحياتي احبتي

[jjafferr]

السلام عليك اخي وضاح

 

الرابط شارح فيه المطلوب 100%

 

جعفر

[النجاشي]

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

السلام عليك اخي وضاح

 

الرابط شارح فيه المطلوب 100%

 

جعفر

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

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

بارك الله فيك استاذنا الحبيب جعفر

وان شاء الله نوصل لحل بهذا المنتدي الرائع

[jjafferr]

تفضل

 

الكود:

Private Sub CA_invoice2(ad, inv)

    If Len(Nz(inv, 0) & "") = 0 Then
        
        Me.frmsubSearch_sales.Form.Filter = ""
        Me.frmsubSearch_sales.Form.FilterOn = False
        
    Else
    
        Me.frmsubSearch_sales.Form.Filter = "[Adfah]='" & ad & "' And [Rjmfatwra] like '*" & inv & "*'"
        Me.frmsubSearch_sales.Form.FilterOn = True
        
    End If
    
End Sub

Private Sub A_invoice_Change()

    Call CA_invoice2("اجل", Me.A_invoice.Text)
End Sub

Private Sub C_invoice_Change()

    Call CA_invoice2("نقدي", Me.C_invoice.Text)
End Sub

 

جعفر

770.بحث بالنقدي والاجل.mdb.zip

[النجاشي]

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

تفضل

 

الكود:

Private Sub CA_invoice2(ad, inv)

    If Len(Nz(inv, 0) & "") = 0 Then
        
        Me.frmsubSearch_sales.Form.Filter = ""
        Me.frmsubSearch_sales.Form.FilterOn = False
        
    Else
    
        Me.frmsubSearch_sales.Form.Filter = "[Adfah]='" & ad & "' And [Rjmfatwra] like '*" & inv & "*'"
        Me.frmsubSearch_sales.Form.FilterOn = True
        
    End If
    
End Sub

Private Sub A_invoice_Change()

    Call CA_invoice2("اجل", Me.A_invoice.Text)
End Sub

Private Sub C_invoice_Change()

    Call CA_invoice2("نقدي", Me.C_invoice.Text)
End Sub

 

جعفر

770.بحث بالنقدي والاجل.mdb.zip

الله يسعدك ويرضي عليك استاذي الحبيب ما شاء الله عليك هو المطلوب بكله الله يبارك فيك 

الف الف شكر يالحبيب

ررررررررررررررررررررررررررررررروعه  لي يومين صدع راسي ابحث عنه 

 الله يعطيك العافيه استاذنا @jjafferr

ما شاء الله عيك الله يعطيك الصحه