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

**كريمو2** · ديسمبر 7, 2023

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

لدينا جدول اسمه 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** · ديسمبر 7, 2023

منذ ساعه, كريمو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** · ديسمبر 7, 2023

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** · ديسمبر 7, 2023

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

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

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

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

**كريمو2** · ديسمبر 7, 2023

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

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

ظهرت مشكلة

**Foksh** · ديسمبر 7, 2023

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

ظهرت مشكلة

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

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

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

**كريمو2** · ديسمبر 7, 2023

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

نرجو التعديل

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

2023.mdb

12222.png.e85b4047b9673bd44a2a06556aab5321.png

**كريمو2** · ديسمبر 7, 2023

22222.png.38fa87e7d4490e5f0b27a3ce1649e542.png

**kkhalifa1960** · ديسمبر 7, 2023

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

2023.rar

**كريمو2** · ديسمبر 7, 2023

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

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

2023.rar 272.81 kB · 3 downloads

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

1156281483_.png.7a267ed2b0bbae24ff3ab72ac5ea039a.png

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

**Barna** · ديسمبر 7, 2023

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

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

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

2023.mdb

**كريمو2** · ديسمبر 7, 2023

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

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

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

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

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

تسجيل الدخول

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

الردود الموصى بها

كريمو2

Foksh

كريمو2

Foksh

كريمو2

Foksh

كريمو2

كريمو2

kkhalifa1960

كريمو2

Barna

كريمو2

تصفح هذا الموضوع مؤخراً 0 اعضاء متواجدين الان

تصفح الموقع

تصفح جديد الموقع

Support

Important Information