منتصر الانسي

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

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

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

انا لم الاحظ أن هناك فرق قد يكون حجم البيانات عندك كبير مما يؤدي إلى ملاحظة هذا التأخير هناك خاصية مهمة يفضل إضافتها إلى الحقول التي يتم البحث عن بيانتها بكثرة وهي خاصية الفهرسة (في أكسس إسمها مفهرس أو Indexed) بالطريقة الموضحة بالصورة التالية الخيار المحدد هنا هو نعم مع السماح بتكرار نفس الإسم أكثر من مرة وإذا كنت متأكداً من عدم تكرار الإسم يمكن إختيار نعم بدون تكرار وهذا سيكون طبقة حماية إضافية حتى لايتم تكرار الأسماء الآن بعد أن تقوم بتعيين هذه الخاصية جرب عملية البحث هل ستكون أسرع؟ في حالتك هذه يفضل أن يكون النموذج الذي تبحث فيه إما نموذج فرعي أو نموذج مستقل عن نموذج البحث (النموذج الذي يتم إدخال نص البحث فيه) وهذا بسبب أنه يتم تنفيذ تحديث أو Requery للنموذج أثناء إدخال نص البحث ولكن لو كان البحث يتم بعد إدخال النص كاملاً فلن تكون هناك مشكلة عموما جرب تطبيق خاصية الفهرسة على المثال السابق وشوف النتيجة هل سيتحسن الأداء أم لا ومن ثم نشوف حل للطريقة الثانية التي قلت عليها (أن يكون نفس النموذج) تحياتي

حاضر سأوضح لك ماكنت أقصده الخطأ كان يحدث في هذا السطر DoCmd.GoToControl [haqel] والذي معناه أن يتم إنتقال التركيز إلى عنصر التحكم الذي أسمه محدد في مربع التحرير والسرد [haqel] لذا لو رجعنا لمربع التحرير والسرد هذا سنجده يحتوي على أسماء عناصر التحكم باللغة الإنجليزية كما بالصورة ولكن أسماء عناصر التحكم لديك أسمائها باللغة العربية كما بالصورة (للتوضيح ليست المشكلة بأنها بالعربي انما بعدم تطابقها مع الإسم المحدد في مربع التحرير والسرد) لذلك فإن الحل هو بتعديل مسميات عناصر النحكم لتطابق المسميات الواردة في مربع التحرير والسرد (كمثال حقل الرقم يصبح كما بالصورة) ويتم التعديل لبقية الحقول بنفس الطريقة أرجو أن أكون قد وضحت طريقة الحل التي قصدتها تحياتي

تفضل الملف بعد التعديل saad.accdb