كريمو2 قام بنشر ديسمبر 14, 2015 قام بنشر ديسمبر 14, 2015 (معدل) السلام عليكم أساتذتي الكرام بالمرفق ادناه المطلوب عند النقر مرتين عند تاريخ السحب في الفورم frmCcp يفتح التقرير rptTransfer به تاريخ السحب ورقم الصك المسحب ومبلغ السحب بما في ذالك أسماء المستفيدين ومبالغ إستفادتهم وملاحظات الخاصة بهم اثناء التاريخ الذي تم الدخول به علما ان الفورم FrmTransfer هو الفورم الأساسي للدخول لهذا التقرير بعد التعديل على تاريخ الجهاز ليظهر عند مربع النص "دفع المستحقات خلال الشهر" krimo2015.rar تم تعديل ديسمبر 14, 2015 بواسطه كريمو2
jjafferr قام بنشر ديسمبر 14, 2015 قام بنشر ديسمبر 14, 2015 وعليكم السلام أخي كريمو ' stDocName![rptTransfer]![qryTransfer].Controls("Datetirag") = Me.Datetirag ' DoCmd.Close acReport, "rptTransfer" DoCmd.OpenReport "rptTransfer", acViewPreview, , "[Datetirag]=#" & Me.Datetirag & "#" في حدث النقر المزدوج ، اعمل هذا التغيير: جعفر
كريمو2 قام بنشر ديسمبر 14, 2015 الكاتب قام بنشر ديسمبر 14, 2015 (معدل) حياك الله استاذي الكريم جعفر والله لك مكانة كبيرة في القلب عملت الحدث كما يلي : '------------------------------------------------------------ ' 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 عند النقر مرتين ظهرت هذه الرسالة تم تعديل ديسمبر 14, 2015 بواسطه كريمو2
jjafferr قام بنشر ديسمبر 14, 2015 قام بنشر ديسمبر 14, 2015 أخي كريمو شوف الفرق بين معادلتك ومعادلتي: معادلتي DoCmd.OpenReport "rptTransfer", acViewPreview, , "[Datetirag]=#" & Me.Datetirag & "#" ومعادلتك DoCmd.OpenReport "rptTransfer", acViewPreview, , "[Datetirag]=#" & Me.Datet جعفر
كريمو2 قام بنشر ديسمبر 14, 2015 الكاتب قام بنشر ديسمبر 14, 2015 تم التغيير استاذي الكريم ولكن لم يدخل التقرير مباشرة بل ظهر لي 03 ميسجات كما في الصورة يبدو انه يجب التعديل ايضا في التقرير
jjafferr قام بنشر ديسمبر 14, 2015 قام بنشر ديسمبر 14, 2015 نعم ، انت قلت: 5 ساعات مضت, كريمو2 said: علما ان الفورم FrmTransfer هو الفورم الأساسي للدخول لهذا التقرير فالرسالة الاولى تطلب المعلومة من النموذج FrmTransfer ، اما الرسالتين الباقيتين ، فلم اعرف مصدرها جعفر عفوا بالنسبة للرسالة الثانية ، فالتقرير فيه هذا الحقل ، ولكن لا يوجد ما يشير الى مصدره!! الرسالة الثالثة لم اعرفها من اين
كريمو2 قام بنشر ديسمبر 14, 2015 الكاتب قام بنشر ديسمبر 14, 2015 (معدل) 48 دقائق مضت, jjafferr said: اما الرسالتين الباقيتين ، فلم اعرف مصدرها عفوا بالنسبة للرسالة الثانية ، فالتقرير فيه هذا الحقل ، ولكن لا يوجد ما يشير الى مصدره!! الرسالة الثالثة لم اعرفها من اين مصدر هاذين الرسالتين من الجدول CCP كيف يتم إدراج هذين الحقلين من الجدول المذكور ضمن الإستعلام qry_1-5 ملاحظة : المبالغ والتواريخ ورقم الحسابات في الفورم frmCcp كتبت يدويا علما انه اذا تم الدخول من الفورم frmTransfer يطلب الا ادخال رقم الحساب اما المبالغ والتواريخ تجدها نفسها او بالأحرى ماهي الطريقة : اذا دخلت بالفورم frmTransfer يتم تسجيل "" رقم الحساب الذي هو مربع نص غير منظم يتم ادخال قيمة معلمة يدويا والتاريخ(txtMonth) الموجود في التقرير ب M والمبلغ(SumOfTheValue) "" في الجدول ccp تم تعديل ديسمبر 14, 2015 بواسطه كريمو2
حسين العربى قام بنشر ديسمبر 14, 2015 قام بنشر ديسمبر 14, 2015 الان, كريمو2 said: krimo2015.rar الان, jjafferr said:
jjafferr قام بنشر ديسمبر 14, 2015 قام بنشر ديسمبر 14, 2015 2 ساعات مضت, كريمو2 said: او بالأحرى ماهي الطريقة : اذا دخلت بالفورم frmTransfer يتم تسجيل "" رقم الحساب الذي هو مربع نص غير منظم يتم ادخال قيمة معلمة يدويا والتاريخ(txtMonth) الموجود في التقرير ب M والمبلغ(SumOfTheValue) "" في الجدول ccp . اخبرني اي حقل ، واي سجل في الجدول يجب ان تدخل بيانات النموذج frmTransfer اليها ، وساحاول ايجاد الطريقة ان شاء الله جعفر
كريمو2 قام بنشر ديسمبر 14, 2015 الكاتب قام بنشر ديسمبر 14, 2015 23 دقائق مضت, jjafferr said: اخبرني اي حقل ، واي سجل في الجدول يجب ان تدخل بيانات النموذج frmTransfer اليها ، وساحاول ايجاد الطريقة ان شاء الله يوجد 3 حقول في الجدول CCP هي التي اريد ان يكتب فيها تلقائيا خلال كل شهر مايلي : رقم الحساب "N° ccp" تاريخ "Datetirag" المبلغ "Monttirag" ملاحظة : ادخل على الفورم FrmTransfer خلال شهر ديسمبر 2015 كما في الصورة التحويل مرة واحدة فقط
كريمو2 قام بنشر ديسمبر 15, 2015 الكاتب قام بنشر ديسمبر 15, 2015 9 ساعات مضت, كريمو2 said: يوجد 3 حقول في الجدول CCP هي التي اريد ان يكتب فيها تلقائيا خلال كل شهر مايلي : رقم الحساب "N° ccp" تاريخ "Datetirag" المبلغ "Monttirag" ملاحظة : ادخل على الفورم FrmTransfer خلال شهر ديسمبر 2015 كما في الصورة التحويل مرة واحدة فقط للتذكير : رقم الصك البريدي او الحساب N° Ccp المشار اليه بالدائرة الزرقاء يكتب يدويا خلال دفعة كل شهر في التقرير rptTransfer بناءا على الدخول من الفورم FrmTransfer
jjafferr قام بنشر ديسمبر 15, 2015 قام بنشر ديسمبر 15, 2015 السلام عليكم أخي كريمو والله من أمس وانا ادور في حلقه مفرغه وماني قادر استوعب المطلوب 18 ساعات مضت, كريمو2 said: يوجد 3 حقول في الجدول CCP هي التي اريد ان يكتب فيها تلقائيا خلال كل شهر مايلي : 1. رقم الحساب "N° ccp" 2. تاريخ "Datetirag" 3. المبلغ "Monttirag" ملاحظة : ادخل على الفورم FrmTransfer خلال شهر ديسمبر 2015 كما في الصورة التحويل مرة واحدة فقط النموذج FrmTransfer لا يحتوي على (1) ، ولا (3) ، فمن اين تريد ان تأخذ هذه البيانات لإدخالها للجدول CCP !! التحويل مرة واحدة فقط ؟؟ انا اعتذر منك ، فالمسأسلة فيها حلقه ضائعة ، فرجاء تشرح لي بالتفصيل عن المطلوب جعفر
كريمو2 قام بنشر ديسمبر 15, 2015 الكاتب قام بنشر ديسمبر 15, 2015 (معدل) منذ ساعه, jjafferr said: النموذج FrmTransfer لا يحتوي على (1) ، ولا (3) ، فمن اين تريد ان تأخذ هذه البيانات لإدخالها للجدول CCP !! التحويل مرة واحدة فقط ؟؟ انا اعتذر منك ، فالمسأسلة فيها حلقه ضائعة ، فرجاء تشرح لي بالتفصيل عن المطلوب وعليكم السلام استاذ جعفر فعلا المشكلة عويصة فالنموذج FrmTransfer لا يحتوي على (1) . رقم الحساب "N° ccp"، ولا (2). تاريخ "Datetirag" , ولا (3). المبلغ "Monttirag" ولكن التقرير rptTransfer يحتوي على مربعات نص مساوية لـ (1) و (2) و (3) ولكن هل من فكرة بوضع وحدة نمطية توافق التحويل - أدخل رقم الصك المسحوب يحول بإسم رقم الحساب "N° ccp" - Forms!FrmTransfer!txtMonth1 يحول بإسم تاريخ "Datetirag" - Sum([SumOfTheValue]) يحول بإسم المبلغ "Monttirag" أما بخصوص التحويل مرة واحدة فأقصد به مرة واحدة في الشهر إذا كانت فيه مبالغ اي في نفس الشهر اذا اردت الدخول عن هذا التقرير لايتم التحويل لأنه تم سابقا تم تعديل ديسمبر 15, 2015 بواسطه كريمو2
jjafferr قام بنشر ديسمبر 16, 2015 قام بنشر ديسمبر 16, 2015 السلام عليكم 14 ساعات مضت, كريمو2 said: - أدخل رقم الصك المسحوب يحول بإسم رقم الحساب "N° ccp" - Forms!FrmTransfer!txtMonth1 يحول بإسم تاريخ "Datetirag" قصدك ان (1) نعمل حقل بإسم Nccp في النموذج FrmTransfer ونخذ المعلومه منه ، (2) ومن الحقل txtMonth1 ، 14 ساعات مضت, كريمو2 said: ولكن التقرير rptTransfer يحتوي على مربعات نص مساوية لـ (1) و (2) و (3) - Sum([SumOfTheValue]) يحول بإسم المبلغ "Monttirag" التقرير مبني على الاستعلام qry_1-5 ، فهذا معناه اننا نستطيع ان نستخلص (3) Sum([SumOfTheValue]) المطلوبة مباشرة من الاستعلام ؟ جعفر
كريمو2 قام بنشر ديسمبر 16, 2015 الكاتب قام بنشر ديسمبر 16, 2015 (معدل) اهلا وسهلا استاذ جعفر 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 تم تعديل ديسمبر 16, 2015 بواسطه كريمو2
jjafferr قام بنشر ديسمبر 16, 2015 قام بنشر ديسمبر 16, 2015 (معدل) 7 ساعات مضت, jjafferr said: مباشرة من الاستعلام انا قلت الاستعلام ، ولم اقل التقرير لذا ، استعمل كود شبيه (ولكن على الاستعلام) ، يعمل من النموذج FrmTrasfer قبل فتح التقرير مثلا ، هكذا: Set Rs = CurrentDb.OpenRecordset("Select * From qry_1-5") جعفر وتحصل على المجوع هكذا مثلا: S= Dsum ("[Thevalue]","[qry_1-5]") جعفر تم تعديل ديسمبر 16, 2015 بواسطه jjafferr
كريمو2 قام بنشر ديسمبر 16, 2015 الكاتب قام بنشر ديسمبر 16, 2015 1 ساعه مضت, jjafferr said: لذا ، استعمل كود شبيه (ولكن على الاستعلام) ، يعمل من النموذج FrmTrasfer قبل فتح التقرير مثلا ، هكذا: Set Rs = CurrentDb.OpenRecordset("Select * From qry_1-5") وتحصل على المجموع هكذا مثلا: S= Dsum ("[Thevalue]","[qry_1-5]") لم افهم استاذ جعفر ماطلبته مني بالتدقيق
jjafferr قام بنشر ديسمبر 16, 2015 قام بنشر ديسمبر 16, 2015 هاك الخطوات: نستعمل الاستعلام من التقرير: . نحفظه باسم qry_1-5_Sum . في النموذج ، FrmTransfer نضع هذا الكود لعملية الجمع ، وتستطيع جمع نتائج الاستعلام مع هذه النتيجة: . وقد عملت حقل لرقم الحساب في النموذج ، والنتيجة : . الآن عندك رقم الحساب ، والمجموع والتاريخ من النموذج ، فما عليك إلا ان تدخلهم الى الجدول CCP كيفما احببت جعفر
كريمو2 قام بنشر ديسمبر 16, 2015 الكاتب قام بنشر ديسمبر 16, 2015 لم تظهر النتائج بالجدول CCP عموما انظر ماطبقت ولكن يبدو فيه اختلاف بين ما اشرت اليه وما وجدته krimo2015V1.rar
jjafferr قام بنشر ديسمبر 16, 2015 قام بنشر ديسمبر 16, 2015 لا يا كريمو ، هذا مو انصاف منك!!! هذه المرة اشوفك متخربط!! انا قلت: وانت طبعا تطلع نتائجك خطأ ، لأنك كتبت المعادلة خطأ وبعد التصحيح الى معادلتي ، هذه نتيجة الاستعلام والتقرير والكود: . 29 دقائق مضت, كريمو2 said: لم تظهر النتائج بالجدول CCP . انا اعطيتك البيانات وقلت لك: منذ ساعه, jjafferr said: فما عليك إلا ان تدخلهم الى الجدول CCP كيفما احببت فيعني انا ما عملت اي شئ بالجدول CCP جعفر
كريمو2 قام بنشر ديسمبر 16, 2015 الكاتب قام بنشر ديسمبر 16, 2015 اخي واستاذي جعفر لقد اوصلتني للبئر ورجعت دون اقتناء ولو جرعة صغيرة من مائه "فما عليك إلا ان تدخلهم الى الجدول CCP كيفما احببت " هنا ما فهمت كيف تدخل النتائج للجدول معليش اكمال ماتبقى يكون كرما منك استاذ تقبل تحياتي
jjafferr قام بنشر ديسمبر 16, 2015 قام بنشر ديسمبر 16, 2015 (معدل) تعرف ليش الرسالة فارغة؟ انظر الى الكود مرة اخرى ، وستلاحظ انك استخدمت msgbox a بدل msgbox S !! اعطني دقائق وساعمل على بقية الكود جعفر تفضل هذا كود الالحاق للجدول CCP ، وطبعا تقدر قبل الادخال انك تتأكد من البيانات هذا الشهر اذا كانت موجودة (كما عملت انت في كود التقرير عند حدث الغلق) او بأي طريقة اخرى: والنتيجة: جعفر 288.krimo2015V1.mdb.zip تم تعديل ديسمبر 16, 2015 بواسطه jjafferr
كريمو2 قام بنشر ديسمبر 16, 2015 الكاتب قام بنشر ديسمبر 16, 2015 شكرا لك استاذ هو المطلوب فعلا اخر اللمسات ميساج يخبرني هل تريد ان تنقل القيم الى الجدول CCP نعم / لا في نظري نعمل شرط اساسي وهو التحويل يتم الا بملء رقم الحساب هكذا يكون افضل واذا لم يكتب رقم الحساب لا يتم التحويل بورك فيك استاذ لى المجهود دمت ذخرا لنا وللمنتدى المفضل تقبل تحياتي القلبية الخالصة
jjafferr قام بنشر ديسمبر 17, 2015 قام بنشر ديسمبر 17, 2015 (معدل) تفضل وهذا هو الكود الاخير: If Len(txtMonth) = 0 Or IsNull(txtMonth) Or Not IsDate(txtMonth) Then MsgBox "Error !! SELECT A VALID Date." txtMonth.SetFocus Exit Sub ElseIf Len(Me.NCcp & "") = 0 Then MsgBox "Error !! SELECT A VALID N CCP number." Me.NCcp.SetFocus Exit Sub End If On Error GoTo Err_cmdTransfer_Click 'DoCmd.OpenReport "rptTransfer", acPreview 'DoCmd.OpenReport "rptTransfer", acViewPreview Dim rst As DAO.Recordset Set rst = CurrentDb.OpenRecordset("Select * From CCP") rst.MoveLast: rst.MoveFirst rst.FindFirst Month(txtMonth) & Year(txtMonth) = Month(Me.txtMonth1) & Year(Me.txtMonth1) Dim Msg, Style, Title, Response If rst.NoMatch Then Msg = "This month is NOT in the table CCP" & vbCrLf & _ "Do you want to ADD A NEW RECORD ?" Style = vbYesNo + vbCritical + vbDefaultButton2 Title = "No values in CCP" Response = MsgBox(Msg, Style, Title) If Response = vbYes Then ' User chose Yes. rst.AddNew rst!NCcp = Me.NCcp rst!txtMonth = Me.txtMonth1 rst!TheValue = DSum("[TV]", "[qry_1-5_Sum]") rst.Update Else ' User chose No. GoTo Exit_Sub End If Else Msg = "The following values exist in the table CCP" & vbCrLf & _ "Account number=" & rst!NCcp & vbCrLf & _ "Month=" & rst!txtMonth & vbCrLf & _ "Value=" & rst!TheValue & vbCrLf & vbCrLf & _ "Do you want to UPDATE ?" Style = vbYesNo + vbCritical + vbDefaultButton2 Title = "values found in CCP" Response = MsgBox(Msg, Style, Title) If Response = vbYes Then ' User chose Yes. rst.Edit rst!NCcp = Me.NCcp rst!txtMonth = Me.txtMonth1 rst!TheValue = DSum("[TV]", "[qry_1-5_Sum]") rst.Update Else ' User chose No. GoTo Exit_Sub End If End If 'DoCmd.OpenQuery "qry_1-5_Sum" 'S = DSum("[TV]", "[qry_1-5_Sum]") 'MsgBox S Exit_Sub: rst.Close: Set rst = Nothing Exit_cmdTransfer_Click: Exit Sub جعفر 288.krimo2015V1.mdb.zip تم تعديل ديسمبر 17, 2015 بواسطه jjafferr
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.