kkhalifa1960

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

ممكن اقتراح ياجو خلي الترقيم حسب السنة والشهر والرقم (001-01-2026) بكده بيكون لديك حقل واحد للترقيم بدلاً من 3 حقول وايضاً ممكن الرقم يكون رقم (PCode) هل تريد ذلك ؟ أم كما انت . وافني بالرد بما تريد .

يعني بعد تعبي ومجهودي تضع تمت الاجابه لديك !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

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

تفضل التعديل والشرح . SaadPermissionsLast-1.rar الشرح.rar

تفضل استاذ @amenbkr اليك المرفق ..... اكتب كلمة البحث ثم انتر وهو سيبحث بالحقول الستة كما بالشرح . ووافني بالرد . 2008_2.rar

لا لا لكن لو عاوز يظهر ترحيب بالمستخدم ممكن نفعله

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

تفضل استاذ @رشبد اليك مرفقك ونموذجان كما بالشرح . ووافني بالرد . اخفاء و اظهار.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

تفضل/ي استاذ/ة @ruan الشرح والمرفق حسب مافهمت . ووافني بالرد . Ruan-1.rar

تفضل الشرح والمرفق . Bilal_Yamen_New-1.rar