تعديل على استعلام موحد

[كريمو2]

السلام عليكم اخوة الكرام

لدينا جدول اسمه bill مرتبط ب Company به حقل نصي Trans_ID  مصدره 1;"شيك بنكي";2;"فاتورة" 

نريد اضافة هذا الحقل الى الاستعلام الموحد بشرط يكون Trans_ID=2

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

SELECT Bill.CompanyID, Company.[Nom &Prénom &fr], Company.N_Entrep, Company.[N° CompteRib], Company.[Centre de chéques Postaux], Company.[adress], -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_Entrep, Company.[N° CompteRib], Company.[Centre de chéques Postaux], Company.[adress], -1, Add_Observations([Bill].[CompanyID],"Bill"), Month([Bill_Date]), Year([Bill_Date])
HAVING (((Month([Bill_Date]))=Month(CDate([Forms]![FrmTransfer]![txtMonth1]))) AND ((Year([Bill_Date]))=Year(CDate([Forms]![FrmTransfer]![txtMonth1]))))

UNION  ALL

SELECT Cridi.EmployeeID, Employee.[Nom &Prénom &fr],Employee.[Nom et Prénom], Employee.[N° CompteRib],Employee.[Centre de chéques Postaux],[adress],   +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.[Nom et Prénom], Employee.[N° CompteRib],Employee.[Centre de chéques Postaux],[adress],   +1, Add_Observations([Cridi].[EmployeeID],"Cridi"), Month([Cridi_Date]), Year([Cridi_Date]) 
HAVING (((Month([Cridi_Date]))=Month(CDate([Forms]![FrmTransfer]![txtMonth1]))) AND ((Year([Cridi_Date]))=Year(CDate([Forms]![FrmTransfer]![txtMonth1]))))

UNION ALL

SELECT Mena7.EmployeeID, Employee.[Nom &Prénom &fr],Employee.[Nom et Prénom], Employee.[N° CompteRib],Employee.[Centre de chéques Postaux],[adress],  +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.[Nom et Prénom], Employee.[N° CompteRib],Employee.[Centre de chéques Postaux],[adress],  +1, Add_Observations([Mena7].[EmployeeID],"Mena7"), Month([Menha_Date]), Year([Menha_Date]) 
HAVING (((Month([Menha_Date]))=Month(CDate([Forms]![FrmTransfer]![txtMonth1]))) AND ((Year([Menha_Date]))=Year(CDate([Forms]![FrmTransfer]![txtMonth1]))))

UNION ALL

SELECT Sanitaire.EmployeeID, Employee.[Nom &Prénom &fr],Employee.[Nom et Prénom], Employee.[N° CompteRib],Employee.[Centre de chéques Postaux],[adress],  +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.[Nom et Prénom], Employee.[N° CompteRib],Employee.[Centre de chéques Postaux],[adress],   +1, Sanitaire.NesbaValue, Add_Observations([Sanitaire].[EmployeeID],"Sanitaire"), Month([Sanitaire_Date]), Year([Sanitaire_Date]) 
HAVING (((Month([Sanitaire_Date]))=Month(CDate([Forms]![FrmTransfer]![txtMonth1]))) AND ((Year([Sanitaire_Date]))=Year(CDate([Forms]![FrmTransfer]![txtMonth1]))))

UNION ALL

SELECT Mossada.EmployeeID, Employee.[Nom &Prénom &fr],Employee.[Nom et Prénom], Employee.[N° CompteRib],Employee.[Centre de chéques Postaux],[adress],  +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.[Nom et Prénom], Employee.[N° CompteRib],Employee.[Centre de chéques Postaux],[adress],   +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]![txtMonth1]))) AND ((Year([Moss_Date]))=Year(CDate([Forms]![FrmTransfer]![txtMonth1]))))

