أبوبسمله

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

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

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

وفيك بارك الله خير باذن الله وان شاء الله بانتظار نتيجه التجربه بالتوفيق

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

السلام عليكم ورحمه الله وبركاته مشاركه مع اخوتى الافاضل جزاهم الله عنا كل خير اتفضل اخى @AliAli47 ان شاء الله يكون ما تريد والحل مقتبس بعد البحث عنه من الرابط التالى https://stackoverflow.com/a/57363752/12421451 Private Sub Form_Open(Cancel As Integer) Dim cdb As DAO.Database ' Database Dim imt As DAO.Recordset ' Import Table Dim rst As DAO.Recordset2 ' Events Table Dim asp As DAO.Recordset ' Multi Value Field Set cdb = CurrentDb Set rst = cdb.OpenRecordset("Table1", dbOpenTable) Set imt = cdb.OpenRecordset("Table2", dbOpenTable) rst.AddNew 'Add new record to Events Table Set asp = rst!taypes.Value ' Set asp to the AssignedPersonnel Field Value for the new Events Table Record. Do While Not imt.EOF ' Cycle through the Import Table Records asp.AddNew ' Add a new record to the asp Recordset asp.Fields(0) = imt!ID asp.Update ' Commit the changes to the asp Recordset imt.MoveNext Loop rst.Update ' Commit the changes to the Events Table Recordset DoCmd.Requery DoCmd.GoToRecord , , acLast End Sub بالتوفيق checklist_1.accdb

وعليكم السلام ورحمه الله وبركاته اتفضل اخى بالتوفيق 8889.accdb

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

واياكم اخى ما نتيجه التطبيق اخى @ابو البشر

السلام عليكم اخى @Moosak خلى بالك من تنسيق التاريخ لدى الاخ @mohamedstar19 ربما يكون هى السبب بالتوفيق

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

السلام عليكم ورحمه الله وبركاته اخى @ابو البشر شوف رد Allen Browne اضغط هنا لعلك تجد به الحل للمشكله او ارفق الملف للاطلاع عليه والمحاوله معك بالتوفيق

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

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

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

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

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

واتفضل التعديل ده قمت بعمل استعلام اخر للفرز على اكبر تاريخ النهايه وربط بينهم استعلام الاجازات الحالية كود الموظف emp_name رقم القرار تاريخ القرار نوع الاجازة تاريخ البداية تاريخ النهاية سريان الاجازة 352 وليد محمد سليمان عبد الله 2452 04/04/2022 للعمل بالخارج 08/04/2022 22/10/2022 سارية 161 دعاء محمد عطيه مراجع 7037 28/10/2021 مرافقة زوج 02/11/2021 01/11/2022 سارية 62 عباس معوض طه معوض 8123 29/11/2021 رعاية زوجة 08/12/2021 07/12/2022 سارية 129 هويدا صلاح عبد الله احمد 9198 28/12/2021 رعاية اسرة 12/12/2021 11/12/2022 سارية 329 محمد يحي عبد الحليم عبد الحليم 9197 21/12/2021 رعاية الوالدة 04/02/2022 03/02/2023 سارية 359 علاء الدين احمد محمد عبد الجيد 2136 23/03/2022 للعمل بالخارج 23/02/2022 22/02/2023 سارية 226 امجد رمضان سلومه محمد 1789 09/03/2022 للعمل بالخارج 03/03/2022 02/03/2023 سارية 168 مروه علي محمد علي نصر 2158 20/09/2022 رعاية طفل 01/04/2022 31/03/2023 سارية 331 سامح عبد الفتاح سيد سعيد 5142 04/08/2022 رعاية والدة 01/08/2022 31/07/2023 سارية 188 ناصر كمال حسين حسن 4678 18/07/2022 للعمل بالخارج 01/08/2022 31/07/2023 سارية 200 صلاح محمد احمد عبد اللطيف 8688 01/12/2020 للعمل بالخارج 20/12/2022 19/12/2023 سارية بالتوفيق سجل المحضرين - Copy.accdb

