طاهر اوفيسنا

حاولت التقيد بما اشرت ولكن لم افلح انظر الترتيب في الاستعلام QryCD والاستعلام QryDM اما في الاستعلام UNION DM & CD بدون ترتيب اما السطر الاخير *000000000022222222980000000040000BBBB لاتبالي بها فهي تكون دائما في اخر الترتيب والترتيب يكون في الاستعلام UNION DM & CD KRIMO7 الى KRIMO157 هذا من جهة ومن جهة اخري كيف ترى البديل اليك المرفق استاذ Trans CD.rar

شكرا استاذ جعفر على الاهتمام تم الحل PARAMETERS StartMonth DateTime = DateSerial(Year(Now),Month(Now),1), EndMonth DateTime = DateSerial(Year(Now),Month(Now)+1,0), Mois Long = Month(Now), Annee Long = Year(Now); SELECT dm(DLookup("[Numéro de compte]","tbl2"),DLookup("[Clé]","tbl2"),Sum(TV),Count(*),Mois,Annee) AS LIGNECD FROM (SELECT EmployeeID, Sum(TheValue) AS TV FROM ( SELECT CompanyID As EmployeeID, [BILL_Value] AS TheValue FROM Bill WHERE Bill_Date BETWEEN StartMonth AND EndMonth UNION ALL SELECT EmployeeID,[Cridi_Value] AS TheValue FROM Cridi WHERE Cridi_Date BETWEEN StartMonth AND EndMonth UNION ALL SELECT EmployeeID,[Menha_Value] AS TheValue FROM Mena7 WHERE Menha_Date BETWEEN StartMonth AND EndMonth UNION ALL SELECT EmployeeID,[NesbaValue] AS TheValue FROM Sanitaire WHERE Sanitaire_Date BETWEEN StartMonth AND EndMonth UNION ALL SELECT EmployeeID,[Moss_Value] AS TheValue FROM Mossada WHERE Moss_Date BETWEEN StartMonth AND EndMonth UNION ALL SELECT EmployeeID,[Scolaire_Value] AS TheValue FROM Scolaire WHERE Scolaire_Date BETWEEN StartMonth AND EndMonth ) GROUP BY EmployeeID); UNION ALL SELECT LIGNECD FROM ( SELECT cd([N° compt CCP],[Cle CCP],[TheValue],[Nom &Prénom &fr]) AS LIGNECD FROM ( SELECT EmployeeID, [N° compt CCP], [Cle CCP], [Nom &Prénom &fr], Sum(TheValueT) AS TheValue FROM ( SELECT Company.CompanyID AS EmployeeID, Company.[N° compt CCP], Company.[Cle CCP],Company.[Nom &Prénom &fr], -1 AS TheType, Bill.Bill_Value AS TheValueT, -1 AS M,Bill.Bill_Date FROM Company INNER JOIN Bill ON Company.CompanyID = Bill.CompanyID WHERE Bill.Bill_Date Between [StartMonth] And [EndMonth] UNION ALL SELECT Employee.EmployeeID, Employee.[N° compt CCP], Employee.[Cle CCP], Employee.[Nom &Prénom &fr], +1 AS TheType, Cridi.Cridi_Value AS TheValueT, -1 AS M, Cridi.Cridi_Date FROM Employee INNER JOIN Cridi ON Employee.EmployeeID = Cridi.EmployeeID WHERE Cridi.Cridi_Date Between [StartMonth] And [EndMonth] UNION ALL SELECT Employee.EmployeeID,Employee.[N° compt CCP],Employee.[Cle CCP], Employee.[Nom &Prénom &fr], +1 AS TheType, Mena7.Menha_Value AS TheValueT, -1 AS M , Mena7.Menha_Date FROM Employee INNER JOIN Mena7 ON Employee.EmployeeID = Mena7.EmployeeID WHERE Mena7.Menha_Date Between [StartMonth] And [EndMonth] UNION ALL SELECT Employee.EmployeeID, Employee.[N° compt CCP],Employee.[Cle CCP], Employee.[Nom &Prénom &fr], +1 AS TheType, Sanitaire.NesbaValue AS TheValueT, -1 AS M , Sanitaire.Sanitaire_Date FROM Employee INNER JOIN Sanitaire ON Employee.EmployeeID = Sanitaire.EmployeeID WHERE Sanitaire.Sanitaire_Date Between [StartMonth] And [EndMonth] UNION ALL SELECT Employee.EmployeeID,Employee.[N° compt CCP],Employee.[Cle CCP], Employee.[Nom &Prénom &fr], +1 AS TheType, Scolaire.Scolaire_Value AS TheValueT, -1 AS M , Scolaire.Scolaire_Date FROM Employee INNER JOIN Scolaire ON Employee.EmployeeID = Scolaire.EmployeeID WHERE Scolaire.Scolaire_Date Between [StartMonth] And [EndMonth] UNION ALL SELECT Employee.EmployeeID,Employee.[N° compt CCP],Employee.[Cle CCP], Employee.[Nom &Prénom &fr], +1 AS TheType, Mossada.Moss_Value AS TheValueT, -1 AS M , Mossada.Moss_Date FROM Employee INNER JOIN Mossada ON Employee.EmployeeID = Mossada.EmployeeID WHERE Mossada.Moss_Date Between [StartMonth] And [EndMonth] ) GROUP BY EmployeeID, [N° compt CCP], [Cle CCP], [Nom &Prénom &fr] ORDER BY Val (EmployeeID) ))WHERE LIGNECD <> ""; ولكن بقيت مشكلة ترتيب العمال حسب EmployeeID ولكن لقيت صعوبة كبيرة في الترتيب فهل من فكرة ؟

