كل الانشطه

وعليكم السلام ورحمة الله وبركاته ، تحقق من أن النماذج الأخرى لها خاصية منبثق ومشروط = نعم

بخصوص هذه النقطة ، لا أعلم إن كانت صحيحة ، لأنني جربت فكرتك ولم تكن ناجحة معي سابقاً للأسف 😅 جميل جداً ما تقدمت به . لم تغب عن بالي الفكرة ، ولكني فعلاً كنت قد انشغلت باستراق فكرة التدوير من المرفق الأصلي الذي شاركه أخي جعفر 😁 . لذا جزاكم الله عنا كل خير فيما يخص هذه الفكرة ، فإن شاء الله سأقوم بالتعديل حال وصولي الى البيت .. ولكن إن كان لك أن تشاركني فأهلاً وسهلاً .

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

الأخ hegazee عندما وزعت الطلاب على اللجان وجدت أن هناك لجان لايوجد فيها توزيع لطلاب فصل وأنا أريد أن يتم توزيع جميع الطلاب على جميع اللجان والعفو منك

الآن في الرد الحالي .. الحد الاقصي: 9.77 ميجا

السلام عليكم ورحمة الله وبركاته كل عام وحضراتكم بخير حقيقة حثني الشوق الي المرور بالمنتدي بعد غيبة طالت فمررت لاعيد علي الاحبة فجذب انتباهي هذا التحدي الذي اثار فضولي ورغم قطع أخي @Foksh مجال النقاش إلا إني احببت أن ادلي بدلائي القاصرة وفكرة ربما تكون لم تطرق في مجال نقاش الموضوع من الأساتذة الكرام. الفكرة هو تحويل الكتابة من التقرير الي الكتابة علي كائن صورة - هذا الكائن المستعصي علي التعديل إلا ان المرفق الخاص بـ labins لفت الانتباه الي خاصية هامة في كائن الصورة DIB التي يمكن من خلالها حقن كائن الصورة بمجموعة من الداتا علي هيئة بايتس للرسم في اطار الصورة الفكرة كانت تحويل الخطوط المرسومة الي صورة ترسم بالذاكرة دون الحاجة الي حفظ صور خارجية ثم حقن كائن الصورة بالتقرير بالبايتس الموجودة بالذاكرة وكانت النتيجة كما يلي والمرفق بالاسفل لا ادعي انه اجتهاد محض مني ولكن هو ذلك الذكاء الاصطناعي الذي ابتلينا به او ان شئت قل هو الذي ابتلي بنا 😀 والمرفق بالاسفل ابقيت علي المودلز الاصلية والتي تم التعديل عليها اضفت اليها كلمة new قبل اسمها لتسهل عملية المقارنة وافردت مدل مستقل لرسم الصورة بالذاكرة ما استعصي علي هو ضبط ارتفاع code128 وجزاكم الله خيرا QR_barcode.accdb

وعليكم السلام ورحمة الله وبركاته جرب الان واخبرني

هذا يمكن حله بتعديل خاصية Size Mode للصورة بدل Zoom إجعلها Stretch أما فيما يخص العمل ككل فلا غبار ولكني رأيت أن فرض حفظ الصورة على المستخدمين فكرة لن يحبذها الجميع لذلك فكرت أن أعطي التطبيق مرونة أكثر ليناسب أغلب المستخدمين إن لم يكن جميعهم لذلك وبعد إذن الأخ @Foksh قمت بإضافة نموذج فيه أربعة أزرار لفتح التقرير في أربع حالات 1- فتح التقرير بدون حفظ للصور 2- حفظ الصور بدون فتح التقرير 3- فتح التقرير مع حفظ جميع الصور عند الفتح 4- فتح التقرير مع حفظ الصور بشكل فردي أثناء التنقل من وجهة نظري أن هذه هي جميع الخيارات التي قد يحتاجها أي مستخدم لذا يمكن لأي شخص الإستفادة مما جاء في التعديل لتطبيق الخيار الذي يفضله ولو كان بإمكان الأخ @Foksh إضافة هذه الخيارات كمعلمة لإختيار أحدها وتنفيذ الأمر مباشرة سيكون أفضل تحياتي QR_Barcode - 4.accdb

