أ / محمد صالح

كل عام وانتم بخير وسعادة وراحة بال أستاذ @ابو زاهر وجميع أسرة منتدى أوفيسنا

بعد إذن أستاذ @ابو ياسين المشولي ربما يفيدك هذا الملف

ربنا يبارك في حضرتك كلنا نتعلم من بعضنا نفعنا الله جميعا بما علمنا وعلمنا ما ينفعنا وبانتظار رأي الأستاذ @alameer_3320 صاحب السؤال

لو الملف المصدر بصيغة cvs يمكن تغيير طريقة التكويد في notepad ++ من قائمة encoding --> convert to utf وإذا كانت xls فيمكن حفظها ك cvs وعمل نفس الخطوات السابقة

بارك الله لك أستاذ @حلبي نعم التطبيق لمعادلة dsum المقترحة مني للحل سابقا

وفقك الله أستاذ @Khalf بالنسبة لموضوع الأسئلة ربما لعدم وضوح العرض ربما لعدم منطقية العرض ربما لشخصية السائل وطريقة حواره مع من يجيبه متطوعا في الموضوعات السابقة ربما ربما

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

تفضل أخي الكريم لعل هذا هو المطلوب بدايتك في اختيار الصف ستجد العام يظهر وحسب الحالة يتم احتساب الاحصائيات mas_السيرة الدراسية.rar

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

هل صيغة التصدير CVS أم XLS ؟

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

الحمد لله تمام لو أرفقت ملفك بعد التعديل تكون الإفادة أكثر للجميع

هل الأسماء المخزنة في الجهاز باللغة العربية وتظهر على الشاشة بصورة صحيحة؟؟

يتم تنفيذهذا في الأكسس في نموذج ويسهل أيضا في الإكسل في نموذج لكن في خلايا الإكسل فالكود السابق رائع لهذا الغرض ويمكن إضافة حدث عند تغيير التحديد كذلك ليصبح الكود هكذا Private Sub Worksheet_Change(ByVal Target As Range) If Target.Value = "" Then MsgBox "Please fill the cell before you leave", vbCritical, "Warninng" Target.Select End If End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Value = "" Then MsgBox "Please fill the cell before you leave", vbCritical, "Warninng" Target.Select End If End Sub

لكي تتم معالجة هذا الأمر تحتاج لكود عند الخروج من textbox يقوم بحفظ اسم المستخدم الحالي ووقت التعديل وحقل التعديل في جدول خاص بذلك وكذلك عند الضغط على زر تضيف كود لحفظ اسم المستخدم الحالي ووقت التعديل ووعبارة تم الضغط على زر كذا في في نفس الجدول الخاص بالسجل وأقترح مثلا حقول جدول السجل id userId dateAndTime actions notes

بالنسبة للاستفسار اول تضيف مربع نص textbox وتكتب فيه هذه المعادلة =sum([column]) حيث column اسم العمود الذي تريد جمعه بالنسبة للاستفسار الثاني يومي ممكن تعمل استعلام وتضع في خانة المعايير تحت عمود التاريخ date أي تاريخ اليوم بين تاريخين سواء شهري أو سنوي ممكن تعمل استعلام وتضع في خانة المعايير تحت عمود التاريخ >=forms!form_name!txtbox_from_name وتحتها في خانة أو لعمل أكثر من شرط <=forms!form_name!txtbox_to_name طبعا مع تغيير اسم النموذج واسم مربع النص الذي به تاريخ البداية ومربع النص الذي به تاريخ النهاية وفقنا الله جميعا لكل خير وكل عام والجميع بخير وسعادة ورضا

جزاكم الله حيرا وجزا الله كل من يساهم كل خير

ممكن تستعمل المعادلة الآتية =DSum("[total]","table name","[نوع الاجازة] = اجازة سنوية") طبعا مع تغيير اسم حقل المجموع واسم الجدول واسم حقل نوع الاجازة

شكرا لكلماتك الطيبة نفعنا الله جميعا بما علمنا وعلمنا ما ينفعنا 😍😍

جرب هذه النسخة من الملف https://www.file-upload.com/6e3gjbzai6mi مع مراعاة نوعية نظام التشغيل هل 32بت أم 64بت

يبدو أنك لم تشاهد الدقيقة 12:00 وما بعدها في الفيديو على العموم ادخل على هذا الرابط https://myaccount.google.com/lesssecureapps turn ON وذلك للسماح بالتطبيقات الأقل أمانا بالوصول إلى بريدك واستخدامه فالفيجوال بيسك لدى جوجل تعتبر تطبيقات أقل أمانا

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

شكر الله لك أخي الفاضل @محمد قاسم 12 والأستاذ @هشام كوكب نفعنا الله جميعا بما علمنا وعلمنا ما ينفعنا

على ما يبدو أن هذا النموذج الخاص ب‘رسال البريد بدون أوتلوك أي باستخدام CDO وفي هذه الحالة يجب كتابة اسم المستخدم وكلمة المرور في الكود وبالنسبة للخطأ افتح قائمة tools -> references في نافذة VBA والغي علامة الصح جنب المفقود من المراجع missing

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