أبوبسمله

وعليكم السلام اخى @عزالدين المنصوري اعتذر عن التاخير فالرد بالنسبه لتخزين الوقت فهذا يتم فعلا عند فتح النموذج فالمتغير nowLogin اتفضل شوف التعديل وان شاء الله يشاركنا اخواننا واساتذتنا جزاهم الله خيرا بالتوفيق حساب الوقت_2.accdb

العفو اخى والشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا اتفضل التعديل ان شاء الله يكون كما طلبت سيتم احتساب الوقت عند فتح النموذج وتسجيل المواعيد واضافه 5 دقائق تم استخدام متغير عام على مستوى النموذج من نوع تاريخ Dim nowLogin As Date ثم فى حدث عند التحميل وضعت الكود Private Sub Form_Load() nowLogin = Format(Now(), "Medium Time") End Sub ثم فى حدث بعد التحديث لحالة الكشف Private Sub حالة_الكشف_AfterUpdate() 'nowLogin متغير ' ld متغير Dim ld ld = DLast("[وقت الحضور]", "[الكشف]", "[تاريخ]=#" & Me.تاريخ & "#") If IsNull(ld) Then Me.[وقت الحضور] = DateAdd("n", 5, nowLogin) Else Me.[وقت الحضور] = DateAdd("n", 5, ld) End If End Sub بالنسبه ل ld فهو متغير ويمكنك الاستغناء عنه بالنسبه للشروط فهو شرط 1 التاريخ = التاريخ ان شا الله اكون وفقت لشرح ما تريد بالتوفيق اخى حساب الوقت_1.accdb

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

جزاك الله خيرا معلمنا العزيز @jjafferr 💐

وعليكم السلام اتفضل انشاء الله يكون ما تريد فى نموذج الكشف وبعد اختيار نوع الكشف ستجد تم اضافه 5 دقائق ع وقت الحضور بالتوفيق حساب الوقت(1).rar

اخى @عزالدين المنصوري ممكن مثال مصغر لما لديك للتعديل من قبل اخوانك واساتذتنا بالتوفيق

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

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

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا بالتوفيق اخى

عيدكم مبارك تقبل الله منا ومنكم صالح الاعمال

السلام عليكم مشاركه مع اخوانى واساتذتى جزاهم الله خيرا 💐 بعد بعض البحث تم العمل على المثال الاخير المرفق من الاستاذ سامى عند فتح المثال سيتم فتح ع النموذج MainMenu ستجد به زرين ريسيت وتعيين اضغط رسيت ثم انظر للاعدادت كما بالصوره ستجد انه قد تم ازاله النموذج MainMenu ووضع القيمه الافتراضيه none اختار من الكمبو اى نموذج تريد ثم اضغط الزر تعيين ثم انظر الاعدادات مره اخرى ان شاء الله يكون ما تريد MyMenu1.accdb

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

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

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

شرح ع قد حالى قمنا باستدعاء المكتبه كما بالصوره والرقم 16 يتغير على حسب الاوفيس لديك ثم On Error Resume Next Dim f As FileDialog Set f = Application.FileDialog(msoFileDialogFilePicker) f.Show Me.IMG = f.SelectedItems(1) Me.Image64 = Me.IMG قمنا بعمل متغير لفتح مربع الحوار f والذى تم تعريفه بالمكتبه السابقه ثم قمنا باسناد قيمه للمتغير f تساوى قيمه فايل ثم جعلنا حقل الباث يساوى المتغير ثم عرضنا الصوره واليك رابط للاستفاده ويوجد العديد من الشروحات القيمه هنا بالموقع ابحث عنها https://analystcave.com/vba-application-filedialog-select-file/ بالتوفيق اخى

وعليكم السلام اتفضل ان شاء الله يكون ما تريد FAILURE.accdb

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

جزاك الله كل خير معلمنا العزيز جعفر 💐

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا 💐 بالتوفيق

اتفضل استاذ @mohamed elalfy لديك الجدول MSysObjects تجده مخفى وتجد به اسماء الجداول والفلاجات و id تم تغير Flags على حسب الجدول السابق SELECT MSysObjects.Name FROM MSysObjects WHERE (((MSysObjects.Flags)=262144) AND ((MSysObjects.Type)=1)); بالتوفيق ان شاء الله نقل بيانات من جدول إلى جدول (4).accdb

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

حبيبى الغالى فايز انا طالب بتعلم معكم صدقنى ما زلت احبو واتعلم معكم فلولا اسئلتكم ما تعلمت شيئا فالفضل لله ثم لاخواننا واساتذتنا جزاهم الله خيرا ثم لكل اخ عزيز يضع سؤال واحاول وافكر واضع اجابه على قدر فهمى للسؤال وفى بعض الاحيان اعجز عن فهم السؤال فاتركه لاخوانى واساتذتى فهم اعلم منى واتعلم من حلولهم وان شاء الله نتعلم سويا ونرتقى اخى فايز ونفيد اخواننا كما نستفيد من اخواننا واساتذتنا جزاهم الله خيرا واياكم اخى الحسامى فى النموذج فى حدث فالحالى وضعت كود لجلب اخر قيمه لحقل الباقى عند الادخال الجديد Private Sub Form_Current() If Me.NewRecord Then Me.رصيد = Nz(DLast("باقى", "ti"), 0) End If End Sub ان شاء الله تكون وصلت الفكره بالتوفيق اخوانى امممممممممممممم طيب هنشوف حل ان شاء الله ولعل احد اخوه والاساتذه يساعد ان شاء الله بس فيه سؤال انت بتجرب بس ولا هو ممكن تعدل قيد سابق فعلا ؟

وعليكم السلام مشاركه لاخى الفاضل @فايز.. جزاه الله كل خير هل هذا ما تريد ؟ جرب ادخال سجل جديد فالنموذج الارصدة.accdb

وعليكم السلام اتفضل وان شاء الله يشتغل معاك بالتوفيق New_1.accdb

طبيعى ده المفروض اللى يحصل وهذ ما كان يقصده اخى حسام جزاه الله خيرا فقمت بالتعديل حسب الموجود والموضح فقط ولكن اذا اعتمدنا كلامك اخى @فايز.. فالافضل كما قال اخى حسام جزاه الله خيرا التعديل فى بنيه الجداول وفصل بيانات الموظفين فى جدول ويتم اضافه كود الموظف بالفرع ثم تحديثه عند العوده والعمل مره اخرى على الفرع الجديد مع الحفاظ على رقم الموظف بالفرع الذى كان به حتى تكون لدينا سجلات هذا الموظف بكل فرع عمل به اما بخصوص الرساله التى تظهر للاستاذ محمد فاشرت اليه بهذا الرابط ولا اعلم هل قام بزيارته ولاطلاع عليه ام لا ؟ جزاك الله خيرا معلمنا العزيز جعفر @jjafferr 💐 ع هذه الروابط وان شاء الله الاستاذ محمد يطلع عليها ويخبرنا بالنتيجه ان شاء الله بالمساء @mohamed elalfy انظر لمثالك الجديد بعدما ارتاح قليلا من العمل بالتوفيق اخوانى واساتذتى