kkhalifa1960

تفضل استاذ @رشبد اليك مرفقك ونموذجان كما بالشرح . ووافني بالرد . اخفاء و اظهار.rar

تقبل الله صيامكم وقيامكم وكل عام وانتم بخير . الله أكبر الله أكبر لاإله إلا الله ....... الله اكبر الله اكبر ولله الحمد

هل تريد تسجيل دخول وخروج مستخدم النظام بجدول وعمل تقرير حسب المستخدم أو بين تاريخين أو كما تريد ؟

انشاء الله سأكمل ولكن الصبر

استاذ @2saad جرب المرفق ومعه الشرح . واذا عجبك سأنسق وأعدل وأمحو الغير مطلوب حسب طلبك بالضبط .............. ووافني بالرد . الشرح من هنا https://www.mediafire.com/file/im7x8ocnv9e1uxk/205.gif/file SaadPermissions.rar

اتفضل نتاج عملي أمس بالمرفق . RetirementDate.rar

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

1- Access Runtime 2023 (32-bit): ابحث في موقع مايكروسوفت عن: Download Microsoft Access Runtime 2023 32-bit 2- سطبه واعد تشغيل الكمبيوتر ثم اتبع التالي :- كما بالشرح . 3- حمل المجلد (RetirementDate) على فلاشة واذهب لكمبيوتر ليس عليه أوفيس وسطب (setup.exe) وبيعمل معك البرنامج بعون الله . ووافني بالرد .

انشئ موديول (ModRelinkTables) . وضع به الكود التالي :- Option Compare Database Option Explicit Public Function RelinkTables() Dim db As DAO.Database Dim tdf As DAO.TableDef Dim strOldPath As String Dim strNewPath As String Dim fDialog As Office.FileDialog Set db = CurrentDb ' افحص أول جدول مرتبط لمعرفة المسار القديم For Each tdf In db.TableDefs If Len(tdf.Connect) > 0 Then strOldPath = Mid(tdf.Connect, InStr(tdf.Connect, "DATABASE=") + 9) Exit For End If Next ' لو الملف مش موجود If Dir(strOldPath) = "" Then MsgBox "الملف غير موجود، اختر مكانه الجديد." ' افتح مربع اختيار ملف Set fDialog = Application.FileDialog(msoFileDialogFilePicker) With fDialog .Title = "اختر ملف قاعدة البيانات الجديدة" .AllowMultiSelect = False If .Show = -1 Then strNewPath = .SelectedItems(1) Else MsgBox "لم يتم اختيار ملف." Exit Function End If End With ' حدث روابط الجداول For Each tdf In db.TableDefs If Len(tdf.Connect) > 0 Then tdf.Connect = ";DATABASE=" & strNewPath tdf.RefreshLink End If Next MsgBox "تم تحديث الروابط بنجاح." End If End Function المكتبات المطلوبة: Microsoft DAO 3.6 Object Library أو Microsoft Office xx.0 Access Database Engine Object Library (لتعريف DAO.Database و DAO.TableDef) Microsoft Office xx.0 Object Library (لتعريف Office.FileDialog) Microsoft Access xx.0 Object Library (مفعّل تلقائياً) ملاحظات: استخدم Option Explicit عشان يجبرك على تعريف كل المتغيرات، وده بيمنع أخطاء وقت التشغيل. الكود بيستخدم DAO و Office بشكل صريح، فلو المكتبات مش مفعّلة هتظهر لك رسالة خطأ واضحة بدل ما يشتغل بشكل غير متوقع. تقدر تستدعي الدالة RelinkTables في حدث On Load للنموذج الرئيسي أو في ماكرو AutoExec.

ممكن مرفق لتوضيح طلبك .

تفضل استاذنا @ابو عبد الله العراقي اليك الشرح والمرفق بعد التعديل . ووافني بالرد MysData-2.rar

تفضل استاذنا @ابو عبد الله العراقي المرفق بعد التعديل بطلبك حسب ما فهمت . ووافني بالرد . MysData-1.rar

طبعاً المفروض الناتج 31/07/2060 اذا كان التقاعد عندما يصل لسن 60سنة . اليك المرفق . ووافني بالرد . Ahmad2026.rar

مجرد فكرة جرب وافني بالرد وسأكمل معك التفاصيل . Accdb Save.rar

lمشاركة مع استاذ @Foksh تفضل استاذ @2saad محاولتي حسب ما فهمت . ووافني بالرد . Saad-2.rar