jjafferr

تفضل التصدير الى اكسل. جعفر 78.3.TEST.accdb.zip

وعليكم السلام في النموذج ، في الحدث "بعد تحديث" الحقل نوع الصادرة ، استعمل هذا الكود: Me.seq = DCount("[typ]", "sadr", "[year1]=" & Year(Now())) + 1 جعفر

اين المرفق؟

إعذرني أخوي انت ما عليك من ان اسمي في كل مكان ، بس انا ترى فهمي ضعيف ما افهم السؤال ، إلا بمثال وتفصيل الضعيف جعفر

تفضل هاي للرقم 2 بس تأكد اني ما قلبت المطلوب !! وانا عملت الدفع لهؤلاء فقط: myCriteria = "[detach]='موظف'" myCriteria = myCriteria & " Or [detach]='منتدب'" myCriteria = myCriteria & " Or [detach]='متعاقد كامل'" myCriteria = myCriteria & " Or [detach]='متعاقد جزئي'" myCriteria = myCriteria & " Or [detach]='عون نظافة'" فاذا كان المقصود بدون هؤلاء ، فغير الاسطر الى myCriteria = "[detach]<>'موظف'" myCriteria = myCriteria & " Or [detach]<>'منتدب'" myCriteria = myCriteria & " Or [detach]<>'متعاقد كامل'" myCriteria = myCriteria & " Or [detach]<>'متعاقد جزئي'" myCriteria = myCriteria & " Or [detach]<>'عون نظافة'" بالنسبة الى رقم 1 ، ماذا تريدني ان افعل لعلاج المشكلة؟ جعفر 11.8.FrmDiscountReport.mdb.zip

والدالة لأكثر من شرط ، وبطريقة سهلة: كل نوع من انواع الحقول له طريقة معينة للتعامل معه في الكود ، وهذا يجعل كتابة كود بأكثر من شرط ، صعب نوعا ما ، لذلك ، الطريقة التي اقترحها هي في التعامل مع كل نوع بسطر مستقل (انظر للمثال في الاسفل) ، مما لا يدع مجال للخطأ في السطر ، ثم نجمع الاسطر في سطر واحد ، وهذا السطر يكون مجموع الشروط : myCriteria = "[detach]='موظف'" myCriteria = myCriteria & " Or [iDate]=#29-05-2015#" myCriteria = myCriteria & " Or [Payment_Month]=#" & Me.txtMonth & "#" myCriteria = myCriteria & " Or [EmployeeID]=" & Me.EmployeeID 'myCriteria = myCriteria & " Or [ID]=12" a = DLookup("[myID]", "tbl_Employees", myCriteria) او myCriteria_1 = "[detach]='موظف'" myCriteria_2 = " Or [iDate]=#29-05-2015#" myCriteria_3 = " Or [Payment_Month]=#" & Me.txtMonth & "#" myCriteria_4 = " Or [EmployeeID]=" & Me.EmployeeID myCriteria_5 = " Or [ID]=12" myCriteria = myCriteria_1 & myCriteria_2 & myCriteria_3 & myCriteria_4 & myCriteria_5 a = DLookup("[myID]", "tbl_Employees", myCriteria) والشرح 'في الاسطر، ممكن استعمال والخلط بين 'Or او And 'كما يمكن استعمال اي سطر، و عدم استعمال اسطر اخرى، اي يمكن الخلط في استعمال الاسطر 'للمتغيرات الثابته 'نص myWhere = "[detach]='موظف'" myWhere = myWhere & " Or [ID]=12" 'رقم myWhere = myWhere & " Or [iDate]=#29-05-2015#" 'تاريخ 'للمتغيرات myWhere = myWhere & " Or [Employee_Name]='" & Me.Employee_Name & "'" 'نص myWhere = myWhere & " Or [EmployeeID]=" & Me.EmployeeID 'رقم myWhere = myWhere & " Or [Payment_Month]=#" & Me.txtMonth & "#" 'تاريخ a = DLookup("[myID]", "tbl_Employees", myWhere) جعفر

السيد المحترم البسطاء مثلي لا يملكون حساب في المواقع الاجتماعية ، فاذا اردتني ان اساعد ، فرجاء ارفاق برنامجك هنا بعد ضغطه بواسطة winRar او winZip . البسيط جعفر

حياك الله

جرب هذا المرفق الموضوع له علاقة بصيغة التاريخ جعفر 78.2.TEST.accdb.zip

