Taher DZ

شكرا على الرد اخي الحقل Trans_ID المراد اضافته ليس موجود بالتعديل مع العلم اخي ان الاستعلام حاليا يعمل عادي وبدون مشكلة ولكن اردت فلتر اي عندما نقوم نالفورم Trans_ID = 1 المبلغ يستنى من الاستعلام الموحد واذا كان Trans_ID =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])))); ارجو التعديل على هذا الاستعلام الموجد من اجل ظهور النتيجة الصحيحة

نعم انتهت بفضل من الله ثم الأستاذ Eng.Qassim

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

الجدول المحذوف ليست له علاقة بما هو مطلوب في التقرير لاحظ الي عليها اللون الاحمر مصدرهن الجدول المحذوف وانا اعرف لما حذفته المشكلة في؟#Name

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

النتيجة خاطئة يا استاذ خليفة ملاحظة : النتيجة تكون صحيحة مع الطباعة وليست مع المعاينة

شكرا لك استاذ Eng.Qassim على المساعدة ربي يحفظك

يعني انك حذفت الجملة في مربع نص a1

لا تفير في المرفق استاذ بقيت نفس المشكلة

شكرا استاد قسيم على المساعدة بقي مشكل عدم ظهور بطاقة التعريف الوطنية كما في الصورة بالرغم اني زدت في الدالة ولكن بقت المشكلة TempVars("Reporte_Title") = Reporte_Title.Value

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

اوفغت كود الخروج 'DoCmd.Close acForm, "A2" لا لم ينفع معي اريد غلق الفورم a2 عند الدخول على التقرير Face4 كيف لي ان اعدل في الكود Private Sub أمر15_Click() Dim Cr As String Cr = DLookup("Hamech", "Tbl_ZAWJA", "IDM =" & Me.IDM) If Cr = 1 Or Cr = 2 Or Cr = 3 Then stDocName = "FACE4" DoCmd.OpenReport stDocName, acPreview Abou_Taha (stDocName) 'DoCmd.Close acForm, "A2" Else MsgBox "هذه الزوجة متوفيه" DoCmd.Close acForm, "A2" End If End Sub

هل من ايجاد حل لقد وجدت شبه حل وهو عند الدخول على التقرير لا نغلق الفورم A2

اليكم المرفق مدعم بالصور التوضيحية 20231002.accdb

السلام عليكم اساتذتي الكرام لدي مشكلة ظهور رموز الخطأ عند طباعة التقرير علما ان النتائج ناتجة من فورم اخر a2 وبه مربعات نص n1/n2/n3/n4 كما في الصورة ارجو المساعدة اساتذي الكرام

تمت العملية بنجاح شكرا لك استاذ Eng.Qassim ربي يجعل تعبك معي في ميزان حسناتك ببركة الايام العشرة الاخيرة من الشهر الفضيل

لم يتم فتح الملف المرفق بعد تغديله من طرفك اخي Eng.Qassim علما انني استخدم اكسس 2007

لم افهم شيء مما تطرقت اليه اخي Ezril ارجو ان يكون التعديل على المرفق حتى يتسنى لي معرفة الخطأ

اخي اليك الملف للتعديل عليه وشكرا ff2023.accdb

اخي لا اريد سجل جديد بل التعديل في السجل الموجود

النموذج الاول الرئيسي اسمه FrmMenah والنموذج الفرعي التابع له هو FrmInkhirat_sub الذي به VerCcp وLoan_Other و Auto_Date والنموذج المراد التحويل له اسمه frmVerment والنموذج الفرعي التابع له هو FrmVerment_Sub وبه TheValueCcp و TxtMonth

شكرا على الرد اخي Eng.Qassim تقبل الله منا ومنكم صالح الاعمال لقد وقع لي هذا المشكل