لقد حاولت التعديل وفلح الا انني وجدت مشكلة في [nombre de bénificiaires] هي عدد المستفيدين [montant global] المجموع الكلي لـ [montant global] =Sum(Bill.Bill_Value) + Sum(Cridi.Cridi_Value) +Sum(Mena7.Menha_Value)+Sanitaire.NesbaValue+Mossada.Moss_Value+Scolaire.Scolaire_Value+ ارجو التعديل وشكرا PARAMETERS [Forms]![FrmTransfer]![txtMonth] DateTime = Now(); SELECT dm([Numéro de compte],[Clé],[montant global],[nombre de bénificiaires],[Mois],[Année]) AS LIGNECD FROM tbl2; UNION ALL SELECT cd([N° compt CCP],[Cle CCP],[TheValue],[Nom &Prénom &fr]) AS LIGNECD FROM (SELECT Company.[N° compt CCP], Company.[Cle CCP],Company.[Nom &Prénom &fr], -1 AS TheType, Sum(Bill.Bill_Value) AS TheValue, -1 AS M FROM Company INNER JOIN Bill ON Company.CompanyID = Bill.CompanyID GROUP BY Bill.CompanyID, Company.[Nom &Prénom &fr], Company.[N° compt CCP], Company.[Cle CCP], -1, "Bill", Month([Bill_Date]), Year([Bill_Date]) HAVING (((Month([Bill_Date]))=Month(CDate([Forms]![FrmTransfer]![txtMonth]))) AND ((Year([Bill_Date]))=Year(CDate([Forms]![FrmTransfer]![txtMonth])))) UNION ALL SELECT Employee.[N° compt CCP],Employee.[Cle CCP],Employee.[Nom &Prénom &fr], +1 AS TheType, Sum(Cridi.Cridi_Value) AS SumOfCridi_Value, -1 AS M FROM Employee INNER JOIN Cridi ON Employee.EmployeeID = Cridi.EmployeeID GROUP BY Cridi.EmployeeID, Employee.[Nom &Prénom &fr], Employee.[N° compt CCP],Employee.[Cle CCP], +1, "Cridi", Month([Cridi_Date]), Year([Cridi_Date]) HAVING (((Month([Cridi_Date]))=Month(CDate([Forms]![FrmTransfer]![txtMonth]))) AND ((Year([Cridi_Date]))=Year(CDate([Forms]![FrmTransfer]![txtMonth])))) UNION ALL SELECT Employee.[N° compt CCP],Employee.[Cle CCP], Employee.[Nom &Prénom &fr], +1 AS TheType, Sum(Mena7.Menha_Value) AS SumOfMenha_Value, -1 AS M FROM Employee INNER JOIN Mena7 ON Employee.EmployeeID = Mena7.EmployeeID GROUP BY Mena7.EmployeeID, Employee.[Nom &Prénom &fr], Employee.[N° compt CCP],Employee.[Cle CCP], +1, "Mena7", Month([Menha_Date]), Year([Menha_Date]) HAVING (((Month([Menha_Date]))=Month(CDate([Forms]![FrmTransfer]![txtMonth]))) AND ((Year([Menha_Date]))=Year(CDate([Forms]![FrmTransfer]![txtMonth])))) UNION ALL SELECT Employee.[N° compt CCP],Employee.[Cle CCP],Employee.[Nom &Prénom &fr], +1 AS TheType, Sanitaire.NesbaValue, -1 AS M FROM Employee INNER JOIN Sanitaire ON Employee.EmployeeID = Sanitaire.EmployeeID GROUP BY Sanitaire.EmployeeID, Employee.[Nom &Prénom &fr], Employee.[N° compt CCP],Employee.[Cle CCP], +1, Sanitaire.NesbaValue, "Sanitaire", Month([Sanitaire_Date]), Year([Sanitaire_Date]) HAVING (((Month([Sanitaire_Date]))=Month(CDate([Forms]![FrmTransfer]![txtMonth]))) AND ((Year([Sanitaire_Date]))=Year(CDate([Forms]![FrmTransfer]![txtMonth])))) UNION ALL SELECT Employee.[N° compt CCP],Employee.[Cle CCP],Employee.[Nom &Prénom &fr], +1 AS TheType, Mossada.Moss_Value, -1 AS M FROM Employee INNER JOIN Mossada ON Employee.EmployeeID = Mossada.EmployeeID GROUP BY Mossada.EmployeeID, Employee.[Nom &Prénom &fr], Employee.[N° compt CCP],Employee.[Cle CCP], +1, Mossada.Moss_Value, Add_Observations([Mossada].[EmployeeID],"Mossada"), Mossada.Moss_Ver, Month([Moss_Date]), Year([Moss_Date]) HAVING (((Month([Moss_Date]))=Month(CDate([Forms]![FrmTransfer]![txtMonth]))) AND ((Year([Moss_Date]))=Year(CDate([Forms]![FrmTransfer]![txtMonth])))) UNION ALL SELECT Employee.[N° compt CCP],Employee.[Cle CCP],Employee.[Nom &Prénom &fr], +1 AS TheType, Scolaire.Scolaire_Value, -1 AS M FROM Employee INNER JOIN Scolaire ON Employee.EmployeeID = Scolaire.EmployeeID GROUP BY Scolaire.EmployeeID, Employee.[Nom &Prénom &fr], Employee.[N° compt CCP],Employee.[Cle CCP], +1, Scolaire.Scolaire_Value,"Scolaire", Month([Scolaire_Date]), Year([Scolaire_Date]) HAVING (((Month([Scolaire_Date]))=Month(CDate([Forms]![FrmTransfer]![txtMonth]))) AND ((Year([Scolaire_Date]))=Year(CDate([Forms]![FrmTransfer]![txtMonth])))));

