تصفية البيانات

[عفرنس]

أريد  تصفية البيانات من خلال ثلاثة كمبوبوكس . في form2

 

Database1.rar

تم تعديل أكتوبر 9, 2020 بواسطه فايز..

[Shivan Rekany]

اتفضل 
حسب فهمي لطلبك
استخدمت هذه الاكواد

Public Sub a_AfterUpdate()
If Len(Me.a & "") <> 0 And Len(Me.b & "") = 0 And Len(Me.C & "") = 0 Then
    Me.Filter = "[Safe]='" & Me.a & "'"
    Me.FilterOn = True
ElseIf Len(Me.a & "") <> 0 And Len(Me.b & "") <> 0 And Len(Me.C & "") = 0 Then
    Me.Filter = "[Safe]='" & Me.a & "'" & "and [Sub]='" & Me.b & "'"
    Me.FilterOn = True
ElseIf Len(Me.a & "") <> 0 And Len(Me.b & "") <> 0 And Len(Me.C & "") <> 0 Then
    Me.Filter = "[Safe]='" & Me.a & "'" & "and [Sub]='" & Me.b & "'" & "and [Class]='" & Me.C & "'"
    Me.FilterOn = True
ElseIf Len(Me.a & "") = 0 And Len(Me.b & "") <> 0 And Len(Me.C & "") <> 0 Then
    Me.Filter = "[Sub]='" & Me.b & "'" & "and [Class]='" & Me.C & "'"
    Me.FilterOn = True
ElseIf Len(Me.a & "") = 0 And Len(Me.b & "") = 0 And Len(Me.C & "") <> 0 Then
    Me.Filter = "[Class]='" & Me.C & "'"
    Me.FilterOn = True
ElseIf Len(Me.a & "") <> 0 And Len(Me.b & "") = 0 And Len(Me.C & "") <> 0 Then
    Me.Filter = "[Safe]='" & Me.a & "'" & "and [Class]='" & Me.C & "'"
    Me.FilterOn = True
ElseIf Len(Me.a & "") = 0 And Len(Me.b & "") <> 0 And Len(Me.C & "") = 0 Then
    Me.Filter = "[Sub]='" & Me.b & "'"
    Me.FilterOn = True
ElseIf Len(Me.a & "") = 0 And Len(Me.b & "") = 0 And Len(Me.C & "") = 0 Then
    Me.Filter = ""
    Me.FilterOn = False
End If
End Sub

Private Sub b_AfterUpdate()
    Call a_AfterUpdate
End Sub

Private Sub BtnCancelFilter_Click()
    Me.a = "": Me.b = "": Me.C = "": Me.Filter = "": Me.FilterOn = False
End Sub

Private Sub C_AfterUpdate()
    Call a_AfterUpdate
End Sub

اليك ملفك بعد اضافة

 

Database1.rar

[عفرنس]

8 ساعات مضت, Shivan Rekany said:

اتفضل 
حسب فهمي لطلبك
استخدمت هذه الاكواد

Public Sub a_AfterUpdate()
If Len(Me.a & "") <> 0 And Len(Me.b & "") = 0 And Len(Me.C & "") = 0 Then
    Me.Filter = "[Safe]='" & Me.a & "'"
    Me.FilterOn = True
ElseIf Len(Me.a & "") <> 0 And Len(Me.b & "") <> 0 And Len(Me.C & "") = 0 Then
    Me.Filter = "[Safe]='" & Me.a & "'" & "and [Sub]='" & Me.b & "'"
    Me.FilterOn = True
ElseIf Len(Me.a & "") <> 0 And Len(Me.b & "") <> 0 And Len(Me.C & "") <> 0 Then
    Me.Filter = "[Safe]='" & Me.a & "'" & "and [Sub]='" & Me.b & "'" & "and [Class]='" & Me.C & "'"
    Me.FilterOn = True
ElseIf Len(Me.a & "") = 0 And Len(Me.b & "") <> 0 And Len(Me.C & "") <> 0 Then
    Me.Filter = "[Sub]='" & Me.b & "'" & "and [Class]='" & Me.C & "'"
    Me.FilterOn = True
ElseIf Len(Me.a & "") = 0 And Len(Me.b & "") = 0 And Len(Me.C & "") <> 0 Then
    Me.Filter = "[Class]='" & Me.C & "'"
    Me.FilterOn = True
