طاهر اوفيسنا

ارجو من الاساتذة الخبراء الالتفاتة لطلبي وشكرا لكم جميعا للتوضيح اكثر في جدول tbl_Loans

السلام عليكم لديا مشكل في نتائج التقرير rptTransferLOS الصورة توضح ارجو التعديل 20211007.rar

شكرا لك استاذ محمد أبو عبد الله الكود لم يفي بالغرض المطلوب حيب عند الضغط على خانة الاختيار OK لم يظهر شيء وعند تتبع الكود خطوة بخطوة ظهرت لي ان قيمة Me!Loan_ID = DFirst("c1", "[Cridi]", "Right(XDate, 4) =" & Right(Date, 4)) & Format(xNext, "0") & "/" & prtyr تساوي Null

السلام عليكم اساتذتي الكرام المطلوب التعديل على كود تنسيق ارقام بهذه الصيغة "C1/2021" بحيث c1 اول مستفيد و 2021 السنة الحالية اي عندما اختيار علامة الصح على مربع اختيار ok يظهر الرقم مع اخر سجل بالجدول بهذا التنسيق وعند دخول سنة جديدة يبدا الترقيم من الاول وشكرا Private Sub ok_Click() On Error Resume Next Dim xLast, xNext As Integer Dim prtyr, prtTxt As Integer prtyr = DatePart("yyyy", Date) prtTxt = CLng(Left(DMax("S", "Cridi"), 4)) xLast = CLng(Right(DMax("S", "Cridi", prtTxt = prtyr), 3)) If IsNull(xLast) Then xNext = 1 Else xNext = xLast + 1 End If Me!Loan_ID = "C" & Format(xNext, "0") & "/" & prtyr Me![Année] = Year(Date) End Sub

انظر مشكلة التنصيب حسب الصورة

شكرا استاذ ولكن هذه النسحة لم تتوافق مع اكسس 2010 عربي

هل من الممكن ارفاق البرنامج v-tools هنا استاذ Kanory

شكرا اخي د.كاف يار

السلام عليكم اساتذتي الكرام N1=Nz(DSum("[Loan_Payment]", "[tbl_Loans]", "Year ([Loan_AwardMonth])=" & Me.txtYear), "And [Loan_Type]= 'Cridi'", 0) اين الخطا في هذا

شكرا لك استاذ kanory ربي يعوض علينا

السلام عليكم اساتذتي الكرام لقد قمت بتصميم برنامج ووقع تجميد للبرنامج اثناء الفتح ومن ثم ظهرت هذه المشكلة كما في الصورة ارجو المساعدة Gestion Courier.rar

وهو المطلوب شكرا لك اخي husamwahab

شكرا لك احي على المجهودات ولكن ياريت يكون التقسيم حسب الصورة Database2.accdb

السلام عليكم اخواني ماهي دالة تقسيم الحروف إلى أعمدة مثلا : KRIMO 2 يقسم في كل عمود حرف وشكرا لكم

السلام علكيم اساتذتي الكرام صار معي مشكل في الوحدات النمطية فأصبحت فارغة واصبح البرنامج بدون اي حدث فكيف العمل لإسترجاع ما تم حذفه ارجو المساعدة اساتذة في عمل السنين ذهب بسبب مشكل لا اعرف سببه 2021.rar

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

شكرا لكم جميعا

شكرا لك استاذ أبو إبراهيم الغامدي قلت لديك تحفظ على هذا المقطع من الاستعلام QryCD 1- ماهو هذا التحفظ ؟ او كيف تراه مناسبا بطريقتك 2- من جهة التعديل على المرفق لاحظت ظهور EmployeeID في الاستعلام المطلوب عدم ظهوره واذا شاءت الضرورة ان يظهر في الاستعلام لا يجب ان يظهر في التقرير

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

هل اتضحت الفكرة استاذ جعفر

بالنسبة للإستعلام تم تبسيطه لعدة إستعلامات مقارنة بالإستعلام الموحد QueryCD الإستعلام QryCD هو لجلب بيانات الموظفين والممونين ورواتبهم في شهر ما وذلك لإستعمالهم في الدالة المعرفة CD عن طريق الإستعلام CD الإستعلام QryDM هو لجلب رواتب الموظفين والممونين في شهر ما وذلك لإستعمالهم في الدالة المعرفة DM عن طريق الإستعلام DM بالنسبة للإستعلام الموحد Union Dm & CD تم دمج إستعلام CD+DM للحصول على النتائج المطلوبة النتائج تأتي سليمة لكن بقيت مشكلة الترتيب حسب رقم الموظف بالنسبة للدالة DLookup المستعملة في كويري DM دورها جلب رقم الحساب البريدي ومفتاح الحساب البريدي للمؤسسة فقط ملاحظة: هذه الإستعلامات تم دمجها في إستعلام واحد والذي يحمل إسم QueryCD

حاولت التقيد بما اشرت ولكن لم افلح انظر الترتيب في الاستعلام 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 المعيار