للتوضيح أكثر توحيد الصف الاول الى غاية tbl2 SELECT dm([Numéro de compte],[Clé],[montant global],[nombre de bénificiaires],[Mois],[Année]) AS LIGNECD FROM tbl2; UNION ALL SELECT cd([N° compt CCP],[Cle CCP],[Montant],[Nom &Prénom &fr]) AS LIGNECD FROM tbl1; مع استبدال UNION ALL SELECT cd([N° compt CCP],[Cle CCP],[Montant],[Nom &Prénom &fr]) AS LIGNECD FROM tbl1; بهذا SELECT Employee.[Nom &Prénom &fr],Employee.[N° compt CCP],Employee.[Cle CCP],+1 AS TheType, Sum(Cridi.Cridi_Value) AS SumOfCridi_Value,Add_Observations([Cridi].[EmployeeID],"Cridi") AS Obsérvation,-1 AS M FROM Employee INNER JOIN Cridi ON Employee.EmployeeID = Cridi.EmployeeID GROUP BY Cridi.EmployeeID, Employee.[Nom &Prénom &fr],Employee.[N° compt CCP],Employee.[Cle CCP],[adress],+1, Add_Observations([Cridi].[EmployeeID],"Cridi"), Month([Cridi_Date]), Year([Cridi_Date]) HAVING (((Month([Cridi_Date]))=Month(CDate([Forms]![FrmTransfer]![txtMonth]))) AND ((Year([Cridi_Date]))=Year(CDate([Forms]![FrmTransfer]![txtMonth])))) مع الاحتفاط ب : [N° compt CCP] [Cle CCP] [Montant]=Sum(Cridi.Cridi_Value) [Nom &Prénom &fr] tbl1= Cridi المعيار

