نجوم المشاركات

تمام ، قمت بالتطبيق مسبقاً بإجراءات بسيطة واستخدام فكرة الرسم والتدوير من الملف المرفق الأصلي A2KPictureBoxVer35 .. New QR.accdb

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

وعليكم السلام -تفضل معادلتين لطلبك .اختر منهما ما تشاء =MIN(IF(($C$7:$C$32=$M7)*($G$7:$G$32=""),$E$7:$E$32)) =MINIFS($E$7:$E$32,$C$7:$C$32,$M7,$G$7:$G$32,"") استخراج تاريخ اقدم الفاتورة-1.xlsx

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

تم التعديل و تجريب الكل . تفضل التعديل. Printable ribbon - Reports and forms-1.rar

السلام عليكم ورحمة الله وبركاته.. تقبل الله طاعاتكم ، ومبارك على الجميع عيد الأضحى المبارك.. من باب السؤال والنقاش . هل من الممكن فعلاً أن نجعل التقرير يعرض الباركود ولكن بدل ما نرسم الباركود على أرضية التقرير ، أن يتم الرسم على أرضية عنصر صورة غير منضم 🤔 !! بمعنى آخر ، نستغل فكرة من المرفق الثاني ودمجها في النتيجة المطلوبة وبالتالي لن نحتاج صورة محفوظة أساساً !!! الفكرة تتلخص بالمرفق التالي بعد تشريح الأكواد وإزالة ما ليس له عمل لتطبيق الفكرة ، وإضافة الكلاس clsPictureBox واستغلال فكرة التنفيذ من الزر Start Draw with Mouse في المرفق A2KPictureBoxVer35 الأصلي من المشاركة الأولى ، بحيث جعلت الفكرة تقوم على رسم رمز الـ QR والـ Code128 😅 . وأشعر بأنها فكرة قد لا تكون ذكية .. ولكن كتجربة مختلفة عما تفضل به الأساتذة وجعلها تعمل على النواتين 32 و 64 :- QR_barcode.accdb

بعد اذن اساتذتي الاساذ / @صالح حمادي والاستاذ / @jjafferr ........ للاستاذين @jo_2010 و @AMINYOUSIF . لانه يوجد تعديلات مهمه مثلاً عند تكبير الخط ستزداد عدد الصفحات .. تم معالجتها . واشياء اخرى ....... ممكن استخدام الماكروهات حسب طلب الاستاذ @jo_2010 . أو الاكواد بدلاً منها حسب طلب الاستاذ @AMINYOUSIF . ...................... لذا وجب عليا التعدبل وارفاق المرفق بعد التعديل . ووافوني بالرد . Print ribbon-last.rar

أعاده الله علينا وعليكم وجميع المسلمين بالخير واليمن والبركات وماحاجتك إلى تكبير الصورة الخارجية ؟؟؟ هذه هي الأبعاد التقريبية للبطاقة 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

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

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

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

سلام عليكم اخي علي محمد علي اشكرك على الرد الكافي والمعادلة التي صلحت معي هي MIN(IF(($C$7:$C$32=$M7)*($G$7:$G$32=""),$E$7:$E$32)) جزاك الله خيرا وجعلها في ميزان حسناتك والسلام عليكم ورحمة الله تعالى وبركاته =MIN(IF(($C$7:$C$32=$M7)*($G$7:$G$32=""),$E$7:$E$32))

بدايةً وعليكم السلام ورحمة الله وبركاته.. وأتمنى أن لا تكون كلماتي في ردي هذا محبطة لك ولجهودك ، وأن لا تكون كالملح فوق الجرح مؤلمة .. وكما اختصر الكلام في قسمنا هذا ، مشاركة وتفاعل الكثيرين من منتسبي قسم الآكسيس . فإن قسمنا - مع احترامي للجميع - يفتقر الى روح المشاركة والمعنوية التي تجعلنا نُقدم على هذه الخطوة . فأغلب التفاعلات هنا مجرد :- يدخل البعض ليبحث عن موضوع لم يشارك به أحد ، وكأنه ماراثون "كلمة مقتبسة" . يدخل البعض أيضاً لا يكلف نفسه حتى عناء البحث باستخدام ميزة البحث في المنتدى. فتراه يرمي موضوعه دون شرح او توضيح كافي ، أو أحياناً دون مرفق . وهذا النوع لا لوم عليه من التفاعل في أي مواضيع لأنه يبحث عن معلومة . ترجمة رقم عدد الزيارات للمواضيع المطروحة ، تدل على أن الأغلبية لدينا في قسمنا ، جمهور صامت !! حاله كحال جمهور في مباراة كرة قدم دون أي تفاعل ولا حتى كمشجع ، وقد يكون أحياناً غير منتقد أيضاً 😅 . ينقصنا في قسم الآكسيس شيء واحد فقط وهو ، الترابط الاجتماعي . فأحياناً كثيرة نجد أن معظم الردود تؤخذ على محمل شخصي ، ولا تؤخذ على محمل أن اختلاف وجهات النظر لا يُفسد للودّ قضية . لذا أتمنى أن نلمس في القسم صحوة للكثيرين بتفاعلهم ومشاركاتهم بأفكارهم ، ليس فقط في الردود وكأننا آلات مبرمجة على مبدأ سين سؤال وجيم جواب . وحتى لا ينزعج أحد من ردي هذا ، فقد أكون أولكم ممن تلمسه جميع الملاحظات ، ولا أزكي نفسي عليكم بل أول المقصّرين . شكراً لمن قرأ للنهاية ، ووصل الى هذا الحد بصدر رحب ، وعلى من لا يأخذ كلامي وكأنه المقصود 💐 .

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

