منتصر الانسي

أعاده الله علينا وعليكم وجميع المسلمين بالخير واليمن والبركات وماحاجتك إلى تكبير الصورة الخارجية ؟؟؟ هذه هي الأبعاد التقريبية للبطاقة 8×5 سم كذلك فأن قراءة الباركود من بطاقة مطبوعة يختلف عن القراءة من الشاشة حيث أنك تقوم بتقريبها إلى جوار قارئ الباركود ولكن إذا قمنا بتكبير الصورة الخاصة بالكود ستغطي على البيانات فمثلا قمت بتعديل أبعاد الصورة الخاصة بالـ QRCode لتصبح 2×2 سم وهذه كانت النتيجة عموما بإمكانك أنت تعديل أبعاد الصورة حسب رغبتك تحياتي

بعد إذن الاخ @mohahje قمت (وبإلاستعانة بالذكاء الصناعي أكيد 😅) بتعديل الكود للحصول على الـ QRCode بلون أسود وخلفية بيضاء كذلك وتنفيذاً لطلب الاخ @jjafferr تم إضافة الكود الخاص بتنفيذ نفس العملية ولكن للحصول على Code128 ارفق لكم ثلاثة ملفات أكسس كالتالي 1 - الملف QR_barcode SubReport يتم فيه تطبيق الحل الخاص بالاخ @jjafferr بإستخدام التقارير الفرعية 2 - الملف QR_barcode Transparent يتم فيه تطبيق الحل الخاص بالاخ @jjafferr بإستخدام الصورة الشفافة 3 - الملف QR_barcode Bmp Images يتم فيه تطبيق الكود الخاص بالأخ @mohahje تم تطبيق الحلول الثلاثة على نفس صورة الخلفية حتى يتم تجربة كل الحلول في نفس الظروف ومقارنتها من حيث سرعة الأداء وتضخم حجم قاعدة البيانات عند زيادة حجم البيانات ارجو من الجميع تجربة الثلاثة ملفات وإبداء أي ملاحظات للتوصل إلى أفضل حل تحياتي BarcodesReports.rar

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

اهااا هذا شيئ مختلف أنا كنت أتحدث من الناحية الفنية البحته ولكن في النهاية آلية العمل هي التي تفرض نفسها

ياخي العزيز هذا لاشيئ مما عندكم 😅

بصراحة أنا رأيي مختلف فالطريقة الثانية سيكون التقرير فيها أخف لأنها لن تتطلب منك إنشاء تقرير إضافي وإضافة عنصر تحكم التقرير الفرعي هذا مثال لسيناريو محتمل سنفترض أن المطلوب تصميم تطبيق لإصدار البطائق وفق التصميم التالي عندها سنطلب ممن قام بتصميمها بإن يجعل منطقة الـ QRCode شفافة أو تحديدها كمربع 2×2 سم مثلا (للعلم انا قمت بهذه العملية بطريقة بدائية بإستخدام تطبيق Photos التابع لويندوز وستكون النتيجة أفضل إذا قام بها محترف فوتوشوب) قمت بإستخدام الصورة المعدلة فحصلت على النتيجة التالية ومرفق لكم المثال بعد التعديل تحياتي QR_barcode_New2.rar

هههه بالعكس هذه تعتبر محاولة فاشلة بإستخدام تطبيق Photos التابع لنظام ويندوز ولكن محترفي الفوتوشوب يستطيعون تنفيذ ألعمل بإحترافية أكبر انا كان كل غرضي إني أوضح الفكرة ليس إلا 😅

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

اعتقد أني قد وجدت طريقتين لإظهار الرسم فوق الصورة - الطريقة الأولى هي أن يتم الرسم في تقرير فرعي - الطريقة الثانية هي بأن نجعل منطقة رسم الكود في الصورة شفافة مرفق لكم المثال الذي يوضح ما أقصده تحياتي QR_barcode_New.rar

اعتقد ان الاخ @jjafferr سيرد على هذا التساؤل غالبا مايكون السبب مرتبط بالويندوز ولكن لتعرف السبب بشكل أكيد جرب احد الحلين التاليين - إما تشغيل اوفيس 2016 أو 2019 في نفس البيئة التي يعمل فيها اوفيس 2024 (نفس إصدار ونفس الإعدادات الإقليمية ولغة الواجهة للويندوز) - أو تشغيل اوفيس 2024 في نفس البيئة الخاصة بأوفيس 2019 في الحالتين إذا تغيرت النتيجة سيكون السبب مرتبط بويندوز وإذا ظهرت نفس النتيجة السبب مرتبط بالأوفيس واذا اردت فيمكنك أن تعطينا إسم هذه الخطوط لنقوم بتحميلها وتجربتها ومساعدتك في معرفة السبب الاكيد تحياتي

