طاهر اوفيسنا

بارك الله فيك استاذ حعفر

هل طلبي غير مفهوم

السلام عليكم ارجو مساعدة بخصوص فتح تقرير بواسطة مربع تحرير وسرد " detaché " بشرط : 01- يفتح بشرط detaché= موظف او منتدب من الإستعلام qry_rptD_3 02- يفتح بشرط detaché= متعاقد كامل او متعاقد جزئي أو عون نظافة من الإستعلام qry_rptD_4 Private Sub detaché_AfterUpdate() On Error GoTo Err_detaché_Click If IsNull(txtMonth) Then MsgBox "اختر الشهر" DoCmd.CancelEvent Exit Sub End If If Me.[detaché].Value = "موظف" Then Me.Report_Title = "للموظفين" DoCmd.OpenReport "rptDiscount", acPreview, , , , OpenArgs:="qry_rptD_3" If Me.[detaché].Value = "منتدب" Then Me.Report_Title = "للعمال المنتدبين" DoCmd.OpenReport "rptDiscount", acPreview, , , , OpenArgs:="qry_rptD_3" If Me.[detaché].Value = "متعاقد كامل" Then Me.Report_Title = "للعمال المتعاقدين بالتوقيت الكامل" DoCmd.OpenReport "rptDiscount", acPreview, , , , OpenArgs:="qry_rptD_4" If Me.[detaché].Value = "متعاقد جزئي" Then Me.Report_Title = "للعمال المتعاقدين بالتوقيت الجزئي" DoCmd.OpenReport "rptDiscount", acPreview, , , , OpenArgs:="qry_rptD_4" If Me.[detaché].Value = "عون نظافة" Then Me.Report_Title = "للعمال اعوان النظافة والتطهير" DoCmd.OpenReport "rptDiscount", acPreview, , , , OpenArgs:="qry_rptD_4" Exit_detaché_Click: Exit Sub Err_detaché_Click: MsgBox Err.Description Resume Exit_detaché_Click End Sub

وهو كذالك بارك الله فيك استاذ جعفر شكرا لك على المساعدة ملاحظة :تبقى الجهة الثانية في تفس الفورم تخص الإقتطاع سافتح موضوع جديد بشانها (قد ساعدتني فيه سابقا في فورم اخر ولكن عندما دمجته مع فورم التحويلات الشهرية وجدت فيه مشكلة) تقبل تحياتي

السلام عليكم استاذ لا لقد انتبهت للميساجات ولكن بقيت المشكلة قائمة اليك الصورة والمرفق ملاحظة : انتبه لرقم الحساب ومبلغ الحساب والتاريخ في MsgBox 288.krimo2015V1.rar

استاذ جعفر السلام عليكم لما طبقت التحويل على البرنامج الذي بحوزتي وجدته لايكمل من اخر سجل بل يبدأ بأول سجل للعلم ان جدول CCP ليس فارغا بل به تحويلات سنوات سابقة كنت احولها يدويا والصورة توضح

شكرا لك استاذ جعفر

شكرا لك استاذ هو المطلوب فعلا اخر اللمسات ميساج يخبرني هل تريد ان تنقل القيم الى الجدول CCP نعم / لا في نظري نعمل شرط اساسي وهو التحويل يتم الا بملء رقم الحساب هكذا يكون افضل واذا لم يكتب رقم الحساب لا يتم التحويل بورك فيك استاذ لى المجهود دمت ذخرا لنا وللمنتدى المفضل تقبل تحياتي القلبية الخالصة

اخي واستاذي جعفر لقد اوصلتني للبئر ورجعت دون اقتناء ولو جرعة صغيرة من مائه "فما عليك إلا ان تدخلهم الى الجدول CCP كيفما احببت " هنا ما فهمت كيف تدخل النتائج للجدول معليش اكمال ماتبقى يكون كرما منك استاذ تقبل تحياتي

لم تظهر النتائج بالجدول CCP عموما انظر ماطبقت ولكن يبدو فيه اختلاف بين ما اشرت اليه وما وجدته krimo2015V1.rar

لم افهم استاذ جعفر ماطلبته مني بالتدقيق

اهلا وسهلا استاذ جعفر 01- نفهم من اخر رد اننا سنصل الى حل للمشكلة بحول الله فالنجرب الفكرة 02- جربت هذا الكود في حدث عند الغلق في التقرير خاص بنقل المبلغ المالي فقط من التقرير الى الجدول Ccp ولكن لم يقم بما هو مطلوب Private Sub Report_Close() If MsgBox("هل تريد اضافه المبلغ " & vbCrLf & "", vbYesNo, " اضافه") = vbYes Then Dim Rs As DAO.Recordset 'Ccpاسم الجدول Set Rs = CurrentDb.OpenRecordset("Ccp") Rs.MoveFirst 'للبحث عن مبلغ السحب في الجدول Do Until Rs.EOF 'TheValues اسم مربع النص في التقرير 'TheValue اسم الحقل الموجود به لاسم في الجدول 'اذا لم يجد السجل If Rs!TheValue <> TheValues Then 'اضافه Rs.AddNew Rs!TheValue = TheValues Rs.Update MsgBox "تم الاضافه" Else MsgBox "المبلغ مكرر" End If Rs.MoveNext Loop End If Set Rs = Nothing End Sub

