كل الانشطه

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

بما ان هذا الموضوع عبارة عن تحدي ليس بين الاعضاء فقط ، وانما بين العضو ومقدرته ايضا. اضع المرفق من اخوي @ابوخليل والذي قام بعمله بواسطة BarcodeX.ocx في احد تقارير الاكسس ، واكد ان قارئ الباركود قام بقراءته. حجم كائن التقرير هو 3.5 سنتيمتر ، والرقم/القيمة الموجودة في الباركود هي: 123456789abcdef123456789 ونحن نتأمل ان نصل الى هذه المقدرة في هذا الموضوع ان شاء الله 🙂 R_barcod24.pdf

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

وعليكم السلام ورحمة الله وبركاته .. اعجبتني الفكرة ، و وددت المشاركة بالتالي .. ما عليك فعله بيدك حتى تنجح الفكرة .. في المديول :- الخطوة الأولى اذهب للدالة :- Private Function ExitTimer() As Boolean وقم بحذف السطر :- Call DeleteObject(hRgn1) الخطوة الثانية أيضاً اذهب للدالة :- Public Function GenerateExit() 'MyForm As Form) وأضف بعد هذا السطر :- Do Until ExitTimer() السطر DoEvents ، لتصبح جملة الحلقة :- Do Until ExitTimer() DoEvents Sleep clngTimerInterval Loop وبعد هذه الحلقة مباشرة ، أضف السطر التالي :- Call DeleteObject(hRgn) وعليه ، فأن الملف كاملاً بعد هذه التعديلات يصبح :- db.mdb

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

شكرا على التنبيه أخي ماجد .. 🙂 تم إصلاح الخلل وتحميل الإصدار المحدث

السلام عليكم لكل من النموذج المنبثق والغير منبثق خصائص هامة يطول الشرح فيهما كمثال من الناحية الجمالية عند الخروج (الضغط على زر خروج) : النموذج المنبثق ( PopYes ) يستجيب فى جميع الإصدارات للأمر ( Call GenerateExit ) بالموديول المرفق BasCloseForm بينما الغير منبثق ( PopNo ) لا يستجيب إلا فى أكسس 2003 فقط ، وباقى الإصدارات كأنه غير موجود رغم عدم وجود خطأ هل هناك إضافة للموديول المذكور تجعله راضياً عن النماذج الغير منبثقة ( فى إصدارات 2007 فما فوق ) ؟؟ db.mdb

