طاهر اوفيسنا

اهلا وسهلا استاذ جعفر 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 ام لا

المشكلة في الرقم اذا كان الموظف يحمل رقم 1 والممون يحمل نفس الرقم كيف يتم جلب معلومات الموظف ام الممون

1- الممون ليس له مكتب بالتالي لانعمل حقل "مكتب" 2- المشكلة كيف يتم ادخال معلومات الممون في الفورم frmAmountCurrent

اريد إدخال معلومات الممون وهي كالتالي : رقمه إسمة ولقبه باللغتين العربية و الفرنسية رقم حسابه البنكي مبلغ فاتورة تاريخ الفاتورة العنوان ملاحظات ويكون مع الفورم الخاص بتحويل النقود مع الموظفين للبنوك اي فورم افقتطاع غير معني به ولا يدخل ضمنه

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

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

شكرا لك استاذ لقد تنبهت للمشكلة والآن ممكن مساعدة بخصوص هذا الشرط في هذا الحدث الا إذا كانت ccp يفتح التقرير VIREMENTCCP Private Sub trns2_AfterUpdate() On Error GoTo Err_trns2_Click If IsNull(mnth2) Then MsgBox "اختر الشهر" DoCmd.CancelEvent Exit Sub End If Dim stDocName As String stDocName = "rptTransBnk" DoCmd.OpenReport stDocName, acPreview Exit_trns2_Click: Exit Sub Err_trns2_Click: If Err.Number = 2501 Then Resume Exit_trns2_Click Else MsgBox Err.Description Resume Exit_trns2_Click End If End Sub

والله ما فهمت استاذ انا جربت المرفق الأخير karem11 ونسخت العمال في جدول Employee ونسخت الإستفادات في جدول tblAmountCurrent فوجدت المشكلة اما بخصوص اكمال ملء الحقول الفارغة التي في الصورة المرفقة بل النموذج المرفق ليس به حقول فارغة امام تعديل العلاقة كما اشرت ماعدلت على شيء

بارك الله فيك استاذ لقد نسخت عملي القديم في الجدول tblAmountCurrent كاملا اي القروض والكهرومنزلية والفرش وغيرها تفأجئت بهذا المشكل في rptTransfer و rptTransferAll Karem11up.rar

حاولت جادا من البارحة ولكن لم أفلح

مشكلة ثانية أستاذ وهي في التقريرين subTransBnk1 وsubTransBnk1 التصفية بالشهر فقط وليس بالشهر والسنة

أستاذي الجليل أبو خليل لقد طبقت المثال على كافة العمال الي عندي ولكن وجدت صعوبة في التصفية تجميع البنوك كما اشرت انت في المثال Karem7.rar ظهرت البنوك عير مجتمعة مع بعض في التقرير rptDiscount اي ccp ccp ccp BDL BDL BDL . . . . . الخ مع طلب صغير ظهور رمز البنك بين قوسين وإسمه مثال : (ccp) بريد الجزئر (BDL) بنك التنمية المحلية