jjafferr

السلام عليكم 🙂 مجموعة ملاحظات لوسمحتوا 🙂 ورجاء فكروا ان الجدول به 20 الف سجل فما فوق 🙂 1. لسرعة عمل الاستعلام ، فيجب ان يكون الحقل الذي به معيار ، مفهرس ، وإلا فالاستعلام سيكون بطيء ، وحقل المحسوب لا يمكن عمل فهرسه له ، 2. بالنسبة الى طريقة عمل تنسيق التاريخ ، والتي يجب ان لا تتغير بتغير اعدادات كمبيوتر العميل ، هذه الطريقة مضمونه بأنها تعمل على جميع الاعدادات: . 3. الامر DCount بطيء بطبيعته ، لذلك يمكنك ان تعمل استعلام آخر للـ Table2 Query ، يكون استعلام مجاميع ، ينفذ المطلوب بدل امر Dcount ، ثم تربط هذا الاستعلام بالاستعلام الذي انت فيه ، وتأذخذ القيمة المطلوبة من استعلام المجاميع (نعم تصير ، وخذ وقتك ، فأحد اصدقائي ارسل لي برنامجه اللي فيه حوالي 100 الف سجل ، والاستعلام كان يحتاج وقت تناول وجبة العشاء !! ، وعملت التعديل اللي اخبرتك ، واصبح الوقت جدا قليل 🙂 ) 4. الامر DCount بطيء بطبيعته ، اذا كلً ولابد ، فيمكنك جعله اسرع هكذا : بدل =DCount("[ID]";"[Table2 Query]";"[Date2]=#" & Format([Date2],"yyyy/mm/dd") & "#") استعمل =DCount("*";"[Table2 Query]";"[Date2]=#" & Format([Date2],"yyyy/mm/dd") & "#") جعفر

وعليكم السلام 🙂 طريقتين يجون في بالي: 1. بدل ان يكون السجل سطر واحد ، اعمله سطرين ، بحيت يكون حقلين او حتى 3 حقول فوق بعضها ، ونجاح هذه الفكرة يعتمد على ترتيب الحقول بطريقة منطقية ، وبتنسيق الجميل 🙂 2. نفس الرقم 1 ، ولكن ، تجعل الحقول الصغيرة فوق بعضعها ، وتمدد الحقول الاطول بحيث يأخذ مكان حقلين بالطول ، 3. تصدر البيانات الى الاكسل ، وتعمل لها تضبيط لطباعتها في صفحة واحجة ، وذنبه على جنبه ، فهو وحظه كم يصير حجم الخط !! نعم قلت طريقتين ، لأن الطريقة الثالثه بس هيك 🙂 جعفر

وعليكم السلام 🙂 في الوقت اللي نقول فيه ان الاكسس ممكن يعمل كل شيء (تقريبا) ، يجينا مثل هذا السؤال ، ونقف محتارين في الجواب !! الكلام عن انواع معينه من المرفقات فقط ، مثل (PDF او Word او صورة او Excel او .. ) المشكلة: لما تطبع اي شيء ، فالامر بين امر الطباعة و الطابعة ، يعني الاكسس يعطي الامر فقط ، الحل: 1. اما ان نضع الملف في تقرير في الاكسس ، ومنه نقدر ان نضع حقل نص فوقه ، فيه البيانات المطلوبة ، وهذا ممكن مع بعض الصيغ اعلاه: الصور وملفات PDF يمكن عرضها مباشرة في الاكسس ، وهذه طريقة : . ملفات الورد ، فقد ابدع اخونا @ابوخليل بعرض مجموعة امثلة هنا ، وفي اعتقادي بأن الاكسل ممكن فتحة باحد هذه الطرق كذلك . 2. ان ندرج هذا الملف في ملف HTML (برمجيا من الاكسس) ، وفي هذا الملف ممكن ان نضيف اي معلومة اضافية ، والبارع في هذا المجال هو اخونا @أبو إبراهيم الغامدي وطبعا اخونا @رمهان 🙂 3. ان نحصل على برنامج يطبع الى طابعة PDF افتراضية (virtual printer) ، وتكون هذه الميزة موجودة فيه ، وطبعا لازم ان هذه الطابعة يمكن التحكم فيها عن طريق Commandline ، 4. هناك شيء اسمه Water mark ، وعادة موجود في جميع الطابعات ، ولابد ان هناك طابعات تمكنك من تغيير الكلمه الى الكلمة التي تريدها ، ولكن قد لا تستطيع تغيير هذه الكلمة برمجيا ، وتظل ثابته . واكيد اكون ناسي طرق اخرى جعفر