وعليكم السلام الآن وقد وفرت ووضحت الأمور بالتفصيل ، اليك الجواب بالتفصيل الآن النموذج يحتوي على حقلين: حقل التاريخ ، حيث تختار التاريخ المطلوب ، اما حقل IDD ، فهو ليس لك ، وانما للبرنامج ، لذا يمكنك ان تجعله مخفي والزر Exporter يحتوي على هذا الكود: Private Sub cmd_Export_to_pdf_Click() On Error GoTo err_cmd_Export_to_pdf_Click Dim rst As DAO.Recordset 'get the unique IDDs from qry_Test_Sums Set rst = CurrentDb.OpenRecordset("Select * From qry_Test_Sums Where [Date]=#" & Me.Idate & "#") rst.MoveLast: rst.MoveFirst RC = rst.RecordCount 'now loop through the IDDs, printing a Report for each For i = 1 To RC 'write the IDD to the Form, 'where qry_Test uses it with the Date from Me.iIDD = rst!IDD 'Output_Path= "c:\" & rst!IDD & ".pdf" Output_Path = Application.CurrentProject.Path & "\" & rst!IDD & ".pdf" 'The print to pdf cpmmand DoCmd.OutputTo acOutputReport, "AAAA", "PDFFormat(*.pdf)", Output_Path, False, , 0, acExportQualityPrint rst.MoveNext Next i 'cleaning up Me.iIDD = "" rst.Close: Set rst = Nothing MsgBox "pdf Printing completed" cmd_Export_to_pdf_Click_Exit: Exit Sub err_cmd_Export_to_pdf_Click: If Err.Number = 3021 Then MsgBox "No Records to Print" Resume cmd_Export_to_pdf_Click_Exit Else MsgBox Error$ End If End Sub والكود يرسل قيمة IDD من الاستعلام qry_Test_Sums ، حيث يتم استعمال هذه القيمة ، مع قيمة التاريخ في النموذج ، لتصفية سجلات الاستعلام qry_Test ، والنتيجة 300.pdf يقوم البرنامج بتصدير جميع ملفات pdf الى نفس المجلد الذي به البرنامج ، وقد وضعت لك مثال لتغيير المسار. جعفر 78.2.TEST.accdb.zip

أنا آسف ، فانت تتكلم عن حقلين ، بينما انا اتكلم عن حقل واحد هو التاريخ !! الحل سهل ، والامر هو: Private Sub Command1_Click() On Error GoTo Command1_Click_Err Dim rst As DAO.Recordset Set rst = CurrentDb.OpenRecordset("Select * From TTTT Where [date]=#" & Me.iDate & "#") rst.MoveLast: rst.MoveFirst RC = rst.RecordCount 'Output_Path= "c:\" Output_Path = Application.CurrentProject.Path & "\" For i = 1 To RC DoCmd.OutputTo acOutputReport, "AAAA", "PDFFormat(*.pdf)", Output_Path & rst!Cen, False, , 0, acExportQualityPrint rst.MoveNext Next i rst.Close: Set rst = Nothing Command1_Click_Exit: Exit Sub Command1_Click_Err: MsgBox Error$ Resume Command1_Click_Exit End Sub ولكن يجب ان اعرف تفاصيل أدق ، لذا رجاء ، اعمل لي/او ارفق سجلات صحيحة بتواريخ وارقام صحيحة ، كما ارفق لي سواء في اكسل ، او صورة ، توضح فيها السجلات التي تكون مجموعة مع بعض بالتاريخ و cen ، وعلى اساسه اضبط لك الكود ان شاء الله جعفر

عفوا انت قلت سابقا: والان تقول: يعني انت لا تريد جميع التقارير في ملف pdf واحد ، وانما تريد كل تقرير في ملف pdf مستقل؟ هل هذا صحيح؟ جعفر

وعليكم السلام خلينا على السؤال الاصل ، ومن ثم نرى الباقي ان شاء الله لوسمحت تفتح الجدول TTTTTT (أسف ما حسبت كم T يوجد في اسم الجدول ) ، وستلاحظ ان التواريخ فيها كلها عبارة عن سجل واحد فقط !! وافتح الاستعلام Query ، وبدون اي تاريخ ، سترى ان عندك تاريخين مختلفين كذلك !! يعني ، لو ان عندك اكثر من سجل بنفس التاريخ ، لرأيت جميع السجلات تُطبع في تقرير واحد. جرب وخلي السجلات في الجدول بنفس التاريخ ، ثم اطبع من النموذج ، واخبرنا النتيجة جعفر

أخي الفاضل مشاركة أخونا مارد رقم 10 فيها إجابة ومرفق ، وهو اعطاك الحل ، لذا: 1. كان يجب ان تقرأ شرحه لك في المشاركة ، وتتفهمه ، 2. ان تجرب المرفق الذي اتعب نفسه وعمله لك ، وتعرف نتائجه ، 3. ان تختار مشاركته كأفضل إجابة (وانا هنا اطلب من المشرفين تعديل هذا لوسمحوا وتكرموا ). 4. مشاركتي رقم 11هي للعلم وإضافة معلومات فقط جعفر

وعليكم السلام تفضل النموذج: الاستعلام: جعفر

وعليكم السلام أخي ناصر ما واضح ايش القصد من آخر سجلين ، وعليه يصبح السؤال كله غامض اذا امكنك ان ترفق صورة من سجلاتك وتوضح المطلوب ، او طبعا جزء البرنامج الذي فيه المشكلة ، مع توضيح اسم النموذج والحقول. جعفر

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

اللي انا فاهمه حأقوله First-Last هما لمعرفة اول حقل تم ادخال اول/آخر معلومة في الحقل ، فيمكننا ان نطلب First لحقل معين ، ولكن نعمل الفرز من الكبير للصغير ، فينقلب الترتيب!! هو ده اللي انا فهمته من الاكسس بس سؤال: يا راعي الغنم أفندي ، ايش دخل هالموضوع بالسؤال؟ الحين بتحصل كرت أحمر لخروجك عن الموضوع جعفر