هل من فكرة اساتذة

السلام عليكم اساتذتي الكرام لديا استعلام موحد SELECT dm([Numéro de compte],[Clé],[montant global],[nombre de bénificiaires],[Mois],[Année]) AS LIGNECD FROM tbl2; UNION ALL SELECT cd([N° compt CCP],[Cle CCP],[Montant],[Nom &Prénom &fr]) AS LIGNECD FROM tbl1; نتيجته اردت ان استبدل هذا الاستلام UNION ALL SELECT cd([N° compt CCP],[Cle CCP],[Montant],[Nom &Prénom &fr]) AS LIGNECD FROM tbl1; بمجموعة من الاستعلامات وهي SELECT Bill.CompanyID, Company.[Nom &Prénom &fr],Company.[N° compt CCP], Company.[Cle CCP],-1 AS TheType, Sum(Bill.Bill_Value) AS TheValue, Add_Observations([Bill].[CompanyID],"Bill") AS Obsérvation, -1 AS M FROM Company INNER JOIN Bill ON Company.CompanyID = Bill.CompanyID GROUP BY Bill.CompanyID, Company.[Nom &Prénom &fr],Company.[N° compt CCP], Company.[Cle CCP],-1, Add_Observations([Bill].[CompanyID],"Bill"), Month([Bill_Date]), Year([Bill_Date]) HAVING (((Month([Bill_Date]))=Month(CDate([Forms]![FrmTransfer]![txtMonth]))) AND ((Year([Bill_Date]))=Year(CDate([Forms]![FrmTransfer]![txtMonth])))) UNION ALL SELECT Cridi.EmployeeID, Employee.[Nom &Prénom &fr],Employee.[N° compt CCP],Employee.[Cle CCP],+1 AS TheType, Sum(Cridi.Cridi_Value) AS SumOfCridi_Value,Add_Observations([Cridi].[EmployeeID],"Cridi") AS Obsérvation,-1 AS M FROM Employee INNER JOIN Cridi ON Employee.EmployeeID = Cridi.EmployeeID GROUP BY Cridi.EmployeeID, Employee.[Nom &Prénom &fr],Employee.[N° compt CCP],Employee.[Cle CCP],[adress],+1, Add_Observations([Cridi].[EmployeeID],"Cridi"), Month([Cridi_Date]), Year([Cridi_Date]) HAVING (((Month([Cridi_Date]))=Month(CDate([Forms]![FrmTransfer]![txtMonth]))) AND ((Year([Cridi_Date]))=Year(CDate([Forms]![FrmTransfer]![txtMonth])))) UNION ALL SELECT Mena7.EmployeeID, Employee.[Nom &Prénom &fr],Employee.[N° compt CCP],Employee.[Cle CCP],+1 AS TheType, Sum(Mena7.Menha_Value) AS SumOfMenha_Value,Add_Observations([Mena7].[EmployeeID],"Mena7") AS Obsérvation ,-1 AS M FROM Employee INNER JOIN Mena7 ON Employee.EmployeeID = Mena7.EmployeeID GROUP BY Mena7.EmployeeID, Employee.[Nom &Prénom &fr], Employee.[N° compt CCP],Employee.[Cle CCP],+1, Add_Observations([Mena7].[EmployeeID],"Mena7"), Month([Menha_Date]), Year([Menha_Date]) HAVING (((Month([Menha_Date]))=Month(CDate([Forms]![FrmTransfer]![txtMonth]))) AND ((Year([Menha_Date]))=Year(CDate([Forms]![FrmTransfer]![txtMonth])))) UNION ALL SELECT Sanitaire.EmployeeID, Employee.[Nom &Prénom &fr],Employee.[N° compt CCP],Employee.[Cle CCP],+1 AS TheType, Sanitaire.NesbaValue,Add_Observations([Sanitaire].[EmployeeID],"Sanitaire") AS Obsérvation, -1 AS M FROM Employee INNER JOIN Sanitaire ON Employee.EmployeeID = Sanitaire.EmployeeID GROUP BY Sanitaire.EmployeeID, Employee.[Nom &Prénom &fr],Employee.[N° compt CCP],Employee.[Cle CCP],+1, Sanitaire.NesbaValue, Add_Observations([Sanitaire].[EmployeeID],"Sanitaire"), Month([Sanitaire_Date]), Year([Sanitaire_Date]) HAVING (((Month([Sanitaire_Date]))=Month(CDate([Forms]![FrmTransfer]![txtMonth]))) AND ((Year([Sanitaire_Date]))=Year(CDate([Forms]![FrmTransfer]![txtMonth])))) UNION ALL SELECT Mossada.EmployeeID, Employee.[Nom &Prénom &fr],Employee.[N° compt CCP],Employee.[Cle CCP],+1 AS TheType, Mossada.Moss_Value, Add_Observations([Mossada].[EmployeeID],"Mossada") AS Obsérvation, Moss_Ver FROM Employee INNER JOIN Mossada ON Employee.EmployeeID = Mossada.EmployeeID GROUP BY Mossada.EmployeeID, Employee.[Nom &Prénom &fr],Employee.[N° compt CCP],Employee.[Cle CCP],+1, Mossada.Moss_Value, Add_Observations([Mossada].[EmployeeID],"Mossada"), Mossada.Moss_Ver, Month([Moss_Date]), Year([Moss_Date]) HAVING (((Month([Moss_Date]))=Month(CDate([Forms]![FrmTransfer]![txtMonth]))) AND ((Year([Moss_Date]))=Year(CDate([Forms]![FrmTransfer]![txtMonth])))) UNION ALL SELECT Scolaire.EmployeeID, Employee.[Nom &Prénom &fr],Employee.[N° compt CCP],Employee.[Cle CCP],+1 AS TheType, Scolaire.Scolaire_Value,Add_Observations([Scolaire].[EmployeeID],"Scolaire") AS Obsérvation, -1 AS M FROM Employee INNER JOIN Scolaire ON Employee.EmployeeID = Scolaire.EmployeeID GROUP BY Scolaire.EmployeeID, Employee.[Nom &Prénom &fr],Employee.[N° compt CCP],Employee.[Cle CCP],[adress],+1, Scolaire.Scolaire_Value,Add_Observations([Scolaire].[EmployeeID],"Scolaire"), Month([Scolaire_Date]), Year([Scolaire_Date]) HAVING (((Month([Scolaire_Date]))=Month(CDate([Forms]![FrmTransfer]![txtMonth]))) AND ((Year([Scolaire_Date]))=Year(CDate([Forms]![FrmTransfer]![txtMonth])))); مع العلم ان montant global هو مجموع Bill_Value و Cridi_Valueو ........... الى اخر استعلام Scolaire_Value و [nombre de bénificiaires] هو عدد المستفيدين و [Mois],[Année] هو شهر وسنة هذا المعيار (((Month([Bill_Date]))=Month(CDate([Forms]![FrmTransfer]![txtMonth]))) AND ((Year([Bill_Date]))=Year(CDate([Forms]![FrmTransfer]![txtMonth])))) ارحوا ان يتم التوحيد وشكرا

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

