M.Abd Allah

اتفضل اخى اذا وجدت طلبك فى المرفق لا تنسى تقييم اجابتي 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 ليكون متناسبًا مع عدد السجلات في الجدول إذا كنت بحاجة إلى مزيد من التفاصيل حول جزء معين من الكود أو لديك أسئلة إضافية، فلا تتردد في طرحها.

ولا يهمك 🌹🌹🌹

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

وعليكم السلام ورحمه الله وبركاته جرب حضرتك كده زرار التوثيق واخبرني بالنتيجه توثيق.accdb

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