M.Abd Allah

وعليكم السلام ورحمه الله وبركاته طيب تمام جرب الكود ده كده واهم حاجه تتأكد أن اعدادات الطابعه أنها بتدعم duplex Private Sub PrintReports_Click() Dim reportNumber As String Dim prt As Printer ' افترض أن "رقم التقرير" هو اسم حقل النص في النموذج reportNumber = Me!رقم_التقرير On Error GoTo ErrorHandler ' تعيين الطابعة للطباعة على الوجهين For Each prt In Application.Printers If prt.DeviceName = Application.Printer.DeviceName Then prt.Duplex = acPRDPVertical ' تعيين الطباعة على الوجهين Exit For End If Next prt ' فتح التقرير أ باستخدام رقم التقرير كمعيار DoCmd.OpenReport "التقرير أ", acViewPreview, , "رقم_التقرير = '" & reportNumber & "'" DoCmd.PrintOut , , , , , True ' الطباعة على الوجه الأول ' إغلاق التقرير أ DoCmd.Close acReport, "التقرير أ" ' فتح التقرير ب باستخدام نفس المعيار DoCmd.OpenReport "التقرير ب", acViewPreview, , "رقم_التقرير = '" & reportNumber & "'" DoCmd.PrintOut , , , , , False ' الطباعة على الوجه الثاني ' إغلاق التقرير ب DoCmd.Close acReport, "التقرير ب" Exit Sub ErrorHandler: MsgBox "حدث خطأ أثناء الطباعة: " & Err.Description, vbCritical End Sub

😉😉😉 دايما منور يا بروف

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

ولا يهمك اتفضل المرفق بعد التعديل 17 june_2.rar

اتفضل اخى اذا وجدت طلبك فى المرفق لا تنسى تقييم اجابتي 17 june_1.rar

ولا يهمك واضح أن حضرتك قيمت الاجابه بطريقه عكسيه ولا يهمك 😊😊

لا ولا يهمك طيب استأذنك افتح الملف ده وشوف التغيرات وجرب كده تعدل اي بيانات للكشوفات العياده22.mdb استأذنك جرب كده اللي انت عايزه من خلال نفس القاعده الجديده اللي بعتهالك وقولى رايك

طيب شوف كده التعديل ده انا غيرت لحضرتك الكود وان شاء الله مفيهوش مشكله بمجرد انك تغير اي حاجه فالبيانات يتم الالحاق فى جدول المراقبين طمني كده انا فاهم صح ولا لاء وقولى ايه المطلوب لاني مازلت حاسس اني مش فاهم العياده11.mdb

اعمل استعلام جديد مبني علي الجدول بتاعك وتعالي عالحقل اللي حضرتك عايز تعرض فيه القيم الأكبر من صفر وقوله فى المعايير ( criteria ) > 0

ولا حضرتك تقصد انك عايز فالنموذج بتاع ادخال البيانات يظهر حقل T بنفس طريقه احتياجك للبيانات اللي موجوده جواه بس بالاستغناء عن الحقل المحسوب ؟

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

السلام عليكم ورحمه الله وبركاته شوف حضرتك المرفق كده عملت بعض التعديلات البسيطه حسب فهمي للموضوع قد تكون غير مكتملة أو ناقص تظبيط فيها لو هو ده قريب من اللي حضرتك عايزه ممكن اكمل فيه stock1.rar

انسخ الكود ده فى زرار الأمر Private Sub command_Click() Dim codeToExecute As String codeToExecute = Me.mycode.Value On Error GoTo ErrorHandler ' تنفيذ الكود الموجود في مربع النص Eval codeToExecute Exit Sub ErrorHandler: MsgBox "حدث خطأ أثناء تنفيذ الكود: " & Err.Description, vbCritical End Sub بعدها انسخ الكوده فالتكست Dim dbs As DAO.Database Set dbs = CurrentDb Dim strConnect As String strConnect = "ODBC;DRIVER={SQL Native Client};" & _ "SERVER=WIN-O7711S4F355\SQLEXPRESS;" & _ "DATABASE=main;" & _ "UID=administartor;" & _ "Trusted_Connection=Yes;" For Each qdf In dbs.QueryDefs If qdf.Type = dbQSQLPassThrough Then qdf.Connect = strConnect qdf.ReturnsRecords = True End If Next qdf هتشتغل معاك إن شاءالله

وعليكم السلام ورحمه الله وبركاته Private Sub PrintReports_Click() Dim reportNumber As String ' افترض أن "رقم التقرير" هو اسم حقل النص في النموذج reportNumber = Me!رقم_التقرير On Error GoTo ErrorHandler ' فتح التقرير أ باستخدام رقم التقرير كمعيار DoCmd.OpenReport "التقرير أ", acViewPreview, , "رقم_التقرير = '" & reportNumber & "'" DoCmd.PrintOut , , , , , True ' الطباعة على الوجه الأول ' الانتقال إلى التقرير ب باستخدام نفس المعيار DoCmd.OpenReport "التقرير ب", acViewPreview, , "رقم_التقرير = '" & reportNumber & "'" DoCmd.PrintOut , , , , , False ' الطباعة على الوجه الثاني ' إغلاق التقارير بعد الطباعة DoCmd.Close acReport, "التقرير أ" DoCmd.Close acReport, "التقرير ب" Exit Sub ErrorHandler: MsgBox "حدث خطأ أثناء الطباعة: " & Err.Description, vbCritical End Sub جرب الكود ده ووافنى بالرد مع مراعات تغيير اسماء التقارير وان الطابعه تكون بتطبع علي وجهين

إن شاءالله هتنجح

فى هذا المثال اضفتلك أمرين أمر الإغلاق زي محضرتك كنت عامل فالصوره Docmd.Close وأمر تكبير للنموذج جرب تكتب اي امر منهم فالتكست بوكس هيتنفذ الأمر بما تدوس عالزرار أو تجرب تضيف أمر تاني بس تضيفه فالداله اللي فالنموذج وان شاء الله هيشتغل

اتفضل مثال للي حضرتك طلبته جرب المثال وقولي هو ده المطلوب ولا لاء وتقدر تضيف فالداله اكتر من أمر مثال تنفيذ امر بناء على قيمه حقل.accdb

طيب ثواني اعملك مرفق وابعتهولك إن شاءالله تلاقيه صحيح

جرب إن شاءالله تلاقي نتيجه كويسه

Private Sub Command1_Click() Dim codeToExecute As String codeToExecute = Me.mycode.Value On Error GoTo ErrorHandler ' تنفيذ الكود الموجود في مربع النص Eval codeToExecute Exit Sub ErrorHandler: MsgBox "حدث خطأ أثناء تنفيذ الكود: " & Err.Description, vbCritical End Sub جرب الكود ده فالزرار وعرفني النتيجه

تحياتي لشخصك الكريم ولكلماتك الراقيه احنا كلنا بنتعلم من بعض انا معملتش حاجه

شوف كده المثال اللي عملته ده قصدك عليه تجزئة الجمله الى مفردات 1.accdb

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

طبقا لما هو موضح بقوانين المنتدى حضرتك افتحي موضوع جديد وارفقي مثال ونشوف فين المشكله

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