ابو جودي

ممكن توصح اكتر حضرتك عاوز تعمل ايه

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

اعد رفع المرفق مرة أخرى

للاسف انا والله ما عارف اعمل ى شئ انا اسف جدا جدا ولكن لا تقطع لرجاء من الله ان يسهل لاحد اساتذتنا الكرام الامر ويجرى الحل على يديه ان شاء الله

الحمد لله الذى هدانا وما كنا لنهتدى لولا ان هدانا الله عزوجل طيب اتفضل طلبك جاهز هدية متواضعة : مربع اختيار غير منضم فى نموذج مستمر ☺ - قسم الأكسيس Access - أوفيسنا (officena.net)

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله تعالى وبركاته اولا واخرا وقبل كل شئ سبحانك لا علم لنا الا ما علمتنا يارب لك الحمد كما ينبغى لجلال وجهك ولعظيم سلطانك الحمد لله الذى هدانا وما كنا لنهتدى لولا أن هدانا الله عزوجل أحبابى واخوانى الكرام أضع بين اياديكم تلك الهدية البسيطة المتواضعة راجيا من الله عزوجل تنال اعجابكم ورضاكم MultiSelectInContinuousForms (V2).mdb

طيب ابشر .. انتظر بمخمخ لك فى فكرة ممكن تنفع ان شاء الله

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

فى مشكلة فى المرفق ولاحظ كلمة Unavailable

طيب شوف الفكرة دى tester.accdb

ماشى كنت لسه بارفع الحل

رائع ما شاء الله تسلم ايدك ولكن ان سمخ وقتكم الثمين برفع المرفق حتى اتعلم منكم استاذى القدير

التطبيق call Sub Routine.mdb

على كل جرب الاتى Form_SubformName.MySubroutine

أى طريقة افضل هذه Dim dt As Date Do While dt < Format(Date, "DD/MM/YYYY") If dt = (Date) - 1 Then Exit Sub DoCmd.GoToRecord , , acNewRec dt = Nz(DMax("dater1", "table1"), Format(Date, "DD/MM/YYYY")) dater1 = dt + 1 Loop أم تلك Dim db As DAO.Database Dim rs As DAO.Recordset Set db = CurrentDb Set rs = db.OpenRecordset("table1") Dim dt As Date Do While dt < Format(Date, "DD/MM/YYYY") If dt = (Date) - 1 Then Exit Sub dt = Nz(DMax("dater1", "table1"), Format(Date, "DD/MM/YYYY")) rs.AddNew rs("dater1") = dt + 1 rs.Update Loop rs.Close Set rs = Nothing

ممكن مرفق

من خلال me.Parent http://access.mvps.org/access/forms/frm0031.htm

1- اعمل ضغط واصلاح 2- اضغط القاعدة باى برنامج ضغط ملفات 3- ارفع على اى موقع رفع ملفات وهات الرابط

ممكن مرفق القاعدة

أستاذ @SEMO.Pa3x اهلا بك أستاذ حسنين عود حميد والحمدلله على كل حال واسال الله تعالى ان يثبتكم ويرزقكم الصبر وأن يجعلكم دائما من الحامدين

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

السلام عليكم ورحمة الله تعالى وبركاته أستاذي الجليل و معلمي القدير و والدى الحبيب الأستاذ @ابوخليل تحية عطرة طيبة بعد اذن حضرتك ممكن أشارك بفكرة أخرى Private Sub Form_Load() Dim dt As Date Do While dt < Format(Date, "DD/MM/YYYY") DoCmd.GoToRecord , , acNewRec dt = Nz(DMax("dater1", "table1"), Format(Date, "DD/MM/YYYY")) dater1 = dt + 1 Loop End Sub

بيان حالة موظف.zip

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

اتفضل AutoBackup 2- 64 Bit_2.rar