الإصدار الثاني من لعبة الدومينو والتي تدعم الشبكة ( النسخة الأولى التي تعتمد على الربط بقاعدة بيانات الجداول الخلفية ) . مميزات الإصدار الأول :- إمكانية لعب اللعبة من خلال الشبكة المحلية ( 4 لاعبين = 4 أجهزة ) إمكانية إضافة الكمبيوتر كلاعب للعبة الشبكة . يعني بتقدر تلعب انت وصديقك وتضيف الكمبيوتر كلاعب ثالث أو رابع . أو إنك ممكن تلعب مع 3 لاعبين كمبيوتر 😁 . إتاحة دخول لاعب على الشبكة ،واستبدال لاعب كمبيوتر بإدارة كاملة من المضيف ( صاحب اللعبة الحالية = الهوست Host ) . في حال خروج أحد اللاعبين ( خلينا نسميهم البشريين ) سيتم ملئ مقعده بلاعب كمبيوتر لاستكمال اللعب بدلاً منه . في حال رغبة اللاعب الذي خرج ( لأي سبب من الأسباب ) ، سيتم منحه الإذن بالدخول للعبة إما متفرج أو بدل لاعب كمبيوتر آخر موجود ( أو الذي تم إدخاله بدلاً منه ) ... إلخ من سيناريوهات الخروج والعودة . كل لعبة تسمى غرفة لعب ، لها رقم خاص بها للإنضمام . وذلك لمنع تداخل اللعب في الغرف . في حال كان هناك أكثر من غرفة . يعني بتقدر تلعب اللعبة على 8 أجهزة على سبيل المثال وكل 4 في غرفة منفصلة . في حال انقطاع أو خروج المضيف = الـ Host ، رح يكون معه 60 ثانية للعودة للغرفة نفسها . بشرط أن يتم كتابة نفس الإسم السابق له قبل خروجه . وهذا ينطبق أيضاً على اللاعبين البشريين - كما أسميناهم وللتمييز بينهم وبين الكمبيوتر - عند خروج أحدهم والعودة الى نفس الغرفة = بنفس الإسم . بتقدر كمضيف = Host تحديد قيمة نتيجة الفوز التي تحدد الفائز بالغرفة . طبعاً القيمة الإفتراضية = 500 . وسيكون التجميع تراكمياً بمجموع أرقام الحجارة في يد اللاعب الذي يملك أقل عدد . في لعبة الشبكة بتقدر تختار صورة لشخصيتك من خلال قائمة منسدلة = Avatar . لنفترض انك كلاعب بشري سجلت انضمامك للغرفة - قبل بداية اللعبة طبعاً - وكنت بدك تعدل اسمك أو تغيره . كل اللي عليك انك ترجع تسجل انضمام جديد بفتح اللعبة من جديد لنفس الغرفة . لن تظهر أي حجارة عندما يكون عدد الاعبين أكثر من 2 . وإلا فسيأخذ اللاعب الثاني ( إذا كانت اللعبة تضم لاعبين اثنين فقط ) مكان الكمبيوتر وستظهر حجارة كلا اللعبين مقابل بعضهما البعض . ستظر صورة لشخصية ترفع يدها في واجهة اللاعبين للدلالة على أن الدور له ، حتى لو كان الكمبيوتر احد اللاعبين المنضمين الى لعبة الشبكة . لنفترض أن الغرفة فيها 3 أو 4 لاعبين ، وأراد لاعب رابع الإنضمام الى اللعبة . فسيتم إظهار رسالة في واجهة المضيف الـ Host فقط ، تخبره أن هناك لاعب يرغب بالإنضمام الى الغرفة . وستكون الخيارات للمضيف كالآتي :- * استبدال لاعب كمبيوتر باللاعب الجديد فوراً = في حال وجود لاعب كمبيوتر * قبول اللاعب كمتفرج حتى الفوز التام = سيتم إدخاله كمتفرج فقط ، و ينتظر حتى يحقق أحد اللاعبين القيمة التي تحدد الفائز في الغرفة * رفض الانضمام = عدم إدخاله أساساً * قبول الانضمام والبدء بلعبة جديدة كلياً = تصفير اللعبة والبدء من جديد بانضمام اللاعب الجديد محاكاة كاملة لسير اللعب والحركة والسحب وتمرير الدور عند جميع اللاعبين . إذا كان عدد الاعبين أكثر من 2 ، فسيتم إظهار عدد الحجارة في يد كل لاعب ، والنتيجة التي حققها من فوز في كل لعبة ؛ في واجهة كل اللاعبين . والكثير من المميزات سأترك لكم اكتشافها بأنفسكم 😉 . وسأكتفي بهذا القدر من النقاط . ما عليك فعله لضبط اللعب في الشبكة :- ربط جميع واجهات اللعب بالملف المرفق TBL ، وهو قاعدة بيانات الجداول التي تخص الشبكة على السيرفر فقط . وهنا في التحديث الجديد لاحقاً سيتم الاستغناء عنه كلياً بحيث يتم اللعب على الشبكة من خلال وسيط يعمل كسيرفر يربط اللعبة من خلال رقم الغرفة بشكل ديناميكي عجيب . وقد تم بناؤه من خلال لغة C# . المرفق مفتوح المصدر لعشاق البحث والتقصي 😁 . وليس هنا أي أسرار هذه المرة 😜 . ويسعدني تعليقاتكم حول آلية تطبيق اللعبة . Domino Network.zip

يرجى مراجعة الخطأ عند إنشاء نسخة احتياطية

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

هل فى الوقت الحالي هذا غير كافي؟ الغرض من وضح الحد ، هو الحذف الدوري للملفات غير الضرورية للحفاظ على مساحة السيرفر احيانا مثلا يكون هناك موضوع قديم تم رفع عشرون ملف فيه و تم التوصل للحل المناسب بعد عدد من المحاولات ، فيكون الافضل حفاظا على وقت القارئ المستقبلي و ايضا مساحة السيرفر حذف بعض التجارب التي لم تفي بالغرض بعد فترة ، و هو ما يتم عمله عند تنقيح المواضيع القديمة

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

