Taher DZ

استاذي الكريم جعفر انا اعمل على اكسس 2010 المرفق لم يفتح بصفة عادية كما اشرت المشكل أما تغيير مسميات كائنا اكسس دفعة واحدة فلم افهم شيء مما ارسلت

وهو كذلك بارك الله فيكم اساتذتي الكرام اباجودي - جعفر جعلها الله في ميزان حسناتكما صحيح طريقة سهلة وبعيدة عن TempVars لكم مني فائق الاحترام والتقدير

ولكن طريقة الاستاذ جعفر اعرفها ولكن مشكلتها لا يتم فتح التقرير من جهتين اي مثلا التقرير rptCridi يفتح عادي من الفورم FrmRapport لان المعيار =[Forms]![FrmRapport]![txtYear] ولايفتح من الفورم FrmCridiReport لان المعيار مختلف فكيف لي بطريقة اخرى غير طريقة TempVars تفتح من كلى الفورمين FrmRapport و FrmCridiReport ملاحظة : نفس الشيء لبقية الفورمات

شكرا استاذ اباجودي على تعبك معانا ربنا يحفظك الان ارجع الى المثل الصيني الذي يقول "لا تعطيني سمكة وعلمني كيف اصطاد السمكة" فأين تم التعديل استاذ

التعديل يكون على الملف 1297.2020.rar

لا بالعكس المستخدم يريد استبدالها كلما اقتضت الضرورة استاذ ابا جودي لماذا ارجعت المعيار في النموذج الذي ارفقته =[Forms]![FrmRapport]![txtYear]

استاذ جعفر حياك الله لقد تم الغاء هذا المعيار من طرف الاستاذ أبا جودي وتمت العملية بنجاج في كل التقارير لاحظ 1297.2020.rar والان بقيت المشكلة كما وضحت في الرد اليوم الذي رفعته اليوم صباحا

شكرا لك استاذ اباجودي العملية تمت بشكل جيد ولكن الا تلاحظ هي مبرمجة على سنة تاريخ الجهاز اي 2020 فكيف لي اذا اردت ان اضع مثلا : 2019 او 2018 او ...........او 2011 لاحظت عند فتح التقرير على سنة 2019 تظهر نتائج سنة 2020 حاولت تغيير Year(Date) ب txtYear فلم يفلح معي Private Sub Form_Load() txtYear = Year(Date) CrntYear = txtYear TempVars.Add "x", CrntYear End Sub

عملت ما اشرت لي عليه في وضع التصميم كل تقرير ووضع =[TempVars]![x] فلم يتم معالجة المشكل في الباقي

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

rptCridi

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

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

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

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

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

نعم المعيارات في الاستعلامات وفي التقارير نفسها استعلام 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;

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

السلام عليكم اساتذتنا الكرام لديا عدة تقارير تفتح بشكل عادي على حدى اي عندما يتم فتحها عن طريق الفورم الخاص بها ولكن عندما تم تجميعهم في فورم واحد وهو فورم 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 كيف ينم التعديل

شكرا لك استاذ احمد تمت التجربة

إقتراح جميل استاذ أبو إبراهيم الغامدي بارك الله فيك

دخلت على الرابط وماوصلت لنتيجة استاذ

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

استاذ احمد هل تم تعديل اخر عير هذا في الملف DoCmd.TransferText acExportDelim, "qry", "استعلام4", strPathAndfile & xx & ".txt", False Shell ("C:\Windows\system32\notepad.exe" & " " & strPathAndfile & xx & ".txt"), vbNormalFocus

وهو كذالك استاذ شكرا ربي يبارك فيك