كل الانشطه

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

وعليكم السلام الاخ صالح حمادي @صالح حمادي هو صاحب الشريط 🙂 انا عندي عادة مو حلوة ، الشيء/الموضوع اللي ما مقتنع فيه ، ما اشارك فيه ، ولا اعدل عليه ، والطلب في هذا الموضوع كان تحويل الكود حتى يعمل على النواتين 32-64 بت ، فلهذا السبب اجبت عليه. 1 و 2 و 3. هناك طريقة اخرى سأعرضها قريبا ، هي بديل لهذا الشريط ، ولن تصادف بها هذه النقاط ، 4. اعتقد يمكن عرض اجمالي عدد الصفحات ، والذي موجود في Pages . 5. معلومة ان الماكرو اسهل وانجز غير صحيحة ، الماكرو اصعب في البرمجة من VBA ، وكذلك لا يحتوي على كل شيء ، وفي بعض الاحيان تضطر الى مناداة دوال من VBA للقيام بالعمل ،

وعليكم السلام ورحمة الله وبركاته اخي الكريم mohahje اهلا وسهلا بك في المنتدى ،ومع ان عضويتك قديمة ، ولكن هذه اول مشاركة لك. شكرا جزيلا على المشاركة ، وهي مشاركة موفقة ، واذا تسمح لي بطلب تعديل: 1. رجاء اعمل الخلفية بيضاء ، واللون الامامي اسود لوسمحت ، فبعض الصور لم اتمكن من قراءتها. 2. وبعدها بتأمل في عمل على الاقل Code128 كذلك. شكرا جزيلا

طيب انت لديك في النموذج هذا الكود خلف زر وظيفته التحكم بالتعديل من عدمه : Private Sub أمر85_Click() If MsgBox("هـــــل تريــــد تحرير السجل الحالي ؟ ", vbInformation + vbYesNo + vbMsgBoxRight + 256, "تنبيـــــه") = vbYes Then AllowEdits = True DoCmd.CancelEvent Else AllowEdits = False End If End Sub لو اضفت اليه خاصية الاضافة لأصبح التحكم بيدك Private Sub أمر85_Click() If MsgBox("هـــــل تريــــد تحرير السجل الحالي ؟ ", vbInformation + vbYesNo + vbMsgBoxRight + 256, "تنبيـــــه") = vbYes Then AllowEdits = True AllowAdditions = True DoCmd.CancelEvent Else AllowEdits = False AllowAdditions = False End If End Sub

شكرا للخبراء الافاضل على المساعدة فى اعادة الحياة لشريط الطباعة خالص الشكر عيد اضحى مبارك كل عام وانتم بخير

مشاركةً مع استاذي @ابوخليل تفضل استاذ @al.sheen2000 مرفقك بعد التعديل حسب مافهمت .ووافني بالرد. كود التنقل-1.mdb

هذا الخيار يقفل الاضافة نهائيا انا اريد التعديل على الكود الموجود في ازرار التنقل بحيث ينتقل بين السجلات ولا يضيف سجل جديد

التشاؤم قد يكون سبباً في جعلنا نهز الشوك في وروده لشم عبيره في لحظة من اللحظات 😅 أتمنى أن نجد التفاعل الذي نتمناه جميعاً

السلام عليكم كامل احترامي وتقديري لكم جميعا وكل عام وانتم بخير بعد محاولات كثيرة وبالاستعانة بالذكاء الاصطناعي اليكم تعديل للدالة حيث انها تقوم بإنشاء صورة واحدة فقط بجانب قاعدة البيانات من النوع bmp وكذلك ملف قاعدة البيانات لا يستعين باي ملف او برنامج خارجي لعمل الباركود فقط لم استطع التحكم بالألوان وهذا عليكم يا عباقرة الاكسس الاجلاء. أتمنى ان ينال اعجابكم انظر التالي: بما أن جميع حيل الرسم المباشر (أوامر Line) تفشل مع وجود خلفية، سننتقل إلى الحل الاحترافي الجذري والنهائي الذي تستخدمه الشركات البرمجية في تقارير أكسس: توليد الباركود كملف صورة حقيقي (BMP) على القرص الصلب مؤقتاً، ثم شحن هذه الصورة داخل إطار الصورة تلقائياً لكل موظف. هذه الطريقة تتميز بـ: ثبات مطلق: الباركود لن يختفي أبداً لأن أكسس يتعامل مع صورة حقيقية مخزنة. الترتيب الطبقي ممتاز: تظهر الصورة فوق خلفية البطاقة دائماً وبأعلى دقة. إليك الكود الجديد بالكامل وطريقة تركيبه (لقد قمت بتحويل الكود الخاص بك ليقوم بحفظ مصفوفة الباركود في ملف بدلاً من رسمها بالخطوط): QR_barcode_New3.rar