مو انا ما اعرف كم نوع من انواع الباركودات بتعمل لكل موظف فإذا اردت ، تقدر تستعمل رقم لكل باركود ، مثل ما انت قلت ، هكذا: الاول Output_File = Chr(34) & Application.CurrentProject.Path & "\Data\QR_images\1_" & Me.ID & Chr(34) والثاني Output_File = Chr(34) & Application.CurrentProject.Path & "\Data\QR_images\2_" & Me.ID & Chr(34) جعفر

وعليكم السلام 🙂 هذا سطر حفظ الملف (انا اعطيت صورة كل نوع من الباركود اسم مختلف) ، واسم الصورة هنا QR_code.png : Output_File = Chr(34) & Application.CurrentProject.Path & "\Data\QR_images\" & "QR_code.png" & Chr(34) اذا اردت حفظ الصورة برقم ID الموظف ، سيكون الكود: Output_File = Chr(34) & Application.CurrentProject.Path & "\Data\QR_images\" & Me.ID & Chr(34) بس مثل ما انا قلت في البداية ، واقعا ما تحتاج الى صورة لكل موظف ، لأنك تحتاج تطبع الهوية والسلام ، فمافي داعي لحفظ الصورة ، وخصوصا اذا عملت تغيير في البيانات ، فالصورة القديمة لن تنفعك ، بينما طباعة هوية جديدة تعطيك جميع البيانات الجديدة 🙂 جعفر

اخي amrdipo2003 رجاء عمل هذا التغيير على السطر الذي انت عليه: بدل If Len(BE_Path & "") = 0 Then استخدم If Len(BE_or_FE & "") = 0 Then وقد تم رفع البرنامج من جديد وفيه هذا التعديل 🙂 وشكرا لك اخي سلمان 🙂 جعفر

شكرا على التلوين الجميل 🙂 في معظم اعمالي ، اقوم بالعمل الاساسي ، واترك مجال للآخرين ان يغيروا في البرنامج ، ولكني اعطيهم طريقة العمل 🙂 وبرامجي اعملها بطريقة تكون سهل التعديل والاضافة عليها ، وسهولة الوصول الى الكود المطلوب 🙂 وفي هذا الموضوع ، ومن اول مشاركة وضعت لكم الملفات المطلوبة لتقوموا بعمل التغييرات المطلوبة : جعفر

شكرا ابو جودي 🙂

نعم ، لأنه لا يمكن معاينة اكثر من تقرير في نفس الوقت ، لهذا السبب الكود اللي اعطيتك يطبع مباشرة جعفر

وعليكم السلام 🙂 بالمعلومات اللي عندنا ، تفضل : dim rst as dao.recordset dim RC as integer dim i as integer set rst=me.recordsetclone rst.movelast:rst.movefirst:RC=rst.recordcount docmd.gotorecord,,acfirst for i=1 to RC if me.YesNoField =-1 then docmd.openreport me.ReportName end if docmd.gotorecord,,acnext next i rst.close: set rst=nothing جعفر

للاسف ، البرنامج معطوب ، فإضطررت الى استعمال احد برامج استرجاع البيانات ، وكانت النتيجة استرجاع الجداول والاستعلامات فقط. اما بقية الكائنات ، فتستطيع استيرادها من احد نسخ الاحتياط (عندك نسخ احتياط ، صح 🙂 ) جعفر 1059.Handicapés_Recovered.accdb.zip

السلام عليكم 🙂 كنت بين المطارات ، وشفت باركود خاص على تذاكر دخول الطائرة ، فقلت في نفسي ، هل ممكن نعمله !! اتضح انه من نوع PDF417 ، واذا ببرنامجنا يقوم بعمله كذلك 🙂 واضفتها على البرنامج في اول مشاركة 🙂 جعفر

وعليكم السلام 🙂 تقدر تستعمل احد برامج الضغط مثل winzip او winrar وترفقه ، وقبل ذلك ، جرب البرنامج هذا: جعفر

وعليكم السلام 🙂 الشباب هنا عملوا اكثر من طريقة جعفر

