ابو جودي

أى طريقة افضل هذه 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.

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

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

icon_Name_Path = icon_Path & "\ico\" & icon_Name

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

راجع الموضوعان فيهما كل ما تريد ان شاء الله

اهاااااااااااااا فهمت انت بدك تعمل ايقونه ع الديسك توب اختصار ؟؟

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

خليه كده icon_Name_Path = icon_Path & "\" & icon_Name & ".ico"

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

رائع جدا مشكور على الهدية القيمة

افتح الجدول اللى اسمه in2 تلاقى عمود جديد اسمه معرف المنطقة فى كل سطر لكل ادارة اختار المنطقة بتاعتها وبعدين افتح الجدول in3 تلافى عمود جديد اسمه معرف الإدارة فى كل سجل ادام كل معهد اهتار الادارة اللى يتبع ليها بس كده لما تسجل بياناتك دى كلها فى الجداول النموذج يشتغل صح

افتح الجدول اللى اسمه in2 تلاقى عمود جديد اسمه معرف المنطقة فى كل سطر لكل ادارة اختار المنطقة بتاعتها وبعدين افتح الجدول in3 تلافى عمود جديد اسمه معرف الإدارة فى كل سجل ادام كل معهد اهتار الادارة اللى يتبع ليها بس كده لما تسجل بياناتك دى كلها فى الجداول النموذج يشتغل صح