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

شكرا لك على هذا الكلام الطيب اخي الكريم تفضل التعديل قائمة المجلدات قابلة للتعديل كل مره تضيف فيها مجلد جديد راح يتم انشائه بشكل تلقائي عند اضافة صورة المجلدات راح يتم اضافتها لكل رقم وظيفي s.zip

السلام عليكم ورحمة الله جزا الله أساتذتنا خيرا من وجهة نظري ان هذا الكود القصير يفي بالغرض ويستخرج اسم اليوم من التاريخ وسيظهر اسم اليوم باللغة الاقليمية للجهاز سواء كانت اعدادات اللغة عربية او اجنبية Format(Filed_date,"dddd") 'Replace the filed_date with what youer filed date name واثمن كل جهود اساتذتنا اما وان رمت الاجتهاد فيمكنك التعديل علي كود استاذنا ابا جودي بأن تقوم بتغير اسماء المتغيرات الي اللغة الانكليزية هكذا Public Function DayName(dtDate,lng) Dim strSat As String Dim strSun As String Dim strMon As String Dim strTues As String Dim strWed As String Dim strThurs As String Dim strFri As String if lng=0 then strSat = ChrW("1575") & ChrW("1604") & ChrW("1587") & ChrW("1576") & ChrW("1578") strSun = ChrW("1575") & ChrW("1604") & ChrW("1575") & ChrW("1581") & ChrW("1583") strMon = ChrW("1575") & ChrW("1604") & ChrW("1575") & ChrW("1579") & ChrW("1606") & ChrW("1610") & ChrW("1606") strTues = ChrW("1575") & ChrW("1604") & ChrW("1579") & ChrW("1604") & ChrW("1575") & ChrW("1579") & ChrW("1575") & ChrW("1569") strWed = ChrW("1575") & ChrW("1604") & ChrW("1575") & ChrW("1585") & ChrW("1576") & ChrW("1593") & ChrW("1575") & ChrW("1569") strThurs = ChrW("1575") & ChrW("1604") & ChrW("1582") & ChrW("1605") & ChrW("1610") & ChrW("1587") strFri = ChrW("1575") & ChrW("1604") & ChrW("1580") & ChrW("1605") & ChrW("1593") & ChrW("1577") else strSat = Saturday strSun = Sunday strMon = Monday strTues = Tuesday strWed = Wednesday strThurs = Thursday strFri =Friday end if DayAr = Choose(Weekday(dtDate), strSun, strMon, strTues, strWed, strThurs, strFri, strSat) End Function وتستدعي الدالة بهذا الشكل me.d = DayName(date_filed,0) '-> For Arabic me.d = DayName(date_filed,1) '-> for English والسلام

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

ممكن ارفاق مثال بدون بيانات لنتعرف موطن الخلل

