ابوبسمله

وعليكم السلام ورحمه الله وبركاته
اتفضل
Nz(DLookup("format([Maxمنlast],'yyyy/mm')", "[LastFa7thQ]", "[رقم التسجيل]='" & Me.[رقم التسجيل] & "'"), "") بالتوفيق

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

بالتوفيق

شكرا استاذ @ahmedsaadzeed
وهذا الملف لمن اراد الاطلاع عليه والباسورد لليوزرين 123
بالتوفيق
SCAN.rar

وعليكم السلام ورحمه الله وبركاته
اتفضل اخى @salah.sarea
اول خطول عمل استعلام تجميع
ثم عمل استعلام الحاق من استعلام التجميع
بالتوفيق
123.accdb

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

السلام عليكم ورحمه الله وبركاته
مشاركه مع اخوتى الافاضل جزاهم الله عنا كل خير
اتفضل اخى @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

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

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

وعليكم السلام ورحمه الله وبركاته
اتفضل اخى احمد
بالتوفيق
test(6).accdb

وعليكم السلام ورحمه الله وبركاته
اتفضل اخى @qathi
تم التعديل ان شاء الله يكون ما تريد
Set r = MyDB.OpenRecordset("SELECT InvoiceTT.InvoiceNum, InvoiceTT.ItemId, ItemsT.ItemName, ItemsT.BarcodeReader, InvoiceTT.priceu, ItemsT.PriceS, InvoiceTT.QuantityS, InvoiceTT.sisl, tbl_curr.currNames, tbl_curr.CuCode " & _ "FROM (ItemsT INNER JOIN InvoiceTT ON ItemsT.[ItemID] = InvoiceTT.[ItemId]) LEFT JOIN tbl_curr ON InvoiceTT.CuryID = tbl_curr.currID " & _ "WHERE (((InvoiceTT.InvoiceNum)='" & [Forms]![Run]![K1] & "') AND ((InvoiceTT.sisl)=True));") بالتوفيق
 
mm.rar

تم
 

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

 
بالتوفيق
29_1.accdb

السلام عليكم
اتفضل استاذ @marwa41 ان شاء الله يكون ما تريد
سيتم انشاء ملف pdf باسم الشيت اللى انت موجود فيه والمجلد فى اى مكان فى الجهاز
Sub print_pdf() ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ Application.ActiveWorkbook.Path & "\printpdf\" & ActiveSheet.Name & ".pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True End Sub بالتوفيق
Data.rar

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

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

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

وعليكم السلام ورحمه الله وبركاته
كل عام وحضرتك طيبه استاذه @Lamyaa عيدك مبارك
بسبب الحقول الفارغه
اتفضلى تم التعديل فالكود والاستعلام
Private Sub cmdFilter_Click() DoCmd.ApplyFilter "", "[ID] Like '*" & [txtID] & "*'" & _ " AND [SName] Like '*" & [txtSName] & "*'" & _ " AND [Gender] Like '*" & [txtGender] & "*'" & _ " AND nz([A1],'') Like '*" & [txtA1] & "*'" & _ " AND nz([A2],'') Like '*" & [txtA2] & "*'" & _ " AND nz([A3],'') Like '*" & [txtA3] & "*'" & _ " AND nz([A4],'') Like '*" & [txtA4] & "*'" & _ " AND nz([A5],'') Like '*" & [txtA5] & "*'" & _ " AND nz([A6],'') Like '*" & [txtA6] & "*'" & _ " AND nz([A7],'') Like '*" & [txtA7] & "*'" & _ " AND nz([A8],'') Like '*" & [txtA8] & "*'" & _ " AND nz([A9],'') Like '*" & [txtA9] & "*'" End Sub بالتوفيق
 
Filters(1).accdb

اتفضل
قم بمراجعه التعديلات فكل من النموذج الرئيسى والفرعى للربط والليست عند الكليك
بالتوفيق
تجارب(1).accdb

وعليكم السلام ورحمه الله وبركاته
مشاركه مع اخى ومهندسنا العزيز @Eng.Qassim جزاه الله كل خير 💐
اولا يجب الابتعاد عن تسميه الكائنات كالجداول والنماذج وغيرها وكذلك عن تسميه الحقول بالعربى واستخدام خاصيه التسميه التوضيحيه واكتب فيها بالعربى واذا كان الاسم مكون اسمين
لا تستخدم مسافات بينهم يفضل الابتداء بحرف كابتل او علامه _ للفصل بينهم
بالنسبه لتصميم النموذج ليس من المنطقى وضع حقول للقيم لكل مرحله
قمت بالتعديل واستخدام استعلام التحديث وتشغيله فى حدث بعد التحديث لحقل المرحله اكتب القيم المناسبه لكل مرحله ثم قم باختيار المرحله لتحديثها
ارجو ان يكون التعديل مناسب لك
بالتوفيق اخوانى
school.accdb

السلام عليكم
مشاركه مع اخى ومهندسنا العزيز @Eng.Qassim جزاه الله عنا كل خير 💐
قاعد البيانات المرفقه هى عباره عن واجه وغير مرفق قاعده البيانات الخلفيه التى تتصل معها
قاعده البانات المرفقه مغلقه accde ومحول الامتداد لها accdb 
فيجب عليك مراجعه قاعده البيانات قبل التحويل وتعديل الكود الاخير الذى اضفته وقام بتعطيلها
بالتوفيق

اتفضل دبل كليك على حاله الصرف وسيتم اتاحه التعديل ثم عند الخروج سيتم تفعيل الوضع غير ممكن التعديل
بالتوفيق
TestLOck -2.accdb

اتفضل دبل كليك على حاله الصرف وسيتم اتاحه التعديل ثم عند الخروج سيتم تفعيل الوضع غير ممكن التعديل
بالتوفيق
TestLOck -2.accdb

اتفضل دبل كليك على حاله الصرف وسيتم اتاحه التعديل ثم عند الخروج سيتم تفعيل الوضع غير ممكن التعديل
بالتوفيق
TestLOck -2.accdb

اتفضل دبل كليك على حاله الصرف وسيتم اتاحه التعديل ثم عند الخروج سيتم تفعيل الوضع غير ممكن التعديل
بالتوفيق
TestLOck -2.accdb