ابو جودي

السلام عليكم ورحمة الله تعالى وبركاته اولا : كل عام وانتم بخير ثانيا : انا بصدد عمل قاعدة بيانات جديدة تخص عملى واريد أن أبدئها مع اساتذتى من الصفر نظرا لان القاعدة الحالية تم الانتهاء من تصميها فى العام 2016 وكانت تلك بدايات تعلمى الاكس ولم يتم تحديثها او تنقيحها بعد ذلك فحتما وقعت فى الكثير من الاخطاء ولذلك اريد تقديم يد العون من اساتذى الكرام نظرا لان القاعدة الحالية بطيئة جدا جدا.. كما نها تعمل فى اطار شبكة محلية بإختصار اولا اضع النقاط الرئيسية للبيانات وكيف تتم معالجتها والية العمل حتى تكتمل الصورة ونبدأ بتحليل النظام اولا ----------------- - يتم احضار ملف اكسل من جهاز البصمة لكل العاملين يتم استيراد البيانات الى قاعدة البيانات - احتساب التأخير بناء على جدول به مواعيد الحضور لانها قيم غير ثابته او قد تتغير مع الوقت ولابد من مراعاة الاتى 1- فى ايام العمل الرسمية من الاحد الى الخميس مواعيد الحضور تبدأ من 7:30 ص ووقت السماح الى الساعه 8:20 ص المفروض احتساب مخالفة بعدد 1 لكل موظف ظهرت مواعيد حضوره ابتداء من الساعة 8:21 ص الى الساعة 10:00ص ومخالفة بعدد 2 لكل موظف لكل موظف ظهرت مواعيد حضوره ابتداء من الساعة 10:01 ص وحتى الساعة 12:00 م ( ظهرا ) ومخالفة بعدد 3 لمن كان حضوره بعد الساعة 12:00 م ولكن فى يوم الاحد فقط من كل اسبوع يستثنى من ذلك المسيحيون فمواعيد المخالفة عدد 1 تبدأ من الساعة 10:01 ص وحتى الساعة 12:00 م ( ظهرا ) ومخالفة بعدد 2 لمن كان حضوره بعد الساعة 12:00 م حالة استثنائية: فى حالة التأخير للموظفين بسبب التفتيشات الامنية يعامل الجميع بالطريقة التى تم احتساب المخالفات بها للمسيحيون 2- الانصراف يبدأ من الساعة 2:00 ايا موظف تظهر وقت بصمته قببل الساعة 2 تعد مخالفة طبعا مطلوب تجميع عدد المخالفات كل أخر شهر للموظفين 3- يستثنى من المخالفات كل من توجه الى عيادة ولكن مطلوب تجميع عدد العيادات كل أخر شهر للموظفين 4- ايام الجمعة والسبت او الاعياد والمناسبات الرسمية التى تكون اجازة من الدولة يكون وقت الحضور حتى الساعة 9:00 ص واى تأخير بعد ذلك يحتسب بعدد 1 مخالفة فقط 5- مطلوب تجميع عدد ساعات العمل الرسمية شهريا حسب عدد ايام الشهر لايام من الاحد الى الخميس من الساعة 8:00 ص الساعة 2:00 مساء 6- تجميع عدد ساعات العمل الفعلية من وقت حضور الموظفين الفعلى فى تلك الايام وحتى وقت الانصراف بدون السهر اى الى الساعة 2:00 مساء لاحتساب نسبة الحضور المئوية شهريا للموظفين 7- احتساب عدد الساعات الفعلية لكل ايام العمل الرسمية والغير رسمية فقط معدد ساعات يستكمل الباقى بعد الانتهاء من تلك الجزئية🤣

راجع الروابط الاتية

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

ان شاء الله الحل هنا ان اردت وهو إهداء لمن يريد وهنا كان موضوع البحث والنقاش

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