الى الاساتذة نظرة بعين واحدة بس

ما دمنا متفاهمين انا ما كتبت الشرح ، يا الله في المرات القادمة ان شاء الله 🙂

بعد اذن استاذي @jjafferr تفضل د / @jo_2010 مرفقك بعد التعديل . ووافني بالرد . Very strong printing ribbon - Jo.rar

مقترح الاستاذ منتصر الانسي @منتصر الانسي ممتاز جدا و ممكن يكون فعلا بداية جيده لتطبيق هذه الاجتماعات و كذلك مقترح الاستاذ موسي @Moosak لذلك سأقوم باختيار احد الموضوعات التي سمكن لي ان اقوم بعمل مادة علمية . و لكن محتاجين ان تكون هذه المشاركات التي ستؤدي الي الاجتماعات الشهري لها طابع خاص غير المشاركات العادية لذلك أقترح على حضراتكم ان تكون مثل مشاركات التحديات - لا اعرف الكيفية و لكن البركة في حضراتكم-

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

إسمحوا لي بأن أدلو بدلوي في هذا الموضوع بحيث لن أكون متفائل كالأخ @mohammed farhat او متشائم كالأخ @Foksh وأنما أقدر أقول أكثر واقعية الآن إذا ما رجعنا للغاية التي تم من أجلها إنشاء منتديات أوفيسنا وموفع مجموعة مستخدمي أكسس نجد أن أوفيسنا حاله كحال جميع المنتديات العالمية مثل منتدى Microsoft Access Help Center لن تجده يركز على العروض التقديمية لأنه في الأساس قد أنشئ ليجد فيه المستخدم المبتدئ ضالته عندما يريد التعلم أو إيجاد حل لمشكلة تواجهه لذا فستجد أن أغلب أعضاؤه إما أشخاص يطلبون معلومات أو حلول (المبتدئين) أو أشخاص (وهم الأكثر خبرة) يحاولون قدر ما أمكنهم الإجابة على هذه التساؤلات وأغلب أعضاء المنتدى هم من الهواة أي أنهم غير دارسين للبرمجة بل تجد أغلبهم إما معلمين أو محاسبين أو إداريين أي أن تخصصاتهم العلمية هي تخصصات مالية أو إدارية وليست برمجة والأهم من كل هذا أن القائمين على المنتدى هم أشخاص يقومون بعمل تطوعي لايرجون منه إلا الثواب والاجر من الله. على الجانب الآخر فنجد أن موقع مجموعة مستخدمي أكسس هو موقع عالمي (مهمته الأساسية هي العروض التقديمية عبر النت) وهذا يعني (أن القائمين عليه يعملون بدوام جزئي أو كامل) وعالبية أعضائه (خصوصاً من يقدمون هذه العروض) هم من المطورين الذين يقومون بتطوير منتجات مايكروسوفت أو من الحاصلين على لقب MVP من مايكروسوفت لذلك ستجد أن المواضيع التي يقدمونها هي مواضيع إما أنها تختص بالتحديثات المستقبلية التي تقوم بها مايكروسوفت أو مواضيع متقدمة تهم الأشخاص الأكثر خبرة وإحترافية فلو رجعنا الى الموقع او حتى للقائمة التي ذكرها الاخ محمد ستجد أن المواضيع تناقش خارطة طريق تحديثات اكسس أو إستخدام الذكاء الصناعي مع اكسس أو ربط أكسس مع SQL Server... إلخ لذلك عندما نجد أن هناك مبادرات مثل هذه المبادرة أو مثل مبادرة الأخ @Moosak فيجب علينا تشجيعها ودعمها ولكن في نفس الوقت لانتوقع أن يتم التفاعل من جميع الأعضاء فهناك من سيكون غير متفرغاً في وقت العرض ومنهم من لن يكون مهتم بموضوع العرض وعدد لابأس منهم لن يستوعبوا الموضوع لأن مستواه أعلى من إمكانياتهم .... وغيرها من الأسباب ولكن في الأخير (وهذه أهم نقطة يجب التركيز عليها) سنكون قد ربحنا مادة علمية ستكون مرجعاً هاماً وباللغة العربية لكل باحث يريد أن يتعلم أكسس . خلاصة القول والذي أريد إيصاله أنه يمكننا البدء بإنشاء آلية عمل تشبه التحديات الشهرية ولكن بطريقة عكسية فبدل أن يتم ترشيح المواضيع سيقوم كل من يجد نفسه قادراً على إعداد مادة علمية لموضوع معين (أو أكثر) بإنشاء منشور للإعلان عن هذا الموضوع والتاريخ والوقت الذي سيتم فيه العرض وعلى كل من يجد في نفسه الرغبة المشاركة في الحضور أن يبدي رغبته عن طريق الرد على هذا المنشور وإذا رأى صاحب المنشور أنه قد حصل على العدد الكافي يقوم بتأكيد الموعد وطريقة المشاركة مالم فيتم إغلاقه وبهذا يوفر على نفسه التعب والإحباط .