تمت العملية بنجاح استاذ جعفر بعدما ركزت مليح في الخطوات استخدمت الدالة CompanyID1: Val(Nz([CompanyID];"9999999999")) SELECT [qry_1-5].CompanyID, Val(Nz([CompanyID],"9999999999")) AS CompanyID1, [qry_1-5].N_Entrep, [qry_1-5].[Nom &Prénom &fr], [qry_1-5].[N° CompteRib], [qry_1-5].TheType, Sum([qry_1-5].TheValue) AS SumOfTheValue, [qry_1-5].[Centre de chéques Postaux], [qry_1-5].adress, [qry_1-5].Obsérvation, [qry_1-5].M FROM [qry_1-5] GROUP BY [qry_1-5].CompanyID, Val(Nz([CompanyID],"9999999999")), [qry_1-5].N_Entrep, [qry_1-5].[Nom &Prénom &fr], [qry_1-5].[N° CompteRib], [qry_1-5].TheType, [qry_1-5].[Centre de chéques Postaux], [qry_1-5].adress, [qry_1-5].Obsérvation, [qry_1-5].M HAVING ((([qry_1-5].M)=-1)) ORDER BY Val(Nz([CompanyID],"9999999999"));

استاذي العزيز جعفر حياك الله دائما في الخدمة ربي يثبت اجرك ويحفظك حاولت فتح الملفات المعدل عليها من الرابط المرسل من طرفكم بعد التحميل ولا ملف واحد فتح معي فأرتيت ان اضع بين ايديكم ملفي للتعديل عليه 202012.rar