ولكن هذه المشكلة لا تظهر لدى الجميع فأنا عندي يظهر العنوان ناحية اليسار في النموذجين

إسمحوا لي مخالفتكم الرأي فقد قمت بعملية بحث لكلمتي (استيراد أكسل) وقد ظهرت لي 15 نتيجة فقط كما بالصورة التالية والسبب في ذلك أني قمت بتحديد خيارات البحث المتقدم (التي يشير لها السهم بالصورة) وكما هو موضح بالصورة التالية سنجد أني قمت بتحديد خيار نوع المحتوى ليتم البحث في المواضيع فقط وخيار (ابحث عن النتائج في .... ) للبحث في عناوين المواضيع فقط والخيار المهم (ابحث عن النتائج التي تحوي ...) ومنه يمكن تحديد خيار (كل كلمات البحث) والتي تعادل عبارة Where التالية "استيراد" And "اكسل" والخيار (أي من كلمات البحث) وتعادل عبارة Where التالية "استيراد" Or "اكسل" ولكن تتبقى نقطة ياريت يتم وضع حل لها وهي تجاهل الهمزة والتاء المربوطة تحياتي

انا قلت بمعنى يمكن إستخدامه من داخل أي تطبيق موجود على الجهاز دون الحاجة لأن يكون الملف إلى جوار هذا التطبيق اما طريقة تعميمه على النماذج فهو بتطبيق التلميح وفيما يخص سؤالك فقد قام الأخ @jjafferr مشكورا بالرد عليه رداً كافياً ووافياً تحياتي

ماذا تقصد أستاذ فادي ؟

بعد إذن أخي @Foksh أعتقد أن لدى الأخ @أحمد العيسى لبس بسيط فبحسب كلامه هذا فأنه يعتقد أن إختيار عدد السجلات هو شرط من شروط عمل الأداة وهذا غير صحيح فالغرض من تحديد السجلات كان لتوضيح الفكرة للأعضاء كيف سيكون شكل التقرير إذا كان عدد السجلات أقل من صفحة أو مساويا لها أو أكبر ولكن في الواقع العملي هذا لايصح أعتقد لو إطلعت على التحديث الخاص بهذا الموضوع فستتعرف على عمل هذه الأداة بشكل أفضل هذا مايخص أولا أما مايخص ثانيا فالمشكلة تظهر عندك ولم تظهر عندي لذلك فإنها ستكون غالبا مرتبطة بإعدادات الصفحة من حيث حجم الورقة أو الهوامش أو كليهما ففي المثال كنت قد صممت التقرير على صفحة A4 والهوامش 5 ملم (أي نصف سم) وأغلب الظن أن حجم الورق عندك سيكون Letter/ANSI A أو الهوامش أكبر من 5 ملم أو كليهما فأرجو التأكد تحياتي

كما يقول المثل (تاهت ولقيناها) بإستخدام المثال الخاص بالأخ @jjafferr قمت بتعديل الحل كما ستجد في المرفق لاحظ أنه عند فتح المجلد ستجد أنه لايحتوي إلا على التطبيق قم بفتحه وتجربة إيقاف العجلة ستجده يعمل بشكل صحيح وعند إغلاق التطبيق لن يكون هناك أي ملف إلى جواره أعتقد بهذه الطريقة لن يلاحظ المستخدم أي شيئ إيقاف عجلة الماوس.rar

اخي الكريم الان الحل قائم أساساً على الملف MouseHook.dll والذي يجب أن يكون موجود على القرص الصلب والحقيقة أني أستغرب من تخوفك هذا فأغلب من كانوا يستخدمون أكسس 2003 (وانا منهم) كانوا يستخدمون هذا الملف بدون أي مشاكل عموما لو اردنا تطبيق الحل الذي تطلبه أي بإستخدام الجداول فسيكون ذلك ممكناً عبر إضافة هذا الملف إلى حقل من نوع مرفقات داخل جدول بحيث يتم إستخراجه عند فتح التطبيق وحذفه عند إغلاقه ولكن في اكسس 2003 لا يوجد هذا النوع من الحقول فقد ظهر إبتداءً من اكسس 2010 على ما اعتقد وأذا قمنا بتنصيب أوفيس 2010 أو أحدث فلن نكون بحاجة لهذا الحل أصلاً لأنه تم معالجة المشكلة فيها (وكأنها حلقة مفرغة 😅) سيكون أفضل حل لك هو تنصيب اوفيس حديث ولن تحتاج إلى أي أكواد

الم يعجبك هذا الحل ؟؟ بهذه الطريقة ستحصل على ميزتين الأولى أن ملف MouseHook.dll سيكون بعيداً عن أنظار المستخدمين والميزة الثانية أنه يمكنك إستخدام كود إيقاف العجلة في أي تطبيق على مستوى الجهاز