بارك الله فيك

الملف به معلومات ناقصة كثيرة مثل القوائم المنسدلة. فقط قمت بتعديل كود فاتورة جديدة و هو خاص بمسح البيانات في الجدول لعمل فاتورة جديدة و أيضا حفظ الملف بصيغة xlsm __فاتورة 0001.xlsm

تفضل الملف و أرجو منك إذا وجدت مرادك أن تختار المشاركة كحل توزيع الطلاب للحادي عشر.xlsm

يعني انت تريد تنظيف الأكواد من الاعتماد على Tag كلياً ؟ فقط سنقوم بإزالة الجملة الشرطية التي تختص بالـ Tag ، من المديول ModulQRCode . If level = "" Then i = InStr(LCase(Text.Tag), "qrcode") If (i > 0 And i + 5 < Len(Text.Tag)) Then level = Mid(Text.Tag, i + 6, 1) End If تم نقل الدالة الى المديول وتحويلها الى Public ، وتنظيف أكواد التقرير ، والإعتماد فقط على الاستدعاء :- Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer) Call DrawAndSaveBarcode(Me.FieldCode128, Me.ImgQR4, "Code128") Call DrawAndSaveBarcode(Me.FieldCode128, Me.ImgQR5, "Code128", True) Call DrawAndSaveBarcode(Me.FieldQRCode, Me.ImgQR2, "QR") End Sub وكملاحظة ، قمت بإضافة مربع النص PgCount داخل التقرير في Page_Footer ، والهدف منه كان لتجربة بأن يتم تصدير كافة الرموز Qr/Code128 عند فتح التقرير ، أو تستطيع الغاء مربع النص هذا وسيتم تصدير الصور داخل المجلد حسب الصفحة التي يتم فتحها فقط . المرفق بعد التعديل :- QR_Barcode - 3.accdb

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

كيف يمكن للجنة امتحانية واحدة في قاعة واحدة أن يكون بها 8 مراحل دراسية مختلفة؟ هناك اختلافات كبيرة في عدد المواد و الزمن وعمر الطلاب و بالتالي سيكون عبء على الملاحظين تخبل عند انتهاء مواد الصفوف من الرابع للسادس (عدد مواد أقل) تشغل الملاحظين في عدد كبير من لجان نصفها فارغ.بصراحة المطلوب غير منطقي. ممكن تشرح لنا

ارجو التعديل على فاتورة المكتب بعد فورمت الجهاز لاتعمل ونزلت افيس 2024 بين ما على الابتوب شغالة افيس 2016 ‏‏فاتورة 0000.xls

اخي فادي شكرا جزيلا ، وحسب طلب الموضوع ، فاعتبر مشاركتك الاخيرة تحقق جميع الطلبات ولكن وحتى تكون قاعدة بياناتك مرجع للمبرمجين ، فهناك التعديلات التالية التي اعتقد انها مهمة : 1. كثرة الاختيارات تضّيع المبرمج المبتدئ ، فالافضل اختصارها (طبعا انا اقدر اعمل التغييرات بنفسي لعملي 🙂 ) ، ومناداتها بالطريقة التقليدية (الطريقة الثانية) ، لأني وجدت ان كود الدالة لايزال يعتمد على TAG ، 2. وكذلك وضع جميع امور مجلد الصور خارج التقرير. في التقرير يكون سطر واحد (مثل الطريقة الثالثة ، او حتى وضع جميع امور مجلد الصور خارج دوال واحداث التقرير) 3. بعد عدة تجارب على النسخة السابقة يإستعمال هويات حقيقة ، وقبل نسختك الاخيرة والتي عملت فيها الصور في مجلد خارجي ، لاحظت: أ. الباركود و QR فيه مسافات اضافية بيضاء ، بينما يجب ان تكون الصورة في حجم الباركود و QR (المنطقة في اللون الاحمر اضافية) : و . ب. ولأن الخلفية بيضاء (غير شفافة) ، فعمل خلفية الكائن شفافة لا تفيد ، فالباركود يظهر في الصورة بالمسافة البيضاء الاضافية.