طيب اولا لابد لنا الاحتفاظ بتلك القاعدة Converter Arabic and Unicode (v. 3) الوظيفة : تقوم بعمل التحويل من اللغة العربية الى الترميز العالمى والعكس ثانيا انا اردنا كتابة تلميح داخل محرر الاكواد لا نكتبه بالعربية كذلك ولكن ممكن بالـ Franco-Arab كتابة تلميح يدل على رسالة ترحيب ممكن نكتب التلميح بالشكل الاتى ' resalat tar7ib 'ahala bkm fe montda Al Access ونقوم باعلان عن متغير نصى لنسد اليه نص الرسالة مثلا Dim strMsgTr7ib As String ثم نفتح قاعدة بيانات التحويل ونكتب بها النص الذى نريده بالعربى ونقوم بتحويله الى الترميز العالمى ونقوم بنسخ الرموز الناتجة من التحويل ونسندها الى المتغير strMsgTr7ib = ChrW("1575") & ChrW("1607") & ChrW("1604") & ChrW("1575") & ChrW("32") & ChrW("1576") & ChrW("1603") & ChrW("1605") & ChrW("32") & ChrW("1601") & ChrW("1609") & ChrW("32") & ChrW("1605") & ChrW("1606") & ChrW("1578") & ChrW("1583") & ChrW("1609") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1571") & ChrW("1603") & ChrW("1587") & ChrW("1587") وان كان السطر طويل جدا ممكن تقسيمة الى عدة اسطر بتلك الطريقة strMsgTr7ib = ChrW("1575") & ChrW("1607") & ChrW("1604") & ChrW("1575") & ChrW("32") & ChrW("1576") & _ ChrW("1603") & ChrW("1605") & ChrW("32") & ChrW("1601") & ChrW("1609") & ChrW("32") & ChrW("1605") & _ ChrW("1606") & ChrW("1578") & ChrW("1583") & ChrW("1609") & ChrW("32") & ChrW("1575") & ChrW("1604") & _ ChrW("1571") & ChrW("1603") & ChrW("1587") & ChrW("1587") وهذا مثال للتجربة واسم القاعدة Use Of Unicode in VBA Converter Arabic and Unicode (v. 3).accdb Use Of Unicode in VBA.accdb

الصح اللى قلت لك عليه لأن كل ما تريد ارسال قاعدة لغيرك لو لم تكن اعدادات اللغة مضبوطة سوف يقع فريسة لتلك الرسالة

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

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

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

اولا هذا منتدى الاكسس وليس الاكسل ولكن على كل حال اليك الحل وينقل الموضوع الى جيران الهنا فى منتدى الاكسل وعذرا ان لم استخدم الدوال بشكل صحيح او ان كان هناك اختصار للحل بطريقة افضل انا لا اعلم اى شئ عن الاكسل تقريبا تلك المرة الاولى التى احاول فيها التعامل مع ملفات الاكسل ولكن بحثت على الانترنت وهذا تطبيق طويلب علم مجتهد لذلك ارجو السماح وعلى الله حد يتريق على الحل اللهم انى ناوى اصوم رمضان هاهاهاهاهاها للعلم استخدمت الدالة SUMIF لحساب اجمالى المنتجات للمندوب والدالة SUMIFS لحساب اجمالى المنتج المطلوب استثناءه ثم قمت بعمل طرح اجمالى المنتج المطلوب استثناءه من اجمالى المنتجات للمندوب للحصول على النتيجة المرجو الوصول اليها كل عام وانتم بخيــــــــر Book1.xlsx

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

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

اولا يا دكتور @SEMO.Pa3xجزاكم الله خيرا ولكن عنوان الموضوع النسخة الثانية من اداة رفع الملفات الى Google Drive ولكن بالحقيقة الكود يرفع نسخة احتياطية من قاعدة البيانات فقط هل يمكن تعديل جديد ليتم عمل استعراض للملفات المختلفة من الحاسوب مع امكانية اختيار اكثر من ملف لرفعهم بنفس الالية من خلال قاعدة بيانات ويا سلام لو هناك اختيارت على نموذج استعراض الملفات قبل الرفع على الدرايف مثل رفع كل ملف على حدة او جمعهم فى ملف ارشيف و امكانية تشفير ملف الارشيف برقم سرى او عدم التشفير نظريا ممكن عمل ذلك من خلال احضار مسار الملفات من خلال زر الامر الذى يقوم باستعراض الملفات وحفظ المسارات فى جدول وعمل لوب لرفع كل ملف ولكن عمليا هل ممكن تحقيق ذلك..... مجرد فكرة وعندما يسمح وقتى سوف احاول تطبيقها وان سبقتمونى فجزاكم الله خيرا

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

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