ElseIf Len(Me.a & "") <> 0 And Len(Me.b & "") = 0 And Len(Me.C & "") <> 0 Then
    Me.Filter = "[Safe]='" & Me.a & "'" & "and [Class]='" & Me.C & "'"
    Me.FilterOn = True
ElseIf Len(Me.a & "") = 0 And Len(Me.b & "") <> 0 And Len(Me.C & "") = 0 Then
    Me.Filter = "[Sub]='" & Me.b & "'"
    Me.FilterOn = True
ElseIf Len(Me.a & "") = 0 And Len(Me.b & "") = 0 And Len(Me.C & "") = 0 Then
    Me.Filter = ""
    Me.FilterOn = False
End If
End Sub

Private Sub b_AfterUpdate()
    Call a_AfterUpdate
End Sub

Private Sub BtnCancelFilter_Click()
    Me.a = "": Me.b = "": Me.C = "": Me.Filter = "": Me.FilterOn = False
End Sub

Private Sub C_AfterUpdate()
    Call a_AfterUpdate
End Sub

اليك ملفك بعد اضافة

 

Database1.rar 172.19 kB · 3 downloads

جزاك الله خيرا .. هو المطلوب .. 

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

بمعنى : اذا انا عملت تصفية ( للصف الأول المتوسط الفصل رقم 5 ) لا يعطيني طلاب الفصل الذي عملت له التصفية . يعطيني كل الطلاب ، وهذا ما لا أريد . 

تم تعديل أكتوبر 10, 2020 بواسطه فايز..

[agha4m]

9 hours ago, فايز.. said:

جزاك الله خيرا .. هو المطلوب .. 

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

بمعنى : اذا انا عملت تصفية ( للصف الأول المتوسط الفصل رقم 5 ) لا يعطيني طلاب الفصل الذي عملت له التصفية . يعطيني كل الطلاب ، وهذا ما لا أريد . 

حاولت التطبيق لم استطع ما هي المشكلة

flterrr.accdb

[Shivan Rekany]

في ١٠‏/١٠‏/٢٠٢٠ at 08:44, فايز.. said:

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

بمعنى : اذا انا عملت تصفية ( للصف الأول المتوسط الفصل رقم 5 ) لا يعطيني طلاب الفصل الذي عملت له التصفية . يعطيني كل الطلاب ، وهذا ما لا أريد . 

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

لذلك انا عملت لك تقرير جديد واضفت اليه هذا الكود عند فتحه

Private Sub Report_Open(Cancel As Integer)
On Error Resume Next
    Me.Filter = Form_form2.Filter
    Me.FilterOn = True
End Sub

اليك ملفك بعد اضافة

 

Database1.rar

[Shivan Rekany]

15 ساعات مضت, agha4m said:

حاولت التطبيق لم استطع ما هي المشكلة

هناك بعض اختلافات بين القاعدتين للك يظهر لك المشكلة

اولا : كل الحقول المطلوبة لعمل فلتر في قاعدة الاولى من نوع نصي لكن في قاعدة بياناتك هم بنوع رقمي لذلك يجب ان تغير في الكود
اي فقط يجب عليك ان تغير الكود من هذا

    Me.Filter = "[stage]='" & Me.a & "'"

الى هذا

    Me.Filter = "[stage]=" & Me.a 

اي يجب ان تحذف هذه العلامة ( ' ) مع ( & "'" )

ثانيا : في النموذج بها حقل باسم stage ومصدره هذه الجملة المتكونة من عمودين

SELECT [tswstage].[ID], [tswstage].[tswstage] FROM tswstage; 

لكن مصدر كومبوبوكس a  مصدره متكونة من عمود واحد وهو 

SELECT DISTINCT tswstage.tswstage FROM tswstage;

عندما تريد ان تعمل فلتر ما بيعمل لك شيء لان عمود الاول من الحقل بها ارقام ID وليس هناك شيء متساوي بين حقل ID و كومبوبوكس البحث بها اسماء الصفوف

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

ونفس الشيء للحقلين الاخرين

قمنا بتعديله 

القي نظرتا اليه 

تفضل اليك قاعدة بعد تعديل

 

flterrr.accdb

[عفرنس]

15 ساعات مضت, Shivan Rekany said:

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

لذلك انا عملت لك تقرير جديد واضفت اليه هذا الكود عند فتحه

Private Sub Report_Open(Cancel As Integer)
On Error Resume Next
    Me.Filter = Form_form2.Filter
    Me.FilterOn = True
End Sub

اليك ملفك بعد اضافة

 

Database1.rar 172.98 kB · 2 downloads

جزاك الله خيرا