أخ hegazee لوسمحت ممكن تعدل ملف توزيع الطلاب وتضيف لي ثلاثة فصول ليصبح من رابع وحتى الحادي عشر بارك الله فيك

السلام عليكم ورحمة الله وبركاته .. أستاذنا الفاضل الدكتور @محمد طاهر عرفه .. كان لدي مقترح سابق لم أطرحه عندما كنت برتبة مشرف ، وهو زيادة حصة الخبراء بحجم الملفات المرفقة لتصل الى 25 ميجا بدلاً من 4.88 ميجا . ولكم جزيل الشكر إدارة المنتدى والقائمين على التطوير والتحسين ..

تفضل أخي @jjafferr .. الآن تم الدمج بحيث لديك جميع الخيارات :- القديمة عن طريق Tag . الجديدة من خلال قيمة مربع النص لكل QR أو Code128 .. حفظ الصور في المجلد QRImg بجانب قاعدة البيانات . ( وهنا سيكون لنا وقفة مرهونة بتجربتك 😉 ) QR_barcode.accdb

نعم تستطيع جعله افتراضيا في الدالة : Optional level As String = "H" نعم الان لاحظت في الكود انه يرجع الى Tag يجب الان الاستغناء عن Tag كليا

بما أن الأول مشروط بقبول الثاني 😅 ، فلا مشكلة بإذن الله لأنني وقد قمت فعلاً بتعديل الفكرة سابقاً لتصبح معتمدة على اسم مربع النص وليس الـ Tag . ولكن لي ملاحظة بسيطة ، حيث في السابق كان كود الـ QRCode يعتمد أحياناً على Tag لتحديد دقة ومستوى الباركود (H,Q,M) . الآن بعد إزالة اعتمادنا على الـ Tag ، سأعتمد على اختيار الدقة الأفضل H . تمام ؟ أما الثاني فليس هناك مشكلة في حفظ الـ QR أو Code128 كصور بمجلد خارجي . وإن شاء الله حال عودتي للبيت .

تجربة ناجحة وبالفعل يعمل المطلوب وبكل سهولة ، شكرا جزيلا لك قطعا وعندي طلبين لوسمحت ، ولكن تعمل الاول اذا وافقت تعمل الثاني 1. رجاء تغيير كود التقرير بأسماء الحقول بدل الاعتماد على TAG الحقل ، فهذا سيجعل المبرمجين يفهمون الكود اكثر ، وهذا هو الكود جاهزا : Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer) Call drawCode128(Me.Text, ImgQR4) Call drawCode128(Me.Text, ImgQR5, , True) Call drawQuickResponseToImage(Me.Text, ImgQR2) End Sub 2. هل فيه امكانية حفظ الباركود في صورة خارجية ، تُحفظ في مجلد خاص داخل مجلد البرنامج ، والصورة تُحفظ بإسم قيمة الباركود (في حالتنا ، Text) .

بعض ما عندكم أخي @منتصر الانسي ، فأنتم السابقون بالأفكار الرهيبة التي طرحتموها . وما كان مني إلى اتباعكم بالتفكير خارج الصندوق

بالحل المقدم من الأخ @Foksh ينطبق المثل "قطعت جهيزة قول كل خطيب"

الاستاذ /خليفة المحترم مجهود و ابداع و عمل احترافى متكامل و اذا كان من اعادة النظر فى : 1- زر طباعة تقرير اكسييل بتظهر سطر واحد ( احتمال النسخة اللى عندى فيها مشكلة ) 2-عند فتح التقرير و قبل استخدام ازرار التنقل : ظهور عدسة التكبير و التصغير بالتقرير مما يسمح باستخدامها و اختفاء نموذج الطباعة و عدم امكانية ظهور النموذج مرة اخرى 3- عند فتح التقرير : و عند تغير حجم الخط و لونة تتكرر ظهور عدسة الزووم على التقرير اما الباقى بدون ادنى ملاحظات شكرا تم التجربة على اوفيس 2016 / 64