jjafferr

الامر بيدك ان اردت مساعدتنا ، وذلك بإرفاق الملف الذي يعمل.

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

الكلام هنا عن النسخة الشغالة. احتفظ بنسخة واعزلها بعيدأ ولا تعمل عليها اي تعديل. ارجع الى نسخة العمل ، وجرب ضغط و اصلاح (3 مرات) ، او جرب برنامجي (3 مرات ولكن ليس على النسخة التي عملت عليها ضغط واصلاح) : . واذا ما تصلح البرنامج ، ارفقه هنا

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

. الوحدة النمطية عبارة عن محتوى يضم داخله دوال Function/Sub واحده او متعدد ، ولكن ، يجب ان يكون اسم الوحدة النمطية يختلف عن اسم الدالة. هذه الرسالة تشير الى اسم الدالة الغير موجودة ، بينما الصورة تشير الى ان الوحدة النمطية لها نفس الاسم !! قم بتغيير اسم الوحدة النمطية ، ثم اذا لم يتم حل المشكلة ، فرجاء ترفق برنامجك.

ما ادري !! عملت مقارنة بخطوط الوندوز اللي عندي (وما عندي خطوط اضافية) ، فالاقرب كان Times New Roman وطلبت من claude.ai يعمل المقارنة :

وعليكم السلام هنا امثلة اخرى لضرورة تنسيق كتابة الكود

كلام من ذهب اتفق معاك اخوي ابوخليل 100% ، وخصوصا عندنا امكانبة اختيار انواع الخطوط واحجامها في التقرير

وعليكم السلام مشاهدة التقرير في عرض التصميم يختلف عن معاينة الطباعة ، حيث ان معاينة الطباعة تكون مربوطة باعدادات الطابعة. 1. يجب ان لا يظهر لك المثلث الاخضر في الزاوية التي فيها الدائرة الزرقاء ، والتي تشير الى ان عرض تقريرك اكبر من عرض الورقة التي استعملتها في اعدادات الصفحة (a4 في حالتك) ، وعرض التقرير هو الصفحة التي تشاهدها امامك + الهامش الايمن + الهامش الايسر. بمعنى آخر ، اعمل تصغير للتقرير الى ان يختفي المثلث الاخضر. 2. يجب ان تعمل محاذاة للحقل (محاذاة اليمين مثلا) ، ثم تقول بتضيط مكانه ، وبعد الاحيان المحاذاة تختلف في وضع التصميم عن وضع الطباعة ، فتقوم بتحريك الحقل حتى يكون مضبوط في وضع الطباعة . واجعل الصورة بمحاذاة اليسار ، فهي تكون ثابتة في العرض والطباعة

الحمدلله 🙂 ورجاء العمل على المادة 3 من مقترحي ، حتى يصبح تقريرك خفيف على البرنامج وسريع الاستجابة. اهلا اخي طاهر 🙂 1. نعم بالتأكيد ، الافضل حذف الصورة المتضمنة في التقرير واستبدالها بحقول ومسميات ، نعم قد تحتاج الى بعض اجزاء الصورة المتضمنة ، مثل الشعار او التوقيع ، ولكن يجب ان يكون طول وعرض الصورة لا يكون اكبر من الواقع ، مثلا عرض صفحة A4 هو 21 سنتيمتر ، والشعار في منتصف الصفحة طوله حوالي 7 سنتيمتر ، فعليه ، اعمل هذا الشعار بهذه المقاسات ، يعني مو تجيبها من السكانر بدقة 1200x1200 dpi ثم تضعها في التقرير مباشرة دون تعديل 😱 2. نعم يوجد كود لإستيراد الصفحة من من ملف pdf وتحويلها الى صورة (انا استعمل برنامج www.irfanview.net ليقوم به برمجيا عن طريق command line ) ، ولكن الموضوع سيكون اصعب.

سيدي الفاضل ، موضوعك جدا سهل ، ولو انك من البداية ارفقت ملف الـ pdf لحصلت على الجواب من زمان 🙂 انت لست بحاجة الى ملف pdf ، وانما بحاجة الى قالب المسميات ، حتى تضع البيانات في مكانها. 1. حولت ملف pdf الى صورة ، وارفقتها كخلفية للتقرير ، 2. اعدت ترتيب الحقول لمكانها الصحيح حسب الخلفية ، 3. الافضل حذف الخلفية (حتى يصبح البرنامج خفيفا) ، ولكن قبل الحذف ، اعمل مربعات تسمية لكل التسميات التي بالازرق ، وقد عملت لك نموذجا "شهادة عمل" ، فقم بنسخه وعمل بقية التسميات ، ووضعها في مكانها الصحيح. والان يمكنك تصدير التقرير كملف pdf . والنتيجة: DD1Testdb2025.mdb

وعليكم السلام اضف مربع النص هذا (تقدر تعمله مخفي)، في هذا القسم: ثم في حدث عند تنسيق Report Footer اكتب هذا الكود Private Sub Report_Footer_Format(Cancel As Integer, FormatCount As Integer) On Error GoTo err_Report_Footer_Format Me.p = DLookup("Page_lettre", "tab_Page", "num_page=" & Me.Pages) Exit_Report_Footer_Format: Exit Sub err_Report_Footer_Format: MsgBox Err.Number & vbCrLf & Err.Description Resume Exit_Report_Footer_Format End Sub 1626.BASE_P.accdb ماشاءالله عليك اخوي خليفة ، حبتين البهارات اللي اضفتها اعطت نتيجة احلى 🙂

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

