فتح عدة نقارير بواسطة combobox

[كريمو2]

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

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

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

 

 يطلب منك ادخال قيمة معلمة وهي السنة Txtyear

وهذا هو حدث عند التغيير

Private Sub Nome_Report_Change()
On Error GoTo Err_Nome_Report_Click

Dim stLinkCriteria As String
stDocName = Nome_Report.Text
'stLinkCriteria = "[Nome_Report]=" & "'" & Me![Nome_Report] & "'"
DoCmd.OpenReport stDocName, acViewPreview, , "Year(date()) = " & Me.txtYear & ""

Exit_Nome_Report_Click:
Exit Sub
 
Err_Nome_Report_Click:
If Err.Number = 2501 Then
Resume Exit_Nome_Report_Click
Else
    MsgBox Err.Description
    Resume Exit_Nome_Report_Click
End If

End Sub

كيف ينم التعديل

[jjafferr]

وعليكم  السلام كريمو 🙂

 

الظاهر ان الاستعلام مصدر بيانات احد التقارير فيه معيار يشير الى النموذج FrmCcpReport  وفيه الحقل txtYear .

 

جعفر

[كريمو2]

نعم الاستعلام هو مصدر كل البيانات استاذي 

[jjafferr]

15 دقائق مضت, jjafferr said:

يشير الى النموذج FrmCcpReport  وفيه الحقل txtYear .

وهل في الاستعلام معيار او قيمة تشير الى النموذج FrmCcpReport  وفيه الحقل txtYear ،

او قد تكون الاشارة من التقرير نفسه !!

 

جعفر

[كريمو2]

نعم المعيارات في الاستعلامات وفي التقارير نفسها

استعلام ccp
SELECT ccp.ID, ccp.NCcp, ccp.TheValue, ccp.TxtMonth, ccp.Atawet, ccp.Obsérvation, Bdgi.Année
FROM ccp LEFT JOIN Bdgi ON ccp.ID = Bdgi.ID
WHERE (((Year([TxtMonth]))=[Forms]![FrmCcpReport]![txtYear]));

استعلام القروض
SELECT Employee.EmployeeID, Employee.[Nom et Prénom], Cridi.Cridi_Date, Cridi.Cridi_ID, Cridi.Cridi_Value, Cridi.DiscountStartDate, Cridi.DiscountEndDate, Cridi.DiscountPerMonth, Cridi.Obsérvation FROM Employee INNER JOIN Cridi ON Employee.EmployeeID=Cridi.EmployeeID WHERE (((Year([Cridi_Date]))=[Forms]![FrmCridiReport]![txtYear])) ORDER BY Cridi.Cridi_Date, Cridi.DiscountStartDate; 

استعلام المنح
SELECT Employee.EmployeeID, Employee.[Nom et Prénom], Mena7.Menha_Date, Sum(Nz(mont1,0)) AS smont1, Sum(Nz([mont2],0)) AS smont2, Sum(Nz([mont3],0)) AS smont3, Sum(Nz([mont4],0)) AS smont4, Sum(Nz([mont5],0)) AS smont5, Sum(Nz([mont6],0)) AS smont6, Sum(Nz([mont7],0)) AS smont7, Sum(Nz([mont8],0)) AS smont8, Sum(Nz([mont9],0)) AS smont9, Sum(Nz([mont10],0)) AS smont10, Sum(Nz([mont11],0)) AS smont11, [smont1]+[smont2]+[smont3]+[smont4]+[smont5]+[smont6]+[smont7]+[smont8]+[smont9]+[smont10]+[smont11] AS TheSum FROM Employee INNER JOIN Mena7 ON Employee.EmployeeID = Mena7.EmployeeID WHERE (((Year([Menha_Date]))=[Forms]![FrmMen7Report]![txtYear])) GROUP BY Employee.EmployeeID, Employee.[Nom et Prénom], Mena7.Menha_Date ORDER BY Mena7.Menha_Date; 

 

[jjafferr]

اذن عندك اختيارين :

ان يكون النموذج  FrmCcpReport  مفتوح (حتى ولو في وضع مخفي) ، والحقل txtYear تكون فيه السنة ، ثم تفتح التقارير ، وعندد اغلاق التقارير تغلق النموذج ،

او

ان تغير المعايير ، فلا تشير لذلك النموذج القديم ، وانما تشير الى النموذج الجديد ، وتعمل فيه الحقل txtYear

 

جعفر

[كريمو2]

ممكن يكون الحيار الاول استاذ 

اما الخيار الثاني لنفترض اني غيرت المعيار ولا اشير للنموذج القديم فهل ممكن ان  افتح التقارير من جهة النماذج الخاصة بها 

[jjafferr]