أخي العزيز أنا حليت هذي المشكلة ولله الحمد والفضل عن طريق وضع نسخة التحديث في مجلد على الشبكة الداخلية مثلما ذكرت أنت .. وبالاستعانه ببرنامج ال WinRAR يقوم بتنصيب النسخة الجديدة في جميع الأجهزة .. لعلي أجد فرصة لشرح ذلك في مقطع فيديو لاحقا بإذن الله .. ولكن في عجالة هذه هي الطريقة : 1- إنشاء جدول في ملف الواجهات ال Front End ووضع حقل واحد فيه وسجل واحد وهو حقل تاريخ يكتب فيه [تاريخ النسخة الحالية] وهذا الجدول لا يتم نقله إلى ملف الجداول ال Back End بل يضل في نسخة الواجهات . 2- جدول آخر يكون في ملف الجداول ال Back End وهو جدول إداري تضع فيه حقلين الأول [تاريخ آخر تحديث] و الثاني حقل نعم/لا [هل تريد تحديث النسخة؟] وتتحكم به من عندك (النسخة الإدارية) . 3- تعمل ماكرو AUTOEXEC يعمل عند فتح قاعدة البيانات .. وهذا الماكرو يشغل بدوره كود وظيفته كالتالي : أولا يذهب لخانة [هل تريد تحديث النسخة؟] ... إذا كنت وضعت عليها ☑️ ينتقل للخطوة التالية ، وإذا فاضي يخرج من ال sub . ثانيا يقارن بين التاريخين ، التاريخ الموجود في الجدول الذي أنشأته لمعرفة [تاريخ النسخة الحالية] في الخطوة رقم (1) وبين التاريخ الموجود في الجدول الإداري [تاريخ آخر تحديث] في الخطوة رقم (2) ، فإذا كان [تاريخ آخر تحديث] أصغر من أو يساوي <= [تاريخ النسخة الحالية] يخرج من ال sub ، وإذا كان [تاريخ آخر تحديث] أكبر من > [تاريخ النسخة الحالية] فإنه ينتقل للخطوة التالية ويقوم بتحديث النسخة . بعد عملية التحقق من أن هناك تحديث جديد كما مر في الخطوتين السابقتين ، تطلق رسالة بزر واحد [OK] مفادها (( أن هناك تحديث جديد ستقوم بتحميله بعد قليل )) .. بعدها يقوم الأكسس بفتح برنامج ال WinRAR الذي بدوره سيقوم بتنصيب التحديث الجديد في جهاز المستخدم واستبدال النسخة القديمة بالجديدة . قبل أن يعمل برنامج ال WinRAR بتنصيب التحديث الجديد ، تتأكد من إغلاق الأكسس (عن طريق الكود نفسه) وذلك مباشرة بعد تشغيل ال WinRAR ، وإلا فسيواجه ال WinRAR مشكلة في استبدال الملف القديم . سيقوم برنامج ال WinRAR تلقائيا بفتح النسخة الجديدة بعد تثبيتها. وبذلك يتم تحديث ملف الواجهات فقط بنقرتين .. 😉 طبعا يجب الانتباه إلى تحديث [تاريخ النسخة الحالية] إلى نفس تاريخ [تاريخ آخر تحديث] في الجدول الموجود في النسخة المطورة وإلا فستقع في دوامة التحديث اللانهائي . بالنسبة لبرنامج ال WinRAR هناك إعدادات خاصة به أيضا لتحويله إلى ملف تنفيذي exe وإعطائه أمر استبدال الملفات القديمة بالحالية وتشغيل النسخة الجديدة ( وهذا جزء هام طبعا في هذه العملية كلها) ولكن للأسف لا يسعني ذكرها الآن ، ولكنك قد تجد ضالتك في هذا الفيديو بإذن الله .. https://www.youtube.com/watch?v=MZHuoV7pd7E&t=410s هذا والسلام عليكم

تفضل اخي هذا التنسيق الذي وضعه أ / محمد صالح تم تطبيقه على الملف المرفق تنسيق شرطي.xlsx

جزاك الله كل خير متشكر جدا جدا والله مش عارف أشكر حضرتك ازاي أثابك الله وجعل جهدك في ميزان حسناتك يارب وفك كربك وحفظك وحفظ أولادك من كل شر اللهم امين يارب العالمين.

اتفضل اخي واسف على التأخير برنامج حجز قاعات 2021.xlsm

تفضلي هذا التعديل البحث - بــ / أو الرقم أو نطاق الرقم - بـــ / أو التاريخ او نطاق التاريخ test.zip

