فتح نموذج بتصفية حسب الشهر والسنة

[كريمو2]

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

بالمرفق اريد مساعدة بخصوص الضغط مرتين على TheValueCcp يفتح الفورم Frm_VermLoans بتصفية على الشهر TxtMonth

 

 

Verment.accdb

[Moosak]

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

تفضل :

 

Verment.accdb

[كريمو2]

شكرا استاذ Moosak

[Moosak]

7 دقائق مضت, كريمو2 said:

شكرا استاذ Moosak

العفو أخي كريمو 🙂🌼

[كريمو2]

4 ساعات مضت, Moosak said:

العفو أخي كريمو 🙂🌼

استاذ وجدت مشكلة وهي عدم التصفية بالسنة

 

[ابوخليل]

5 ساعات مضت, Moosak said:

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

تفضل :

 

نيابة عن اخي موسى

استبدل السطر الاخير من الكود بهذا  لإدراج السنة ضمن الشرط   :

 DoCmd.OpenForm "Frm_VermLoans", , , "month([Auto_Date]) & year([Auto_Date])=" & Month([TxtMonth]) & Year([TxtMonth])

 

 

[كريمو2]

44 دقائق مضت, ابوخليل said:

نيابة عن اخي موسى

استبدل السطر الاخير من الكود بهذا  لإدراج السنة ضمن الشرط   :

 DoCmd.OpenForm "Frm_VermLoans", , , "month([Auto_Date]) & year([Auto_Date])=" & Month([TxtMonth]) & Year([TxtMonth])

وهو كذلك

مشكور  استاذنا الكريم  ابوخليل

[كريمو2]

السلام عليكم اساتذة

لقد عملت بالكود المعدل لفتح فورم من طرف الاستاذين Moosak و ابوخليل لفتح التقرير

فوجدت صعوبة في ذلك

Private Sub TxtMonth_DblClick(Cancel As Integer)
 If Me.TheValue <> 0 Then
    DoCmd.Close
    Dim stDocName As String
    stDocName = "rptTransfer_BEA_Ccp"
    DoCmd.OpenReport stDocName, acPreview, , , "month([TxtMonth]) =" & Year([TxtMonth])
    Abou_Taha
 
 End If

End Sub

[MO87]

تفضل حرب

If Me.TheValueCcp <> 0 Then
    DoCmd.Close
    Dim stDocName As String
    stDocName = "Frm_VermLoans"
    DoCmd.OpenForm stDocName, , , "month([Auto_Date]) & year([Auto_Date])=" & Month([TxtMonth]) & Year([TxtMonth])
End If

 

[Moosak]

8 دقائق مضت, كريمو2 said:

التطبيق هنا خاطئ ☝🏻️

أنظر إلى كود الأستاذ @ابوخليل :

في 9‏/2‏/2024 at 01:08, ابوخليل said:

استبدل السطر الاخير من الكود بهذا  لإدراج السنة ضمن الشرط   :

 DoCmd.OpenForm "Frm_VermLoans", , , "month([Auto_Date]) & year([Auto_Date])=" & Month([TxtMonth]) & Year([TxtMonth])

 

[كريمو2]

12 دقائق مضت, كريمو2 said:

Private Sub TxtMonth_DblClick(Cancel As Integer)
 If Me.TheValue <> 0 Then
    DoCmd.Close
    Dim stDocName As String
    stDocName = "rptTransfer_BEA_Ccp"
    DoCmd.OpenReport stDocName, acPreview, , , "month([TxtMonth]) =" & Year([TxtMonth])
    Abou_Taha
 
 End If

End Sub

1 دقيقه مضت, MO87 said:

تفضل حرب

If Me.TheValueCcp <> 0 Then
    DoCmd.Close
    Dim stDocName As String
    stDocName = "Frm_VermLoans"
    DoCmd.OpenForm stDocName, , , "month([Auto_Date]) & year([Auto_Date])=" & Month([TxtMonth]) & Year([TxtMonth])
End If

 

شكرا على الرد السريع

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

1 دقيقه مضت, كريمو2 said:

Private Sub TxtMonth_DblClick(Cancel As Integer)
 If Me.TheValue <> 0 Then
    DoCmd.Close
    Dim stDocName As String
    stDocName = "rptTransfer_BEA_Ccp"
    DoCmd.OpenReport stDocName, acPreview, , , "month([TxtMonth]) =" & Year([TxtMonth])
    Abou_Taha
 
 End If

End Sub

التعديل يكون على هذا الكود اساتذة الكرام

[MO87]

جرب /

Dim strFilter As String

' إنشاء الشرط لتصفية التقرير بحسب الشهر والسنة
strFilter = "Month([TxtMonth]) =" & Month([TxtMonth]) & " AND Year([TxtMonth]) =" & Year([TxtMonth])

' فتح التقرير باستخدام الشرط المعطى
DoCmd.OpenReport "rptTransfer_BEA_Ccp", acViewPreview, , strFilter

 

[كريمو2]

اليك المرفق للتعديل

 

VermCcp.accdb

[كريمو2]

اين المساعدة

[Foksh]

تريد فتح التقرير على الفلترة حسب السنة ؟؟

[كريمو2]

2 دقائق مضت, Foksh said:

تريد فتح التقرير على الفلترة حسب السنة ؟؟

نعم حسب السنة والشهر والامر مختلف على الاول استاذ

[Foksh]

9 ساعات مضت, كريمو2 said:

اليك المرفق للتعديل

 

VermCcp.accdb 760 kB · 1 download

في هذا المرفق ؟؟

[كريمو2]

لم يشتغل المرفق كما هو مطلوب استاذ Moosak

المطلوب  عند الضغط على TxtMonth مرتين يفتح التقرير  rptTransfer_BEA_Ccp

مباشرة وبدون اي ميساجات ادخال معلومة 

[Foksh]

بعد الاطلاع على المرفق أعتقد المشكلة في استعلام التوحيد.

سبب كلامي هذا هو انني انشأت استعلام للجدول Cridi مشتق من استعلامك التوحيدي وقد تم جلب السجلات ، أما من الاستعلام فلم يتم جلب اي سجلات من اي جدول .

وهذه صورة من نتيجة استعلام التوحيد بعد بعض التعديلات ،

 

وأنا ( أعوذ بالله من كلمة أنا ) أعرف قدراتي في استعلامات التوحيد 😅

 

قد يكون لأحد الأخوة معلومة تفيدك وتفيدني معك 🥰

تم تعديل فبراير 13 بواسطه Foksh
اضافة صورة توضيحية 📥

[كريمو2]

شكرا استاذ Foksh على المجهودات المبذولة نتمنى من الأساتذة الكرام يد مد العون وربي يجازي الجميع

[ابوخليل]

السلام عليكم

مشاركة مع اخواني ..

اخي كريموا :

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

ثانيا : الرسائل التي تظهر لك بسبب اختلاف تسمية النموذج الفرعي ، ايضا انت تقوم باغلاق النموذج بالكود قبل فتح التقرير .. لذا تظهر الرسائل بالمطالبة بالمعايير

ثالثا : انا الغيت بعض الاكواد في حقلين في التقرير  لعدم وجود الوحدات النمطية المسؤولة .. ويمكنك كتابتها في برنامجك

تفضل مثالك بعد التعديل

VermCcp2.rar

[كريمو2]

وهو كذالك استاذنا القدير أبوخليل شكرا لك ربي يحفظك