السلام عليكم هل يمكن فرز ترتيب CompanyID ترتيبا تصاعديا مثلا 1 - 2 - 3 .......الخ لأني عملت فرز تصاعدي في الإستعلام وحاولت عمل ترتيب حسب CompanyID في التقرير فلم يعطي النتيجة صحيحة مع العلم أن qry_1-5 هو استعلام موحد SELECT [qry_1-5].CompanyID, [qry_1-5].[Nom &Prénom &fr], [qry_1-5].[N° CompteRib], [qry_1-5].adress, [qry_1-5].TheType, Sum([qry_1-5].TheValue) AS SumOfTheValue, [qry_1-5].[Centre de chéques Postaux], [qry_1-5].Obsérvation, [qry_1-5].M FROM [qry_1-5] GROUP BY [qry_1-5].CompanyID, [qry_1-5].[Nom &Prénom &fr], [qry_1-5].[N° CompteRib], [qry_1-5].adress, [qry_1-5].TheType, [qry_1-5].[Centre de chéques Postaux], [qry_1-5].Obsérvation, [qry_1-5].M HAVING ((([qry_1-5].M)=-1));

تمت العملية استاذي العزيز رجاء قراءة موضوع الرابط ، والروابط الموجودة هناك ، واذا عندك سؤال محدد ، فلا مانع 🙂 لقد حملت الاداة ونصبتها ولم تظهر لي اثناء فتح ملف الاكسس فكيف السبيل لذلك ؟ V-Tools 1.83 for Access 2010-2016.accdb

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