UNION ALL SELECT Scolaire.EmployeeID, Employee.[Nom &Prénom &fr],Employee.[Nom et Prénom], Employee.[N° CompteRib],Employee.[Centre de chéques Postaux],[adress], +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.[Nom et Prénom], Employee.[N° CompteRib],Employee.[Centre de chéques Postaux],[adress],  +1, Scolaire.Scolaire_Value,Add_Observations([Scolaire].[EmployeeID],"Scolaire"), Month([Scolaire_Date]), Year([Scolaire_Date]) 
HAVING (((Month([Scolaire_Date]))=Month(CDate([Forms]![FrmTransfer]![txtMonth1]))) AND ((Year([Scolaire_Date]))=Year(CDate([Forms]![FrmTransfer]![txtMonth1]))));

ارجو التعديل على هذا الاستعلام الموجد من اجل ظهور النتيجة الصحيحة

تم تعديل ديسمبر 7, 2023 بواسطه كريمو2

[Foksh]

منذ ساعه, كريمو2 said:

SELECT Bill.CompanyID, Company.[Nom &Prénom &fr], Company.N_Entrep, Company.[N° CompteRib], Company.[Centre de chéques Postaux], Company.[adress], -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_Entrep, Company.[N° CompteRib], Company.[Centre de chéques Postaux], Company.[adress], -1, Add_Observations([Bill].[CompanyID],"Bill"), Month([Bill_Date]), Year([Bill_Date])
HAVING (((Month([Bill_Date]))=Month(CDate([Forms]![FrmTransfer]![txtMonth1]))) AND ((Year([Bill_Date]))=Year(CDate([Forms]![FrmTransfer]![txtMonth1]))))

مرفق ملف نصي TXT يتضمن باقي التعديلات ، حسب ما تصورت طبعاً

Union Query.zip

 

تم تعديل الملف ، يحتوي الاستعلام الأول كتجربة ,,

 

تم تعديل ديسمبر 7, 2023 بواسطه Foksh

[كريمو2]

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

مرفق ملف نصي TXT يتضمن باقي التعديلات ، حسب ما تصورت طبعاً

Union Query.zip 945 \u0628\u0627\u064a\u062a · 0 downloads

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

الحقل Trans_ID   المراد اضافته ليس موجود بالتعديل

مع العلم اخي ان الاستعلام حاليا يعمل عادي وبدون  مشكلة ولكن اردت فلتر اي عندما نقوم نالفورم Trans_ID   = 1 المبلغ يستنى من الاستعلام الموحد  واذا كان Trans_ID  =2 يظهر المبلغ مع المبالغ الاخرى

تم تعديل ديسمبر 7, 2023 بواسطه كريمو2

[Foksh]

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

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

الحقل Trans_ID   المراد اضافته ليس موجود بالتعديل

تم تعديل المرفق بالتعليق الأول

[كريمو2]

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

تم تعديل المرفق بالتعليق الأول

ظهرت مشكلة

 

[Foksh]

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

ظهرت مشكلة

 

أخي الكريم ، هل لك أن ترسل مرفق بسيط ؟

مع العلم أن التعديل هو فقط على الاستعلام الأول فقط

تم تعديل ديسمبر 7, 2023 بواسطه Foksh

[كريمو2]

اليك المرفق اخي

نرجو التعديل

الاستعلام الموحد Qry_TransferBank

2023.mdb

[كريمو2]

[kkhalifa1960]

تفضل أخي سويت استعلامين اقرأهم زين واليك المرفق .

2023.rar

[كريمو2]

1 ساعه مضت, kkhalifa1960 said:

تفضل أخي سويت استعلامين اقرأهم زين واليك المرفق .

2023.rar 272.81 kB · 3 downloads

صحيح عملت استعلامين ولكن المطلوب التعديل على الاستعلام الموحد Qry_TransferBank لانه مصدر التقرير 

تم تعديل ديسمبر 7, 2023 بواسطه كريمو2

[Barna]

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

الاستعلام الموحد Qry_TransferBank لانه مصدر التقرير 

هل هذا طلبك حسب فهمي للموضوع ....

 

2023.mdb

[كريمو2]

21 دقائق مضت, Barna said:

هل هذا طلبك حسب فهمي للموضوع ....

 

2023.mdb 1.61 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 0 downloads

وهو كذالك شكرا استاذ Barna

تم تعديل ديسمبر 7, 2023 بواسطه كريمو2