وعليكم السلام استاذ جعفر فعلا المشكلة عويصة فالنموذج FrmTransfer لا يحتوي على (1) . رقم الحساب "N° ccp"، ولا (2). تاريخ "Datetirag" , ولا (3). المبلغ "Monttirag" ولكن التقرير rptTransfer يحتوي على مربعات نص مساوية لـ (1) و (2) و (3) ولكن هل من فكرة بوضع وحدة نمطية توافق التحويل - أدخل رقم الصك المسحوب يحول بإسم رقم الحساب "N° ccp" - Forms!FrmTransfer!txtMonth1 يحول بإسم تاريخ "Datetirag" - Sum([SumOfTheValue]) يحول بإسم المبلغ "Monttirag" أما بخصوص التحويل مرة واحدة فأقصد به مرة واحدة في الشهر إذا كانت فيه مبالغ اي في نفس الشهر اذا اردت الدخول عن هذا التقرير لايتم التحويل لأنه تم سابقا

للتذكير : رقم الصك البريدي او الحساب N° Ccp المشار اليه بالدائرة الزرقاء يكتب يدويا خلال دفعة كل شهر في التقرير rptTransfer بناءا على الدخول من الفورم FrmTransfer

يوجد 3 حقول في الجدول CCP هي التي اريد ان يكتب فيها تلقائيا خلال كل شهر مايلي : رقم الحساب "N° ccp" تاريخ "Datetirag" المبلغ "Monttirag" ملاحظة : ادخل على الفورم FrmTransfer خلال شهر ديسمبر 2015 كما في الصورة التحويل مرة واحدة فقط

مصدر هاذين الرسالتين من الجدول CCP كيف يتم إدراج هذين الحقلين من الجدول المذكور ضمن الإستعلام qry_1-5 ملاحظة : المبالغ والتواريخ ورقم الحسابات في الفورم frmCcp كتبت يدويا علما انه اذا تم الدخول من الفورم frmTransfer يطلب الا ادخال رقم الحساب اما المبالغ والتواريخ تجدها نفسها او بالأحرى ماهي الطريقة : اذا دخلت بالفورم frmTransfer يتم تسجيل "" رقم الحساب الذي هو مربع نص غير منظم يتم ادخال قيمة معلمة يدويا والتاريخ(txtMonth) الموجود في التقرير ب M والمبلغ(SumOfTheValue) "" في الجدول ccp

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

حياك الله استاذي الكريم جعفر والله لك مكانة كبيرة في القلب عملت الحدث كما يلي : '------------------------------------------------------------ ' Datetirag_Click ' '------------------------------------------------------------ Private Sub Datetirag_DblClick(Cancel As Integer) On Error GoTo Datetirag_Click_Err ' stDocName![rptTransfer]![qryTransfer].Controls("Datetirag") = Me.Datetirag ' DoCmd.Close acReport, "rptTransfer" DoCmd.OpenReport "rptTransfer", acViewPreview, , "[Datetirag]=#" & Me.Datet Datetirag_Click_Exit: Exit Sub Datetirag_Click_Err: MsgBox Error$ Resume Datetirag_Click_Exit End Sub عند النقر مرتين ظهرت هذه الرسالة

السلام عليكم أساتذتي الكرام بالمرفق ادناه المطلوب عند النقر مرتين عند تاريخ السحب في الفورم frmCcp يفتح التقرير rptTransfer به تاريخ السحب ورقم الصك المسحب ومبلغ السحب بما في ذالك أسماء المستفيدين ومبالغ إستفادتهم وملاحظات الخاصة بهم اثناء التاريخ الذي تم الدخول به علما ان الفورم FrmTransfer هو الفورم الأساسي للدخول لهذا التقرير بعد التعديل على تاريخ الجهاز ليظهر عند مربع النص "دفع المستحقات خلال الشهر" krimo2015.rar

عفوا تصحيح الكود في الحدث عند Afterupdate() عفوا تصحيح الكود في الحدث عند Afterupdate() krimo2015.rar

السلام عليكم ممكن مساعدة بخصوص تصحيح الحدث التالي Private Sub detaché_Afterupdate() On Error GoTo Err_detaché_Click If IsNull(txtMonth) Then MsgBox "اختر الشهر" DoCmd.CancelEvent Exit Sub End If On Error GoTo Err_detaché_Click 'DoCmd.OpenReport "rptDiscount", acPreview, , "((TheSum > 0)AND (detach = 'موظف'))", , OpenArgs:="موظفين" Me.Report_Title = "للموظفين" Me.Report_Title = "للعمال المنتدبين" Me.Report_Title = "للعمال المتعاقدين بالتوقيت الكامل" Me.Report_Title = "للعمال المتعاقدين بالتوقيت الجزئي" Me.Report_Title = "للعمال اعوان النظافة والتطهير" DoCmd.OpenReport "rptDiscount", acPreview, , , , OpenArgs:="qry_rptD_2" Exit_detaché_Click: Exit Sub Err_detaché_Click: MsgBox Err.Description Resume Exit_detaché_Click End Sub

شكر اخي نور الدين كل الطرق تؤدي الى نفس الحل ولكن ربما طريقك بجعل نوع بيانات الحقل ramz محسوبة مع كتابة المعادلة يكون احسن للعلم هو لم يطلب التخزين في الجدول التخزين في الجدول يعمل حدث في النموذج عند بعد التحديث Private Sub Form_AfterUpdate() Me.ramz = Me.[Form]![year] & "-" & Me.[Form]![fasl] & "-" & Me.[Form]![group] End Sub

هذه محاولة اتمنى تكون مطلوبك في مربع نص ramz ضع مايلي : =[Form]![year] & "-" & [Form]![fasl] & "-" & [Form]![group]

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

اخي جعفر حياك الله لقد آلت بي السبل الى وقوع مشكلة في الفرق بين إقتطاعات الموظفين والمتعاقدين هل انت مستعد لتكملة ماترك خلال شهر جوان 2015 ام لا