شو اسم نموذج العداد ، وشو اسم النموذج الذي تريد فتحه ، وارفق لنا الكود اعلاه بعد ان وضعته في برنامجك. ممكن الخلل في عدم وضع اسم النموذج الصحيح !! الكود يجب ان يكون: DoCmd.OpenForm "اسم النموذج الذي تريد فتحه وليس اسم نموذج العداد" : Forms![اسم نموذج العداد].Visible = False او DoCmd.OpenForm "اسم النموذج الذي تريد فتحه وليس اسم نموذج العداد" : Me.Visible = False جعفر

السلام عليكم 🙂 برنامج كاسبر سكاي المضاد للفيروسات ، اعطاني هذه الرسالة عند فتح الموقع: . لذا ، تم حذف الرابط ، وإرفاق المرفق مباشرة في المشاركة اعلاه. شكرا اخي وليد على مشاركتك🙂 جعفر

السلام عليكم 🙂 ولو ان كلامي لا يرد على السؤال ، ولكن له علاقة في السؤال 🙂 لم يتم تحديث برمجة الاكسس من زمااااااان ، يعني من الاكسس 2003 ، قصدي اوامر VBA والتي يحتاجها المبرمجين ، ولا اقصد الواجهات !! . . وحتى تحديث 64bits والذي لازلنا نعاني من مشاكله ، لا علاقة له في تطوير اكسس ، وانما للاكسل والوورد اساسا ، ومشاكله على الاكسس !! . . كان الامل ان الاكسس 2010 هو بداية لعمل الاكسس مع الانترنت ، ولهذا السبب تم عمل الماكرو المضمن ، حتى يكون الكود محصور في اوامر معينة (اما VBA عالم من البرمجة ، لذلك لم يكن في الامكان السيطرة على الاكواد فيه وترجمتها الى اكواد لصفحات الانترنت). ولكن ، تفاجأت مايكروسوفت من قوة مبرمجي الاكسس ، وتطويعهم هذه الميزة لعمل برامج للانترنت اكثر بكثير مما كانت تتوقعه ، فتم لجم هذه الميزة ، . . وياريت تقرأ ردود مبرمجي الاكسس على هذا الموضوع: https://techcommunity.microsoft.com/t5/Office-Retirement-Blog/Updating-the-Access-Services-in-SharePoint-Roadmap/ba-p/57148 وحذفها من النسخة 2019 !! . . جعفر

عيدكم مبارك وايامكم سعيدة ان شاء الله 🙂 جعفر

همممم كنت اقول ان الموضوع واسماء الحقول مو غريبه!! كنت قد عملت حل لهذا الموضوع هنا: جعفر

السلام عليكم 🙂 أخي الوزير قام بالعمليات مرتين، فلهذا السبب يأخذ برنامجه وقت لعرض النتائج ، وانا عملت تغيير في الاستعلامات فقط ، وابقيت واستعملت نفس وحدته النمطية ، ونتيجتي كانت اسرع 🙂 استعمل الاستعلام qry_Results_New 🙂 وعيدكم مبارك 🙂 جعفر 1057.Lab 2019-waz.accdb.zip

وعليكم السلام 🙂 شكرا يا شباب على رودكم 🙂 المرفق الثاني هو بصيغة mdb ، كما اشرت اليه في الموضوع 🙂 ابو جودي 🙂 علشان يكتب لك البرنامج بالعربي ، لازم تخبره بأن يستعمل: eci = 24 | Windows-1256 - Arabic ShellWait App_Name & " -o " & Output_File & " --eci=24 --scale=2 -w 10 --height=100 --barcode=58 -d " & Output_Text والمرفق فيه ملفين لتوضيح جميع الاوامر لعمل المطلوب 🙂 جعفر

السلام عليكم 🙂 للعلم 🙂 جعفر

السلام عليكم اخي وائل ، ابا جودي قام بالرد على الكثير من مواضيعك ، ولايزال ، شكرا باشمهندس محمد عصام 🙂 قوانين المنتدى تسمح بسؤال لكل موضوع ، لذلك ، رجاء ابدأ بداية جديدة بالمحافظة على قوانين المنتدى ، و لا تخلينا نبدأ فيما انتهينا عليه في حسابك السابق. جعفر

السلام عليكم :) شكرا على ردودكم ، وتمت اضافة مثال متكامل :) جعفر

بالعربي ، ومربوطة بالاكسس 🙂 جعفر