يمكنك كذلك نسخه الى المجلد System32 داخل مجلد Windows

ماقبل 2007 كان بالامكان التنقل بين السجلات بإستخدام عجلة الماوس وفي الإصدارات الحديثة تم معالجة هذه المشكلة ولم تعد موجودة

يبدو أنك مازلت تستخدم أوفيس 2003 أو نسخة أقدم لأن هذه المشكلة لم تعد موجودة منذ أوفيس 2007 يوجد حل بسيط وهو تشغيل التطبيق في أكسس 2007 أو إصدار أحدث أما لو كنت مضطراً للعمل مع أوفيس 2003 فيمكنك تجربة الحل الموجود في المرفقات وسيكون المطلوب منك مايلي 1- نسخ الملف MouseHook.dll إلى نفس المجلد الخاص بتطبيقك 2- إستيراد الوحدة النمطية mdlMouseHook إلى التطبيق الخاص بك 3- في حدث عند التحميل (OnLoad) للنموذج الذي تريد توقيف عجلة الماوس فيه إنسخ السطرين التاليين Dim blRet As Boolean blRet = MouseWheelOFF(True) وفي حدث الإغلاق (OnClose) إنسخ السطرين التاليين Dim blRet As Boolean blRet = MouseWheelON() تلميح : إذا أردت إيقاف عمل عجلة الماوس في جميع نماذج التطبيق الخاص بك يمكنك تشغيل الكود الأول عند فتح أول نموذج في التطبيق والكود الثاني عند إغلاق آخر نموذج ستجد في الملف المرفق مثال يحتوي نموذجين واحد يتم التنقل خلال سجلاته بالعجلة والاخر تم توقيف عملها أرجو منك التأكد من عمل الكود أولاً تحياتي إيقاف عجلة الماوس.rar

لم أعرف أي التقريرين تريد تطبيق طلبك عليه ولكني رأيت أن تقرير (مناداة قديم) هو الاقرب فقمت بتنفيذ الحل فيه ارجو أن يكون هذا الحل هو ماتريده بالضبط تحياتي 111.rar

لدينا مثل في اليمن يقول (المليح يبطي 😁) وهذا كان نتاج عملك المليح كله راااائع أستاذ @Moosak إبدااااع بمعنى الكلمة وسأعتمد عليه من الان وصاعداً إن شاء الله لا ألومك والله فقد وقعت في نفس الحيرة ولكنك كنت أكثر عزيمة مني وأنهيته 😅 تحياتي

يوجد لطلبك حلين الأول حل بسيط وهو مجرد مضاعفة إرتفاع الصف ليشغل كل صف مكان صفين الحل الثاني برمجي ويعتمد على قيمة مربع النص (م) أي المسلسل بحيث يتم فرض صفحة جديدة عندما تكون قيمة المسلسل يقبل القسمة على 10 بدون باقي ملاحظة إضافية الحل الذي كان موجود في مثالك فيه مشكلتين الأولى أنه يقوم بإخفاء السجلات التي بعد السجل العاشر ولا يقوم بنقلها إلى الصفخات التالية والمشكلة الثانية تخص اللغة فيبدو أنك نسخت الكود من مثال من نسخة اوفيس انجليزية والملف المرفق تم إنشاؤه في أوفيس نسخة عربية لذلك فالكود التالي مثلاً Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer) ' زيادة العداد بمقدار 1 لكل سجل intRecordCount = intRecordCount + 1 ' تغيير الرقم 10 إلى أي عدد تريده (20، 50، 100...) If intRecordCount > 10 Then ' ?? غير هذا الرقم حسب حاجتك ' إلغاء طباعة هذا السجل وما بعده Cancel = True End If End Sub يجب أن يكون بهذا الشكل Private Sub تفصيل_Format(Cancel As Integer, FormatCount As Integer) ' زيادة العداد بمقدار 1 لكل سجل intRecordCount = intRecordCount + 1 ' تغيير الرقم 10 إلى أي عدد تريده (20، 50، 100...) If intRecordCount > 10 Then ' ?? غير هذا الرقم حسب حاجتك ' إلغاء طباعة هذا السجل وما بعده Cancel = True End If End Sub لاحظ إسم المقطع (Detail سيصبح تفصيل) وهذه الملاحظة جانبية حبيت أضيفها لتنبيهك فقد تقوم بالإستفادة من أكواد أخرى مشابهة لهذا وعند تجربتها تجدها لا تعمل فتظن أن الكود غير صحيح والسبب لايكون منه تحياتي New Microsoft Access Database.accdb

جرب التعديل المرفق db3.mdb