السلام عليكم هل هذا ملف pdf اللي تريده؟ استعنت ببرنامج اخوي خليفة 🙂 جعفر DD1Testdb2.mdb rpt_ST_Information.pdf

وعليكم السلام اخي فؤاد اذا رايت ان موضوعك صار له يومين ، وفيه قراءات ، وما فيه رد ، فمعناه: يا موضوعك صعب ، او الموضوع مبهم ، ويجب اعادة شرح المطلوب بطريقة ثانية ، واذا ممكن بمثال للمقارنة 🙂

شكرا جزيلا 🙂

اتفق مع فكرتك ، لهذا السبب قلت: https://emojis.wiki/telegram/

الحمدلله اخوي عبداللطيف ، بس ياريت تشاركنا الحل حتى نعرف وين كان الخطأ في الحلول المقترحة 🙂

اخوي ابوخليل قصدك صاحب الموضوع لازم يخبرنا سبب طلبه ، ومن ثم ممكن نتوصل الى افكار اخرى 🙂

اخوي ابو احمد شكرا جزيلا لك على هذا التحليل ، ولكن عندي اضافة : فكرة تحديث جميع البيانات الى 0 كانت بسبب فكرة اخونا الشايب ، ولكن للاختيار بين السجلات ، فيجب ان يكون عندنا كود محلي ، اي بمعنى آخر ، يجب عمل كود لتحديث الكل في اول اختيار ، ومنها فيجب ان يكون هناك كود آخر للتنقل العادي. اخوي ابو عارف: CurrentDb.Execute تعمل مع الاصدارات القديمة للاكسس ، ولكن مشكلتها انها لا تعطيك رسالة الخطأ (اذا كان فيه خطأ) ، فتعتقد انها لا تعمل!! والخطأ الذي حدث لمعظم الاكواد اعلاه ، هو في تحديث سجل مقفل (السجل الذي عليه حقل y_n الحالي). و كود "Do While Rc > 0" يكون جدا بطيء في العمل على سجلات التجربة بمئات الألاف او اكثر. واعتقد بهذه النتائج ، اصبح لدى اخونا abofayez1 عدة خيارات يختار منها ما يناسبه. ويا ابو احمد ، اذا لقيت صورتي في بريدك ، فمو شرط معناه اني زعلان من ان كودي طلع الثاني في اختباراتك جعفر

بسبب تقارب طرق الكود ، تم الاستعانه بـ 300,000 سجل ، ووضع البيانات على كمبيوتر آخر على الشبكة ، وللأسف كود ابو عارف ما اشتغل بالطريقة الصحيحة ، فلم اجربه. الثلاث مرات الاولى ، اشغل الاستعلام ليعمل حوالي 40,000 صح ، ثم اغير في النموذج ، والثلاث مرات التالية ، هي وانا في النموذج ، اختار سجل واعمله صح. والنتيجة بالثواني +----------------+----------------+----------------+ | AbuuAhmed | jjafferr_2 | ابو جودي | +================+================+================+ | 4.43701171875 | 4.421875 | 4.828125 | +----------------+----------------+----------------+ | 4.468994140625 | 4.406005859375 | 4.110107421875 | +----------------+----------------+----------------+ | 4.468017578125 | 4.406005859375 | 4.31201171875 | +----------------+----------------+----------------+ | 0.546875 | 0.468994140625 | 4.31201171875 | +----------------+----------------+----------------+ | 0.531005859375 | 0.468994140625 | 4.31298828125 | +----------------+----------------+----------------+ | 0.546875 | 0.468994140625 | 3.984130859375 | +----------------+----------------+----------------+ جعفر تم الاستعانه بالموقع التالي لعمل الجدول: https://www.tablesgenerator.com/text_tables 1624.Stress_Test.mdb.zip

فكرة جيدة ، ولكن لوسمحت ارفع السقف الى 50000 سجل او اكثر ، حتى نرى الفارق بسهولة 🙂

مافي داعي لهذه الجزئية ، فالكود يعمل بدونها ، إلا اذا فيه شيء تحب تخبرنا عنه 🙂 وطبعا Me.Refresh = DoCmd.RunCommand acCmdSaveRecord = If Me.Dirty Then Me.Dirty = False واذ تحب تخبرنا عن الخدعة 🙂

الله يسلمك ، الموضوعين يعطوك ملف الاكسل بشكل استعلام محلي في الاكسس ، ومنها تقدر تعمل اللي تريد

السلام عليكم لا ما خلص الموضوع تذكرون لما قلت: . انزلت قاعدة بيانات التجربة: واستعملت 9,999 سجل فقط ، واضفت جميع الاجابات في هذا الموضوع: . ارجو من اللي يريد يشارك ويعدل الكود حقه ان : 1. يشغل الاستعلام qry_Half_y_n_True واللي يختار حوالي 5000 سجل ويعملهم صح ، 2. يشغل نموذجه ويشوف سرعته ، ويقارنه مع سرعة النماذج الاخرى. طبعا انا كان عندي وقتي من الصبح ، واضفت النموذج الثاني حقي ، وهو الاسرع (مثل ما يقول المثل: مَحَّد يقول دِبْسي حامِض ) جعفر 1624.Stress_Test.mdb.zip