تصفية بالقائمة المنسدلة برقم الفاتورة لايعمل

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

اخواني الاعزاء

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

فهل لي بمساعة وصلاح كد التصفية برقم الفاتورة التي في المرفق لاني لا املك خبر واسعة في تصحيح الاكواد

وانا ممنوووووووون لكم

ملاحظة : هذه القوائم المنسدلة قام بتعديلها لي الاخ جعفر مشكوراً قبل مدة قصيرة المرفق اكسس 2013  32بايت

                 

تصفية.rar

[صالح حمادي]

السلام عليكم

تغيير بسيط في الكود الذي تستعمله:

    Dim rs As Object

    Set rs = Me.مساعد_تصفية_فواتير_الشراء.Form.RecordsetClone
    rs.FindFirst "[رقم فاتورة الشراء] = " & Str(Nz(Me![aa1], 0))
    If Not rs.EOF Then Me.مساعد_تصفية_فواتير_الشراء.Form.Bookmark = rs.Bookmark

 

تصفية.rar

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

2 ساعات مضت, صالح حمادي said:

السلام عليكم

تغيير بسيط في الكود الذي تستعمله:

    Dim rs As Object

    Set rs = Me.مساعد_تصفية_فواتير_الشراء.Form.RecordsetClone
    rs.FindFirst "[رقم فاتورة الشراء] = " & Str(Nz(Me![aa1], 0))
    If Not rs.EOF Then Me.مساعد_تصفية_فواتير_الشراء.Form.Bookmark = rs.Bookmark

 

تصفية.rar

اخي صالح المحترم 

شكراً جزيلاً على تعاونك معي ولاكن التعديل على الكد لا يعمل بشكل صحيح حسب ما موضح في الصورة المرفقة هو يقوم بالتظليل فقط 

لو سمحت اخي العزيز انا اريد هكذا ( عند اختيار اي رقم فاتورة من قائمة التصفية المنسدلة يبقى هذا سجل الفاتورة الذي اخترناه معروض لوحده فقط  بالنموذج الفرعي وتختفي بقية السجلات) مع فائق الشكر والتقدير...

 

تصفية.rar

[صالح حمادي]

إذا تريد ظهور إلا سجل واحد فإستعمل الكود التالي:

    Dim strFilter As String
    If Not IsNull(Me.aa1) Or Me.aa1 <> "" Then
      Me.مساعد_تصفية_فواتير_الشراء.Form.Filter = "[رقم فاتورة الشراء]=  " & Me.aa1
      Me.مساعد_تصفية_فواتير_الشراء.Form.FilterOn = True
    Else
      Me.مساعد_تصفية_فواتير_الشراء.Form.FilterOn = False
    End If

 

تصفية.rar

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

منذ ساعه, صالح حمادي said:

إذا تريد ظهور إلا سجل واحد فإستعمل الكود التالي:

    Dim strFilter As String
    If Not IsNull(Me.aa1) Or Me.aa1 <> "" Then
      Me.مساعد_تصفية_فواتير_الشراء.Form.Filter = "[رقم فاتورة الشراء]=  " & Me.aa1
      Me.مساعد_تصفية_فواتير_الشراء.Form.FilterOn = True
    Else
      Me.مساعد_تصفية_فواتير_الشراء.Form.FilterOn = False
    End If

 

تصفية.rar

احسن اخي العزيز وبارك الله فيك هذا هو المطلوب وشكراً جزيلاً