مساعدة في فلترة تقرير

[waheidi]

اساتذتي الافاضل هل ممكن مساعدتي فيما يلي :

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

المطلوب :

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

ولكم جزيل الشكر

test.accdb

[محمد أبوعبدالله]

السلام عليكم

تفضل اخي الكريم

لعرض التقرير

Dim strWhereCondition As String
    If Not IsNull(Me.t1) Then
        strWhereCondition = strWhereCondition & " AND sub='" & Me.t1.Value & "'"
    End If
    If Not IsNull(Me.t2) Then
        strWhereCondition = strWhereCondition & " AND [ÇáãæÏíá]='" & Me.t2.Value & "'"
    End If
    If Len(strWhereCondition) > 0 Then
        strWhereCondition = Mid(strWhereCondition, 6)
    End If
        DoCmd.OpenReport "mach", acViewPreview, WhereCondition:=strWhereCondition
        DoCmd.Close acForm, Me.Name

ولطباعة التقرير

Dim strWhereCondition As String
    If Not IsNull(Me.t1) Then
        strWhereCondition = strWhereCondition & " AND sub='" & Me.t1.Value & "'"
    End If
    If Not IsNull(Me.t2) Then
        strWhereCondition = strWhereCondition & " AND [ÇáãæÏíá]='" & Me.t2.Value & "'"
    End If
    If Len(strWhereCondition) > 0 Then
        strWhereCondition = Mid(strWhereCondition, 6)
    End If
        DoCmd.OpenReport "mach", WhereCondition:=strWhereCondition
        DoCmd.Close acForm, Me.Name

UP-test.rar

تحياتي

[waheidi]

جزاك الله كل خير اخي محمد

[محمد أبوعبدالله]

5 دقائق مضت, waheidi said:

جزاك الله كل خير اخي محمد

بالتوفيق اخي الكريم

تحياتي

[بحار الاكسس]

اتفضل التعديل

test.accdb