استاذ @ABOLO2 الظاهر انك لم تركز فى كلامى سوف اعيده لك بشكل اوضح من ناتج الاستعلام بتاعك استعلام الاجازات الحالية كود الموظف emp_name رقم القرار تاريخ القرار نوع الاجازة تاريخ البداية تاريخ النهاية سريان الاجازة 200 صلاح محمد احمد عبد اللطيف 8825 19/12/2021 للعمل بالخارج 20/12/2021 19/12/2022 سارية 200 صلاح محمد احمد عبد اللطيف 8688 01/12/2020 للعمل بالخارج 20/12/2022 19/12/2023 سارية الاستاذ صلاح له سجلين فى الاستعلام والمطلوب اظهار رقم القرار 8688 اللى سوف يبتدى فى 20/12/2022 وينتهى فى 19/12/2023 ازاى بقى تاريخ القرار بتاع السجل ده فى سنه 2020 وهو احدث قرار للموظف والقرار الاخر فى سنه 2021 لعل كلامى يكون واضح الان بان السجلات غير منطقيه للعمل عليها جزاك الله خيرا دكتور محمد عالمتابعه والرد على استفسارى طيب فى هذه الحاله ما هو الاجراء المتبع يدويا ؟ هل يتم اضافه سجل فالدفتر للموظف ويشار اليه تمديد ام يتم تحديث نهايه الاجازه بناء على طلب التمديد ؟

السلام عليكم ورحمه الله وبركاته مشاركه مع اخوتى واساتذتى جزاهم الله عنا كل خير ماهو وجه الخطوره دكتور محمد فانت ادرى بذلك فافدنا بالمعلومه لنتعلم وجزاك الله خيرا استاذ @ABOLO2 حاولت العمل على مثالك ولكن البيانات الموجوده غير منطقيه للعمل عليها وقمت باختيار هذا الموظف لانه هو المكرر لديك بالاستعلام بالنظر للبيانات كود الاجازه مرتب ولكن مقابله تاريخ البدايه غير مرتب فكيف ستقوم بعمل الفرز واظهار البيانات استعلام1 كود الاجازة emp_code emp_name رقم القرار VacationDecisionYear تاريخ القرار نوع الاجازة تاريخ البداية 30 200 صلاح محمد احمد عبد اللطيف 8825 19/12/2021 للعمل بالخارج 20/12/2021 50 200 صلاح محمد احمد عبد اللطيف 10920 02/12/2018 للعمل بالخارج 20/12/2018 93 200 صلاح محمد احمد عبد اللطيف 1821 27/02/2017 للعمل بالخارج 18/02/2017 247 200 صلاح محمد احمد عبد اللطيف 859 23/01/2018 للعمل بالخارج 18/02/2018 248 200 صلاح محمد احمد عبد اللطيف 9228 24/01/2019 للعمل بالخارج 20/12/2019 249 200 صلاح محمد احمد عبد اللطيف 8688 01/12/2020 للعمل بالخارج 20/12/2022 250 200 صلاح محمد احمد عبد اللطيف 113 05/01/2016 للعمل بالخارج 18/02/2016 251 200 صلاح محمد احمد عبد اللطيف 1078 09/02/2015 للعمل بالداخل 18/02/2015 252 200 صلاح محمد احمد عبد اللطيف 2322 24/02/2014 للعمل بالداخل 18/02/2014 بالتوفيق

اللهم آمين واياكم بالتوفيق

ولا يهمك ابوحوده ده لان النموذج اللى انت هتضيف منه فى حالة الاضافه بيفقد الرقم المسلسل عند الاضافه وهو مطلوب فقمت بعمل متغير ليحمل القيمه واسنادها للحقل فالحالى طول ما انت فاتح على هذا السجل Public intID As Long بالتوفيق New1.accdb

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

اللهم آمين بالتوفيق

وعليكم السلام ورحمه الله وبركاته حسب فهمى للسؤال ببساطه اعلنت عن متغيران فالوحده النمطيه 5 Public strName As String Public intNum As Long ثم اسندت لهم القيم من النماذج عند الضغط على الزر ملف الترقيات ثم عند فتح النموذج FORM_T1/2 اسندت قيم المتغيرات للحقول بالتوفيق New Microsoft Access قاعدة بيانات(1).accdb