وعلى خطى استاذى الجليل ومعلمى القدير الدكتور @SEMO.Pa3x اداتان صغيرة مكتوبتان كـ مفتاحان registry عند تشغيلهما سوف تقوم الاداة الاولى والمختصة باضافة خيار جديد في الزر الايمن للماوس عند النقر على اى مجلد او ملف الوظيفة جلب مسار الملفات والمجلدات لسرعه الوصول لها في البرامج او غيرها.. وبدون علامتى التنصيص الاداة ليست من كتابتي انما فقط قمت بالتعديل عليها .. سورس كود الاداة الاولى: Windows Registry Editor Version 5.00 ; ########################################## ; Application : Get files/directories path by right click windows ; Coded by : MOh3ssam (www.officena.net) ; Date : 29-03-2022 ; ########################################## [HKEY_CLASSES_ROOT\*\shell\Copy as Path] [HKEY_CLASSES_ROOT\*\shell\Copy Path\command] @="cmd.exe /c echo %1 |clip" [HKEY_CLASSES_ROOT\Directory\shell\Copy as Path] [HKEY_CLASSES_ROOT\Directory\shell\Copy as Path\command] @="cmd.exe /c echo %1 |clip" بعد تشغيل الاداة اضغط كلك يمين على اي ملف في الكومبيوتر او اي مجلد وستظهر لك: بعد نسخ اي مسار قم بلصقه، مثال: الاداة الثانية : سوف تقوم الاداة الثانية والمختصة بازالة الخيار الذى تم اضافته من الاداة الاولى من الزر الايمن للماوس عند النقر على اى مجلد او ملف الاداة ليست من كتابتي انما فقط قمت بالتعديل عليها .. سورس كود الاداة الثانية : Windows Registry Editor Version 5.00 ; ########################################## ; Coded by : MOh3ssam (www.officena.net) ; Date : 29-03-2022 ; ########################################## [-HKEY_CLASSES_ROOT\*\shell\Copy as Path] [-HKEY_CLASSES_ROOT\Directory\shell\Copy as Path] الموضوع كذلك ليس من كتابتي انما فقط قمت بالتعديل عليه 😊 وفى الختام تم كتابة الموضوع اقتباسا بنفس الطريقة والالية لطريقة استاذى الجليل ومعلمى القدير الدكتور حسنين لاننى امازحه واداعبه كل عام وانتم بخير يا دكتور انتم وكل اساتذتى الكرام كل عام وانتم الى الله اقرب وعلى طاعته ادوم ولفعل الخيرات اسبق و لسنة النبى الزم ولحب اتباعه اصدق ومن الجنة ادنى واقرب وعن النار ابعد اسال الله تعالى الرحمة والعفو والغفران لكم و لكل المسلمين و لوالديكم و والداى وكل المسلمين برحمتك التي وسعت كل شيء اللهم ان ابائنا قد احسنوا الينا منذ يوم ولادتنا اللهم وبحق هذا الاحسان ارحمهما و اغفر لهما برحمتك التى وسعت كل شيء اللهم ارحم من فى بطن الارض من ابائنا و استرهم يوم العرض يارب العالمين يا رب انت خلقتهم وانت اخذتهم وانت الرحيم فليس غيرك ارحم بهم اللهم ارحمهم و اغفر لهم اكرم نزلهم و وسع مدخلهم اللهم اجعل قبورهم روضه من رياض الجنة واجمعنا بهم في جنة النعيم برحمتك يا ارحم الراحمين ارحم يارب من مات منهم بالدنيا ولم يمت في قلوبنا اللهم ارحمه فهو اغلى من فقدنا واسكنه فسيح جناتك يا ارحم الراحمين اللهم من بقى منهم فى هذه الدنيا بارك فى اعمارهم وارزقهم ثوب العافية وحبب الايمان الى قلوبهم وتقبل اعمالهم وارزقنا برهم وارض عنهم يارب واجعلهم راضين عنا يارب العالمين واحسن يارب خاتمتنا وخاتمتهم. اللهم امين امين امين 🤲🏻 تحميل الملف من المرفقات فضلا وكرما وليس امرا لا تنسوا الدعاء لاستاذى الجليل ومعلمى القدير الدكتور حسنين و والديه من صالح دعائكم وكل المسلمين وآبائهم. كل عام وانتم بخير اقتراب حلول شهر رمضان الكريم اعاده الله عليكم وأمة محمد بخير وسعادة . تم بحمد الله. Add Copy as Path Option in Windows.rar

اضاقة بسيطة للعمل على الطريقتين الطريقة الاول قاعدة البيانات كاملة بدون تقسيم الطريقة الثانية قاعدة البيانات منقسمة الى قاعدتين امامية وخلفية فى مصدر بيانات مربع النص مباشرة ضع الكود الاتى =IIf(IsNull(DLookUp("Database","MSysObjects","Type=6 ")),[CurrentProject].[Path] & "\" & [CurrentProject].[Name],DLookUp("Database","MSysObjects","Type=6 "))

اتفضل طيب ما هو التعديل ؟ كلمة واحدة وهى Between اين تم التعديل ؟ فى الاستعلام Dfa2 فى الحقل Installmentnumbercode فى اول المعيار سداد (2).accdb

ولو اردت اسم القاعدة فقط بدون المسار الكامل استخدم =Right(DLookUp("Database","MSysObjects","Type=6 "),Len(DLookUp("Database","MSysObjects","Type=6 "))-InStrRev(DLookUp("Database","MSysObjects","Type=6 "),"\"))

بسيطة للقاعدة الخلفية =DLookUp("Database","MSysObjects","Type=6 ")

طيب ممكن سؤال اخى الحبيب واستاذى الجليل باش مهندس @Moosak لماذا لم تستحدم الكود الاتى فى مصدر بيانات مربع النص مباشرة بدون استخدام الكود فى الموديول لتوفير استخدام حجم كائن =[CurrentProject].[Path]

اعتذر لم يسعفنى الوقت لتنقيذ المطلب الثانى وعندما هممت لتحقيقه وجدت اساتذتى الافاضل بارك الله فيهم كفوا ووفوا

اتفضل Req_Link_img.accdb