الظاهر ان الجدول له علاقة بجدول آخر جعفر

وعليكم السلام حقل AutoNumber هو لفهرسة الجدول ، والاكسس يعتمد عليه لسرعة الوصول الى السجل المطلوب ، ويجب على المبرمج ان لا يعتمد على هذا الحقل ابدا إلا للفهرسة ، اي ، هذا الحقل هو لإستعمال البرنامج ، والمبرمج يجب عليه الاستفادة منه كونه للفهرسة ، وليس للترقيم التلقائي. جعفر

السلام عليكم انا لم التفت لهذه الخطوات ، فهي لا ضرورة لها للعمل بالطريقة الجديدة ، ملاحظة مهمة ، لقد تم العمل على اساس اقتراحاتي في المشاركة رقم 80. وكذلك لم التفت الى التقرير او اي من استعلاماتك ، فعملي كان فقط على الكائنات التي تم مناقشتها سابقا فقط. الجدول tbl_Loans بدون اصفار ، وهو واضح بهذه الطريقة ، وانما تم اضافة الامر NZ للاستعلام qr_Loans_Step2 ، كما تم حذف الحقل الذي انت ادخلت عليه الشرط ، فلا داعي له ، لأن الطريقة الجديدة تجلب السجلات الصحيحة فقط. لم افهم ؟؟ والذي جربته هو عند فتح النموذج واختيار التاريخ ، يفتح الاستعلام بدون مشاكل. لا يجب ادخال اي بيانات يدويا في الجدول tbl_Loans ، فالكود يقوم بعمل الازم ، والشئ الوحيد الذي تعمله عن طريق frm_Loans ، هو دفع اقتطاع لـ Cridi او Elec لمبالغ غير القسط الشهري (يعني اذا اراد موظف دفع مبلغ اكبر لذلك الشهر مثلا). ومساهمة شهري 3 و 7 تتم في هذين الشهرين فقط ، فاذا اردت التجربة ، فيجب ان تغير تاريخ كمبيوترك لشهر 3 مثلا ، فسترى عند فتح النموذج FrmDiscountReport ، انه تم ادخال المبالغ في الجدول tbl_Loans. رجاء تجربة ما عملناه ببيانات حقيقة ، ومادام الموضوع طازج في بالي ، فانا على سفر قريب جدا ، وانت تعرف ان سفراتي طويلة ولا ادخل الانترنت غالبا جعفر 11.7.FrmDiscountReport.mdb.zip

هلا والله بالجندبي المستعار

وعليه ، تم إلغائه من tbl_Loans ، والان تقول: لا تنسى ان الطريقة الجديدة هي توثيق كل اقتطاع/دفع في الجدول tbl_Loans ، والطريقة تعطينا مرونة وتوثيق تام لكل دفعة ولكل شهر ، وكل ما علينا عمله لاحقا ، ان نعمل استعلام للشئ الذي نريده ، وعليه نحصل على النتائج. اذا اردت اخيرا ان تضيف Loan_Other مرة ثانية في الجدول tbl_Loans ، فاقترح ان تجعل الزر "سدد مبالغ الاقتطاعات" يقوم بادخال هذه المبالغ ايضا ، فقط عندما يكون للأشهر التي تريد (مارس و؟ ) ، وإدخال المبلغ. كيف التعامل مع هذه الدفعات؟ لمن؟ كم؟ وتفاصيل اخرى!! جعفر

ونحن من المنتظرين إن شاء الله

حياك الله 1. انت قلت: وعليه ، تم إلغائه من tbl_Loans ، والان تقول: لا تنسى ان الطريقة الجديدة هي توثيق كل اقتطاع/دفع في الجدول tbl_Loans ، والطريقة تعطينا مرونة وتوثيق تام لكل دفعة ولكل شهر ، وكل ما علينا عمله لاحقا ، ان نعمل استعلام للشئ الذي نريده ، وعليه نحصل على النتائج. اذا اردت اخيرا ان تضيف Loan_Other مرة ثانية في الجدول tbl_Loans ، فاقترح ان تجعل الزر "سدد مبالغ الاقتطاعات" يقوم بادخال هذه المبالغ ايضا ، فقط عندما يكون للأشهر التي تريد (مارس و؟ ) ، وإدخال المبلغ. 2. أعتقد ان الافضل ان تجعله على حدث تحميل النموذج FrmDiscountReport ، 3. بإستخدام الدالة NZ مثلا. 4. انت في سؤالك السابق طلبت حذف Cridi و Elec من الاستعلام ، فهما قيمة كل قرض شهري ، والذي يدخله البرنامج من النماذج الفرعية لـ Cridi و Elec ، اما الاقتطاع/الدفع فهو Payments ، والسبب ان الرقمين متماثلين ، لأنك تدفع نفس مبلغ القرض الشهري ، ولكنك اذا دفعت مبلغ أكبر للقرض لذلك الشهر ، فسترى الفرق جعفر