😮 رأيي الفني 😅!! فكرة أخونا الأستاذ أبو عبدالله جميلة بلا شك وأحييه على الفكرة التي خرج بها . ولكنك ستشعر الفرق عندما تتعامل مع سجلات كثيرة .. فالفكرة الأساسية التي اعتمد عليها وهي rpt.Line الأساسية ستكون بطيئة جداً لو افترضنا التعامل مع تقرير يحتوي 100 سجل على سبيل المثال . ولكن في فكرة التعديل الذي قمنا به وابتعادي عن الفكرة السابقة هي باستخدام GDI APIs التي أتت من المرفق A2KPictureBoxVer35.accdb الذي شاركنه أخي جعفر . يعني افتح التقرير rpt_BG_img_Barcode في مرفق الأستاذ عبدالله ، وانتقل لعرض الصفحة الثانية !!! ستشعر الفرق 100% وختاماً لست في مكان أقييم به عمل أحد من الأساتذة والأعضاء ، فأخوكم ما زال يتعلم ولله الحمد 😇

بالعكس لو قمت بفتح الصورة ستجدها لاتحتوي على هوامش هذا هو الوضع عندي لصورتين في نفس التقرير لهما نفس الأبعاد (عرض وإرتفاع) ولكن الأولى قيمة الخاصية فيها هي Zoom والأخرى Stretch (قمت بإبراز الإطار للتوضيح) وللتأكيد قمت بتطبيق هذا على الحل المقدم من الأخ @أبو عبدالله الحلوانى ,لكن ولأن الكود نفسه يقوم بإضافة هوامش حول الرسم فستلاحظ أن الإطار الأبيض حول الكود يختلف بين الصورتين لكنه موجود وبعد تعيين الهوامش على القيمة صفر ستظهر بهذا الشكل وبصراحة لاأدري لماذا لم تنجح الفكرة لديك وحتى عند الأخ @Foksh كما سبق ورد انها لم تنجح معه ولكني وضحت لكم وبالصور نجاح الفكرة في الأخير أود التنويه إلى الحل المقدم من الأخ @أبو عبدالله الحلوانى فهو حل أراه مثيراً للإهتمام فقد توصل إلى نفس النتائج ولكن بدون إستخدام وحدة الكلاس والحقيقة كنت أود معرفة الرأي الفني من الأخ @Foksh عن الفرق بين الطريقتين من حيث الأداء وإستهلاك الموارد فهو أستاذ في هذه الأمور تحياتي

شكرا لك جزاك الله خير الجزاء

hegazee شكرا لمرورك انا احتاج فقط تشغيل ايقونة المعاينة لتصبح الورقة A5 وشكرا

متابع

وعليكم السلام البعض قد يعتقد ان طلباتي كثيرة ، ولكني اضطر لهذه الطلبات حتى يكون المنتج النهائي خالد لأعوام وعقود. فيه تراود افكار بين فكرتك وبين احد طلباتي من الاخ فادي ، والذي قام مشكورا وقام بالعمل بطريقة ناجحة. ولكن هذا لا يمنع الآخرين من خوض نفس الفكرة ولكن بكود آخر. مرفقك يعطي التقرير الاول المفرد , وعند طلب الصفحة التالية حصلت على هذا الخطأ: . وفي الواقع هذا الخطأ يظهر اذا كان هناك اكثر من سجل

انا اجرب قبل ان اضع رد 🙂 عندنا كائن الصورة في التقرير والذي به يمكن عمل تعديل الخاصية كما تفضلت ، ولكن هذا يعتمد 100% على الصورة نفسها ، ولكن هذه المسافة البيضاء هي جزء من الصورة ، فلا تصلح الخاصية ، ولا يمكنك محاذات الصورة في الكائن ايضا ، لان العيب في الصورة. وفكرة ممتازة في تقسيم العمل حسب حاجة المستخدم ، وتقليل وقت التنفيذ 🙂