يعني انت تريد تنظيف الأكواد من الاعتماد على 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

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

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

شكرا لاهتمام حضرتك بلفت نظرى للابداع الجديد دام الله عليك كل الخير ومتعك بعيد اضحى مبارك

شكرا اخوي خليفة ، بالفعل كان الشريط بحاجة الى تحديث 🙂 عمل رائع ، كالعادة 🙂

استاذنا الكبير / خليفة هذا مرفق يلبى طموح كل الاطراف حقا ( خير الناس انفعهم للناس ) اعلم ان هذا الموضوع لم يتم تغطيتة من قبل بهذا العناية و الاهتمام اولا : اشكرك بكل اخلاق التلميذ للاستاذه المرفق غطى كل احتياجتى محتاج تبص على التقرير r_acc_WithoutMacro لانه بيسمح احيانا بكليك يمين و شمال مع ظهور prin بخلاف ما هو متبع فى rpt_rensen_WithMacro * تعديل بالاضافة : عند استعراض تقرير r_acc_WithoutMacro و تغير الزووم فى البداية يختفى نموذج prin نهائى بالاضافة كنت اعتقد ان البرنامج لم يسمح بتقرير مصدرة استعلام و لكن نجح بالفعل ( اشكرك ) Print _WithoutMacro.rar

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

1. النتائج ممتازة ، ومع ان الصورة الخارجية صغيرة ، ولكنها تكبر في التقرير وبدون تشويش ، ولكن اذا سمح وقتك ان تكبر الصورة الخارجية ، يكون افضل. 2. لم استطع قراءة اي من البيانات ، الى ان عملت تكبير للتقرير 200% فقرأها صح ، ولم يقرأها 150% فما دون ، فياريت تعيد النظر 🙂

احسنت 👍 يا بش مهندس منتصر الانسي عيد مبارك للجميع وكل عام وانتم بخير

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

طيب انت لديك في النموذج هذا الكود خلف زر وظيفته التحكم بالتعديل من عدمه : 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

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

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

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

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

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

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

وعليكم السلام ..كان عليك استخدام خاصية البحث بالمنتدى فبه طلبك

لو سمحتم لي بإبداء الرأي فلنبدأ من حيث انتهي الاخرون هذا الرابط به اجنده للمواضيع المستقبلية التي سيتم مناقشتها في الاجتماعات https://accessusergroups.org/calendar/list/ فلو تم عمل استبيان و يتم تجميع المواضيع التي يمكن مناقشتها و يتم عمل ترتيب للاولوية لها ثم بتم نشر قائمة بأجندة الموضوعات كما في المجموعة الاروبية و لا يوجد ما يمنع من نأخذ منهم بعض الموضوعات كبداية استرشادية - هذا مجرد بداية اقتراح لعمل تفاعل بين الاعضاء و تبادل الخبرات و المعلومات بصورة اقوي قليلا مما هو موجود حاليا و جزاكم الله خيرا

تم الإنتهاء من ضبط جميع خصائص لعبة الشبكة ، وإتمام حل مشكلة الإتصال للـ Host من أي جهاز دون الحاجة لربط قاعدة بيانات اللعبة بقاعدة بيانات الجداول في كل مرة 😈 . حيث كانت المشكلة الرئيسية هي أن جميع الأجهزة ستتصل بقاعدة بيانات خلفية واحدة ؛ ولكن ماذا لو كان هذا الجهاز غير متاح في هذه اللحظة !!!!!!! وبفضل الله تم الحل بنجاح وإيجاد حل لهذه المشكلة . وهذا تجسيد للعب 4 لاعبين .

إحدى الإضافات التي قمت بإضافتها على اللعبة .. إتاحة إمكانية اللعب ضد 3 لاعبين كمبيوتر أو انت وصديقك وكمبيوتر أو كمبيوترين ... إلخ وسيتم طرح النسخة التي تمت عليها التحديثات السابقة ، قريباً إن شاء الله ..