kkhalifa1960

انشئ موديول (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

تفضل استاذ @اويس.. اليك نسخة محسنة .جرب واي مطلوبات او تعديلات. وافني بالرد . Health -Municipal Violations Management.rar

تفضل الشرح .

استسمحك لباكر . انشاء الله.

تفضل استاذ @اويس.. طلبك حسب مافهمت .. ووافني بالرد . Health -Municipal Violations Management.rar

Saad_2-2.rar

يجب ارفاق الموديول (ModPassWordStars(32bit_64bit)) لانه بيحول كلمة المرور الى نجوم .

استاذ @بلال بلال اليك المرفق المقترح كامل ولكي نكمل طلبك عليك بكل نموذج تضع (*) حمراء بجوار كل (كمبوبكس أو تكستبكس أو لابل ) للذي تريد عليه تغيير اللون والخط و ......... ورجعه لي بعد تحدد لاتمام العمل ........ واي تعديلات تريدها . Bilal_Yamen_New.rar

اليك نموذج مصغر للفكرة. نموذج مصغر لطلبك.rar

تفضل اقتراحي للجدول . ووافني بالرد. الجدال المقترحه باللغة الانجليزية.rar

تفضل استاذ @2saad المرفق حسب طلبك اليك الشرح والمرفق ووافني بالرد . Saad_2-1.rar

جاري العمل لكن غداً انشاء الله بتحصل نظام سيعجبك .

الجدول المشار اليه غير موجود بالمرفق .

تفضل المرفق بعد التعديل بكل طلباتك . Saad-1.rar

تفضل الشرح . ولاحظ انا لا اعتمد على المسار المسجل بل اعتمد على اسم الصورة وامتدادها ليعمل البرنامج من اي مكان طالما مجلد الصور بجوار القاعدة . Saad.rar

تفضل استاذ @2saad طلبك حسب مافهمت . ووافني بالرد . Saad.rar

فهمت طلبط وجاري العمل ........