شكرا جزيلا لاحظت ، هذه المرة تم تعبئة كائن الصورة بخطوط اثخن. انا استخدم قراءة الباركود من الشاشة بواسطة الموبايل فقط للتأكد ان القيمة صحيحة ، وللتأكد النهائي ، فاني ارسلها لأحد المؤسسات حتى يطبعوها على الهوية البلاستيك بأبعادها الحقيقية والباركود بالحجم المناسب ، ثم نقارن حجم النتيجة الحالية بحجم النتيجة الاصلية التي لدينا ، والاهم هو نتائج سرعة قراءة الباركود. طبعنا حسب كود مرفقك السابق والنتيجة كانت ممتازة ، وسنطبع اعتقد غدا ان شاء الله نتائج هذه المرفق QR_Barcode-3 ان شاء الله واوافيك بالنتيجة

أعتذر منك أخي الكريم. فالشروط تعجيزية . لعل أحد أساتذة المنتدى يفيدك

اولا اريد ان يكون التوزيع تنازليا بحيث تأخذ اللجان الأخيرة أقل طلاب مثلا رابع اللجان الاولى من 2 والاخيرة من 1 ثانيا عندما اقسم مثلا عدد الطلاب على 14 (سعة اللجنة ) يكون الناتج 14.5 اي 14لجنة واللجنة 15 بقية الطلاب 7 والمشكلة ان اضع 14 لجنة ثالثا لا اريد ان يكون هناك شاغر في اللجان الا اللجنة الاخيرة فقط

تفضل اخي منتصر .. التعديلات التي تمت :- الدالة DrawAndSaveBarcode أصبحت :- Public Sub DrawAndSaveBarcode(txt As TextBox, img As Image, barcodeType As String, Optional bVertical As Boolean = False) Dim saveDir As String Dim fullPath As String Dim parentReport As Report Dim saveMode As String Dim shouldSave As Boolean On Error Resume Next Set parentReport = img.Parent If parentReport Is Nothing Then Set parentReport = img.Parent.Parent On Error GoTo 0 saveMode = "NoSave" If Not parentReport Is Nothing Then saveMode = Nz(parentReport.OpenArgs, "NoSave") End If shouldSave = False If saveMode = "SaveAll" Or saveMode = "SavePage" Then shouldSave = True End If If shouldSave Then saveDir = CurrentProject.Path & "\QRImg\" If Dir(saveDir, vbDirectory) = "" Then MkDir saveDir fullPath = saveDir & barcodeType & "_" & txt.Value & ".bmp" Else fullPath = "" End If If LCase(barcodeType) = "qr" Then Call drawQuickResponseToImage(txt, img, savePath:=fullPath) ElseIf LCase(barcodeType) = "code128" Then Call drawCode128(txt, img, , bVertical, savePath:=fullPath) End If End Sub الإستدعاءات في الأزرار أصبحت :- Private Sub cmdOpenWNavSave_Click() DoCmd.OpenReport "rpt_BG_img_Barcode", acViewPreview, , , , "SavePage" End Sub Private Sub cmdOpenWOSave_Click() DoCmd.OpenReport "rpt_BG_img_Barcode", acViewPreview, , , , "NoSave" End Sub Private Sub cmdOpenWSave_Click() DoCmd.OpenReport "rpt_BG_img_Barcode", acViewPreview, , , , "SaveAll" End Sub Private Sub cmdSave_Click() DoCmd.OpenReport "rpt_BG_img_Barcode", acViewPreview, , , acHidden, "SaveAll" DoCmd.Close acReport, "rpt_BG_img_Barcode", acSaveNo MsgBox "بنجاح QRImg تم توليد وحفظ جميع الصور في مجلد", vbInformation + vbMsgBoxRight, "" End Sub وفي التقرير أصبحت التمرير كالآتي :- Private Sub Report_Open(Cancel As Integer) On Error Resume Next If Nz(Me.OpenArgs, "") = "SaveAll" Then Me.TxtPages.ControlSource = "=[Pages]" Else Me.TxtPages.ControlSource = "" End If On Error GoTo 0 End Sub 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 أتمنى أن يلبي ها التعديل المطلوب . طبعاً بالإستعانة بنموذجك أخي منتصر 😉 . QR_Barcode - 5.accdb

اليك التعديلات في الملفتعديلات.xlsm والعفو منك تعديلات.xlsm

يا أخي أريد أن تكون اللجان الاولى تتسع للعدد الاكبر ثم التي يليها وهكذا وتبقى اللجان الأخيرة لأقل طلاب