الطريقة اللي استعملها انا :

دائما يكون عندي نموذج رئيسي مفتوح ولا اغلقه ،

فأضع الحقل txtYear هناك (مخفي) ، وارسل له القيمة من اي نموذج آخر ،

والمعيار في الاستعلام او التقارير ن تشير الى هذا الحقل في النموذج الرئيسي ،

وبهذه الطريقة ، لا يهم اي نموذج يفتح التقرير 🙂

 

جعفر

[كريمو2]

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

2020.mdb

2020.rar

[jjafferr]

شو اسم النموذج الرئيسي الذي دائما يكون مفتوح ؟

[jjafferr]

النموذج Swichboard غير موجود !!

[كريمو2]

ايه حذف النموذج Swichboard  وهل له علاقة بهذا

ليس نموذج واحد بل عدة نماذج وهي

 

[jjafferr]

حتى يعمل البرنامج ، يجب التاكد ان النموذج Swichboard دائما مفتوح ، ولو مخفي 🙂

 

جعفر

1297.2020.mdb.zip

[ابو جودي]

39 دقائق مضت, jjafferr said:

حتى يعمل البرنامج ، يجب التاكد ان النموذج Swichboard دائما مفتوح ، ولو مخفي 🙂

 

جعفر

1297.2020.mdb.zip 308.5 kB · 2 downloads

 

 

طيب ممكن سؤال استاذى الجليل ومعلمى القدير و والدى الحبيب الاستاذ @jjafferr 

عن نفسى مش بحب افتح نموذج مخفى 

لماذا لا يتم انشاء موديول ونرف متغير عام قيه وليكن

Global CrntYear As Integer

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

Forms!Swichboard!txtYear = Year(Date)

بذاك

CrntYear = Year(Date)
TempVars.Add "x", CrntYear

وفى مربع السرد 

DoCmd.OpenReport stDocName, acViewPreview, , "Year(date()) = " & CrntYear & ""

 

ولا ننسى القيمة المعلمة التى فى التقارير يتم استبدالها ب

[TempVars]![x]

 

تم تعديل نوفمبر 29, 2020 بواسطه ابا جودى

[كريمو2]

شكرا استاذي على يد مد المساعدة

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

1298.2020.mdb

ولم تتم معالجة المشكلة

 

[ابو جودي]

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

شكرا استاذي على يد مد المساعدة

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

1298.2020.mdb 2.34 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 0 downloads

ولم تتم معالجة المشكلة

 

 

طيب جرب فتح التقرير باسم rptCridi

لو اشتغل معاك تمام 

فقط عدل القيمة المعلمة فى باقى التقارير بالمعيار الاتى

[TempVars]![x]

بدلا من 

Forms!Swichboard!txtYear

 

1297.2020.mdb

تم تعديل نوفمبر 29, 2020 بواسطه ابا جودى

[كريمو2]

أستاذ ابا جودي اهلا وسهلا بك

التقرير المشار يفتح ولكن السنة في التقرير ظهرت بها Name

[ابو جودي]

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

أستاذ ابا جودي اهلا وسهلا بك

التقرير المشار يفتح ولكن السنة في التقرير ظهرت بها Name

فى اى تقرير  ؟ ؟

ما اسم هذا التقرير ؟؟؟؟؟

[كريمو2]

rptCridi

[ابو جودي]

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

rptCridi

فى وضع التصميم اجعل مصدر بيانات مربع نص السنة 

=[TempVars]![x]

 

[كريمو2]

2 دقائق مضت, ابا جودى said:

=[TempVars]![x]

تم 

والتقارير الباقية الاخرى استاذ

[ابو جودي]

نفس الطريقة 

[كريمو2]

عملت ما اشرت لي عليه في وضع التصميم كل تقرير ووضع 

=[TempVars]![x]

فلم يتم معالجة المشكل في الباقي

[ابو جودي]

كيف ؟!

 

انظر 

 

1297.2020.mdb

وان كان الاسهل لك هو فتح النمودح المخفى كما اشار استاذنا الجليل

اليك المرفق

 

1297.2020.mdb

[كريمو2]

شكرا لك استاذ اباجودي

العملية تمت بشكل جيد ولكن 

الا تلاحظ هي مبرمجة على سنة تاريخ الجهاز اي 2020

فكيف لي اذا اردت ان اضع مثلا : 2019 او 2018 او ...........او 2011 

لاحظت عند فتح التقرير على سنة 2019 تظهر نتائج سنة 2020 

حاولت تغيير Year(Date) ب txtYear فلم يفلح معي 

Private Sub Form_Load()
    txtYear = Year(Date)
    CrntYear = txtYear
    TempVars.Add "x", CrntYear
End Sub