تصفية نموذج بأكثر من معيار

[فؤاد الدلوي]

السلام عليكم ورحمة الله وبركاته، اساتذتي الأعزاء النموذج (AA) اريده ان يعرض سجلات المشتركين الذين لم يدفعوا اقساطهم السنويةخلال السنة الحالية والسنوات السابقة شكرا  

test.accdb

[طاهر اوفيسنا]

لاحظ الصورة نتمنى يكون المطلوب

test6325.rar

تم تعديل الخميس at 11:21 بواسطه طاهر اوفيسنا

[فؤاد الدلوي]

@طاهر اوفيسنا شكرا استاذ لكن الذي اريده بما اننا في 2025 ان يعرض في النموذج السجلات التي لم تدفع الاقساط 2025 و2024 كما يلي (السجل 3 لم يدفع 2025، السجل 4 لم يدفع 2024، السجل 2و6 لم يدفعا كلاً من 2024 و 2025) بمعنى ان يعرض في النموذج السجلات لم يدفعوا سنة 2024 والذين لم يدفعوا سنة 2025 في نموذج واحد شكرا جزيلاً 

[طاهر اوفيسنا]

1 ساعه مضت, فؤاد الدلوي said:

(السجل 3 لم يدفع 2025، السجل 4 لم يدفع 2024، السجل 2و6 لم يدفعا كلاً من 2024 و 2025)

اخي حسب الجدول فإن السجلات التي أشرت لها لا علاقة لها بالدفع خلال السنوات المعنية 2024-2025

ملاحظة : في نظري فيه نقص في ملء سجل البيانات 

[Foksh]

17 دقائق مضت, طاهر اوفيسنا said:

اخي حسب الجدول فإن السجلات التي أشرت لها لا علاقة لها بالدفع خلال السنوات المعنية 2024-2025

ملاحظة : في نظري فيه نقص في ملء سجل البيانات 

هذا يعني أن السجل 1 ، دفع في 2024,2025 على سبيل المثال ، صحيح ؟؟؟؟

أعتقد ان طريقة بنية الجدول والسجلات ستربك لاحقاً الاستعلام عند كثرة السجلات وزيادة البيانات 😵 !!!!

[kkhalifa1960]

استاذ @فؤاد الدلوي هل هذا ماتبحث عنه .... ادخل سنة البحث 2025 وطالع الناتج .. ووافني بالرد .

test-111.rar

[Foksh]

مشاركة مع الإخوة والأساتذة ، جرب استعلام التوحيد Query1 التالي :-

SELECT tip.ID, tip.nam, '2024' AS MissedYear
FROM tip
WHERE tip.ID NOT IN (SELECT Tshy.id FROM Tshy WHERE Tshy.yearshy = '2024')
UNION
SELECT tip.ID, tip.nam, '2025' AS MissedYear
FROM tip
WHERE tip.ID NOT IN (SELECT Tshy.id FROM Tshy WHERE Tshy.yearshy = '2025');

سيعرض لك السنة التي لم يدفع فيها العميل قسطه السنوي ..
جرب وأخبرنا بالنتيجة ,,

test.accdb

[فؤاد الدلوي]

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

استاذ @kkhalifa1960 في حال لا اريد كتابة سنة التسديد للذين لم يدفعوا اي مبلغ التسديد السنوي (0) وهو القيمة الافتراضية بمعنى بقاء سنة التسديد فارغ لهؤلاء، فعملية كتابة سنة التسديد تأخذ وقتاً خاصة إذا كانت لدي سجلات كثيرة لم يسددوا. وهل ينطبق هذا على السنوات اللاحقة. شكرا جزيلاً  

[kkhalifa1960]

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

اليك الشرح والمرفق .   

test-112.rar

[Eng.Qassim]

مشاركة مع الاساتذة...

احب ان اعمل الجداول بنفسي ...اما بالنسبة لسنة التسديد تظهر تلقائيا بعد تحديد التاريخ 

 

unpaid.accdb

[فؤاد الدلوي]

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

 

test.accdb

تم تعديل السبت at 05:36 بواسطه فؤاد الدلوي
اظافة

[فؤاد الدلوي]

ممكن اساتذتي معرفة مالخطأ في هذا الكود إذ يقوم بتصفية السجلات التي لم يتم الدفع مطلقاً totalshy=0 والتي لم يتم الدفع في سنة البحث yearshy 

Private Sub txt_AfterUpdate()

    ' تعريف السنة كرقم

    Dim selectedYear As Integer

    selectedYear = CInt(Me.txt.Value)  ' تحويل القيمة إلى رقم إذا كانت مخزنة كنص 

    ' تطبيق التصفية

    Me.Filter = "[totalshy] = 0 OR ([yearshy] <> " & selectedYear & " AND [totalshy] <> 0)"

    Me.FilterOn = True

End Sub

 

 

End Sub

---

test.accdb

تم تعديل السبت at 18:03 بواسطه فؤاد الدلوي

[Foksh]

لم اقم بتحميل المرفق ، ولكن جرب التالي بتصحيح بعض الأخطاء ..

Private Sub txt_AfterUpdate()
    Dim selectedYear As Integer
    If IsNumeric(Me.txt.Value) Then
        selectedYear = CInt(Me.txt.Value)
    Else
        MsgBox "الرجاء إدخال سنة صحيحة", vbExclamation
        Exit Sub
    End If
    Me.Filter = "[totalshy] = 0 OR ([yearshy] <> " & selectedYear & " AND [totalshy] <> 0)"
    Me.FilterOn = True
End Sub

 

[فؤاد الدلوي]

استاذ @Foksh شكراً لكن ما زال هناك خطأ ممكن مرفق 

[Foksh]

15 ساعات مضت, فؤاد الدلوي said:

استاذ @Foksh شكراً لكن ما زال هناك خطأ ممكن مرفق 

قد يكون الحقل في الجدول نصي وليس رقمي,,
جرب التعديل التالي :-

Private Sub txt_AfterUpdate()
Dim selectedYear As Integer
selectedYear = Me.txt

Me.Filter = "[TOTALSHY] = 0 OR ([yearshy] <> '" & selectedYear & "' AND [TOTALSHY] <> 0)"
Me.FilterOn = True
End Sub

 

تم تعديل الأحد at 18:18 بواسطه Foksh