ابو جودي

الحمد لله الذى هدانا وما كنا لنهتدى لولا ان هدانا الله عزوجل طيب اتفضل طلبك جاهز هدية متواضعة : مربع اختيار غير منضم فى نموذج مستمر ☺ - قسم الأكسيس 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

ولكن هذا راى ميكروسوفت تفضل النواة 32 اكثر توافقا واستقرار كما فى تلك الفقرة بل انها توصى به وليس فقط تفضله

انا اقصد الاوفيس 32 بيت وليس الويندوز 32-bit Office is recommended for most users We recommend the 32-bit version of Office for most users, because it's more compatible with most other applications, especially third-party add-ins. This is why the 32-bit version of Office 2013 is installed by default, even on 64-bit Windows operating systems. On these systems, the 32-bit Office client is supported as a Windows-32-on-Windows-64 (WOW64) installation. WOW64 is the x86 emulator that enables 32-bit Windows-based applications to run seamlessly on 64-bit Windows systems. This lets users continue to use existing Microsoft ActiveX Controls and COM add-ins with 32-bit Office.

ممكن صور من رسائل الخطأ

هات مرفق اطلع عليه لان مش فاهم كده والله انا لا عارف التصميم شكله ايه واللا انت عملت ايه واللا عارف اتخيل علشان ارد عليك