ضع الكود الاتى فى موديول Public Function DayAr(dtDate) Dim strSat As String Dim strSun As String Dim strMon As String Dim strTues As String Dim strWed As String Dim strThurs As String Dim strFri As String strSat = ChrW("1575") & ChrW("1604") & ChrW("1587") & ChrW("1576") & ChrW("1578") strSun = ChrW("1575") & ChrW("1604") & ChrW("1575") & ChrW("1581") & ChrW("1583") strMon = ChrW("1575") & ChrW("1604") & ChrW("1575") & ChrW("1579") & ChrW("1606") & ChrW("1610") & ChrW("1606") strTues = ChrW("1575") & ChrW("1604") & ChrW("1579") & ChrW("1604") & ChrW("1575") & ChrW("1579") & ChrW("1575") & ChrW("1569") strWed = ChrW("1575") & ChrW("1604") & ChrW("1575") & ChrW("1585") & ChrW("1576") & ChrW("1593") & ChrW("1575") & ChrW("1569") strThurs = ChrW("1575") & ChrW("1604") & ChrW("1582") & ChrW("1605") & ChrW("1610") & ChrW("1587") strFri = ChrW("1575") & ChrW("1604") & ChrW("1580") & ChrW("1605") & ChrW("1593") & ChrW("1577") DayAr = Choose(Weekday(dtDate), strSun, strMon, strTues, strWed, strThurs, strFri, strSat) End Function يمكنك الان الحصول على اسم اليوم بالعربية لاى تاريخ من خلال استدعاء الروتين السابق باحد الاكواد الاتية - اسم اليوم الحالى من التاريخ الحالى DayAr(Date()) اسم اليوم بناء على تاريخ ما DayAr([[Fild Date Name])

الله يبارك لك استاذى الحبيب ابا جودى تمام تسلم ايدك اخى اغرقتنا بكرمك اغرقك الله بالنعم والخير يارب يارب يارب الشكر موصول للاستاذ أبو عبدالله الحلوانى الشكر للاستاذalzahrani2014

طيب جرب كده ........ kan_الغياب.accdb

الله الله الله تسلم ايدك استاذى الحبيب نجاح باهر رزقك الله خير الدارين اللهم امين يارب احبك فى الله اخيك

الحل كالاتى ادخل الى النموذج فى وضع التصميم ومربع النص هذا اسمه فى النموذج مربع_تحرير_وسرد95 من الخصائض الخاصة به فقط امسح General Number

اتفضل ان شاء الله تجد ضالتك Disabling application close button.mdb

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

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

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

https://support.microsoft.com/ar-sa/office/-مواصفات-access-0cf3c66f-9cf2-4e32-9568-98c1025bb47c

تظهر في وضع التصميم لكن في وضع العرض تختفي

جرب حول الحقل الى رقم تلقائي واكتب في التنسيق 000"k"

ظهر وغير مفعل علي ما اعتقد ويمكنك الغاء البوكس كله من الخاصية التي بالأعلي من هذه الخاصية control box = no

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

بارك الله فيكم ورضى الله عنكم وارضاكم استاذى الجليل

استاذى الجليل ومعلمى القدير واخى الحبيب الاستاذ @أبو عبدالله الحلوانى بعد جزاكم الله خيرا هذا المرفق على طريقتكم سلمتم ودمتم لنا وبارك الله لنا فيكم وكل اساتذتنا العظماء DayuNameArabic. & English.mdb

نعم من خصائص الفوم في وضع التصميم للفورم من خصائص عدل علي خاصية close button الي لا اعتذر لا استطيع ارفاق صورة توضيحية الآن ولكن ارجو ان يكون الكلام واضح لو حاولت التطبيق قليلا

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

السلام عليكم لست بحاجة الي اكود يمكنك اخفاء هذا الشريط من خصائص الفورم من خاصية close button غيرها الي لا وكذلك زري التكبير والتصغير اظهرهم او اخفهم كيف شئت تمنياتي بالتوفيق

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

إضافة لإجابة أستاذنا العزيز أبا جودي ، في النسخ الجديدة من البرنامج ستجد حقل (النص الطويل) أسمه Long text

تفضل التعديل تصدير للاكسيل.zip

هي المشكلة صعبة ولا ايه الهمة يا رجالة

=EDATE(A3;3) المعادله صحيحه هو فقط اختلاف نسخه الاوفيس اكتب المعادله هكذا سوف تعمل معك بشكل صحيح

احسنت استاذ ابا جودي شغل عدل لا عدمناك يالغالي تقبل اجمل تحية وتقدير

شكرا جزيلا ، بارك الله فيك 💖

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

عليكم السلام ورحمة الله وبركاته يمكنك استعمال هذه المعادلة في الخلية F12 =INT((F10-F7)/7) وفي الخلية F14 =MOD(F10-F7,7) مع مراعاة الفاصلة والفاصلة المنقوطة بالتوفيق

تمت كتابة الرسائل بالعربية ولضيق وقتى لم احولها لـ unicode ولكن لا انصح بكتابة العربى داخل محرر الاكواد تم تنقيح وتعديل بعد الاخطاء تم تفعيل الحذف ويتم معه حذف السجلات الفرعية والمرتبطة بالسجل الرئيسي والصورة تم تعديل ظهور الصورة بالتقرير Data Registration (v. 3).mdb

عمل ممتاز ولكن الصورة لا تظهر في التقرير

وعليكم السلام اخي ابو الحسن قم بعمل نموذج المخازن من جدول المخازن .. ثم اضف ما تشاء من مخازن

انصحك بعدم استخدام المسميات العربية ففي مثل هذه الدوال يصعب عليك معرفة اول الشرط من آخره

@ابا جودى الشكر والتقدير والامتنان لاستاذنا الجليل

تم ايجاد الحل عن طريق دالة LN شكرا للجميع

استخدم هذا ..... Me.a = WeekdayName(Weekday(Date), False) أو ..... Me.a = Format(Date, "ddd")

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

بسم الله ما شاء الله ... أستاذ محمد صالح جزاك الله خيرا وزادك الله من نور علمه ....

وعليكم السلام ورحمة الله وبركاته تفضل وفقك الله تعالى بطاقة المعلم- تعديل.xlsx