بعد تعديل استاذنا @jjafferr هل يوجد مشاكل ؟؟؟؟؟

كان البرنامج يعمل بكامل تمكانياتة علي اوفيس ٣٢بت وتكن تظدما غيرت لاوفيس ٦٤ ظهرت كل هذة اتمشاكل و

هل تريد النسخة المحسنة كما بالعرض . ؟؟؟؟

للعلم ، هكذا كان مرفقك اساسا. الآن تم عمل التعديل ، وتم تغيير المرفق في مشاركتي السابقة

استاذنا الكبير / jjafferr كان لى كثير من الاهتمام بشريط طباعة و لكن ما يبهرنى اهتمامك و سرعة الرد حاولت ان اضيف اكثر من تقرير على نفس النموذج الرئيسى بتطبيقك و لكن وجدت ان :- 1-التقرير المضاف R_1 بيتم فتح شريط اكسيس للمعاينة قبل الطباعة !!!!!!! 2- عند استعمال ازرار التنقل بيتم تحريك صفحة التقرير لدرجة اختفاء جزء كبير جدا !!!!!!! 3- عند استعمال ازرار التنقل بيختفى نموذج prin ثم يظهر مرة اخرى !!!!!! 4- هل فى الامكان تصميم مربع نص يعرض رقم التقرير الحالى على اجمالى عدد صفحاتة !!!!!! 5- التعامل على الماكرو لم يسبق لى التعامل علية بالرغم من ان الجميع بيعتبرة اسهل و انجز . هل فى امكان تحويلة الى كود VBA هذا طموحى و لن اجرؤ ان تكون ملاحظات على استاذ له قيمة و قامة اشكرك على سعة صدرك مع خالص الشكر و التقدير .شريط طباعة -2-.rar

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

تفضل يا سيدي 1650.شريط طباعة قوى جدا_32-64بت.accdb

الخبراء الاعزاء الافاضل كل عام وانتم بخير عيد اضحى سعيد على كل اعضاء المنتدى الرائع عندى شريظ طباعة اكثر من رائع وجدتة على المنتدى من فترة وكان يعمل بصورة جيدة فى اوفيس 32 بت وعند التغيير الى اوفيس 64 بت توقف عن العمل ارجو المساعدة فى عودتة الى العمل مرة اخرى لكم الشكر اليكم القاعدة والصورة بها المشكلة التى تواجهنى شريط طباعة قوى جدا.accdb

أنا أقول : 🙂 أخي محمد @mohammed farhat دامك متحمس .. خذ بزمام الأمور وتبنى أنت الفكرة .. وتوكل على الله .. 😊🖐️ ربما تكون تجاربنا السابقة لها ضروفها الخاصة .. لذلك قد أنت سفينتك وعش التجربة .. 🙂👌