hanan_ms

الاداة مفتوحة المصدر 😎
 يمكنك التعديل وتقديم الحلول والاقتراحات 
==================================================
تحديث على الصاروخ 😂
1- تحديث قائمة اسماء الاوراق الاكسل تلقائي 
Me.lst_xls_Sheets.RowSource = "" 2- خيار المستخدم اذا كان الملف للقراء والكتابة او للقراءة فقط 
3- من غير عرض التصميم بعد التنفيذ 
=======================================

تحميل بالمرفق :
Update_Link_File_excil_With_editor_Ms_Access.rar

الاداة مفتوحة المصدر 😎
 يمكنك التعديل وتقديم الحلول والاقتراحات 
حجم المرفق : MB 2.333 
تحديث الاداة شبكة القواعد بيانات بنطاق الجغرافي :
1-FIX_AT تعديل  بعض الواجهات مع التصحيح
2- اضافة تصفير القاعده من خلال واجهة الرئيسية عند الاقلاع يقوم بتصفية الملفات والبيانات وحذف بتأسيس جديد للمشروعك
*(   شاهد كيف تصفير القواعدة والملفات الى بداية التأسيس واضافة قواعدك بسهول من خلال الاداة من حيث الاضافة وتعديل والعرض (فيديو اسفل الموضوع))* 😁
3- اضافة احصائية على سبيل المثال القضايا الربحانه من القضايا الخسرانه  يبدأ من او قاعده الى آخر قاعده تم انشائها بستدعاء كود التحديث عند حدث الاغلاق
كود:
Dim strsql As String Dim strsq2 As String Dim strsq3 As String Dim strsq4 As String Dim strsq5 As String Dim strsq6 As String Dim rung As Integer For rung = 1 To 7 If rung = 1 Then If IsNull(DLookup("[قضايا_الربحانه_A4]", "[File_Me_Customer]")) Then Else strsql = "Update ID_Card Set قضايا_الربحانه_A4 = '" & DLookup("[قضايا_الربحانه_A4]", "[File_Me_Customer]") & "'" & _ "WHERE number_ID = '" & DLookup("[ID_Card]", "[A_Link_A_ID_Card]") & "';" CurrentDb.Execute strsql, dbFailOnError End If End If If rung = 2 Then If IsNull(DLookup("[قضايا_خسرانه_A5]", "[File_Me_Customer]")) Then Else strsq2 = "Update ID_Card Set قضايا_خسرانه_A5 = '" & DLookup("[قضايا_خسرانه_A5]", "[File_Me_Customer]") & "'" & _ "WHERE number_ID = '" & DLookup("[ID_Card]", "[A_Link_A_ID_Card]") & "';" CurrentDb.Execute strsq2, dbFailOnError End If End If If rung = 3 Then If IsNull(DLookup("[تأخير_سداد_A6]", "[File_Me_Customer]")) Then Else strsq3 = "Update ID_Card Set تأخير_سداد_A6 = '" & DLookup("[تأخير_سداد_A6]", "[File_Me_Customer]") & "'" & _ "WHERE number_ID = '" & DLookup("[ID_Card]", "[A_Link_A_ID_Card]") & "';" CurrentDb.Execute strsq3, dbFailOnError End If End If If rung = 4 Then If IsNull(DLookup("[تأخير_التحصيل_A7]", "[File_Me_Customer]")) Then Else strsq4 = "Update ID_Card Set تأخير_التحصيل_A7 = '" & DLookup("[تأخير_التحصيل_A7]", "[File_Me_Customer]") & "'" & _ "WHERE number_ID = '" & DLookup("[ID_Card]", "[A_Link_A_ID_Card]") & "';" CurrentDb.Execute strsq4, dbFailOnError End If End If If rung = 5 Then If IsNull(DLookup("[اجمالي_تم_الانتهاء_وسداد_A8]", "[File_Me_Customer]")) Then Else strsq5 = "Update ID_Card Set اجمالي_تم_الانتهاء_وسداد_A8 = '" & DLookup("[اجمالي_تم_الانتهاء_وسداد_A8]", "[File_Me_Customer]") & "'" & _ "WHERE number_ID = '" & DLookup("[ID_Card]", "[A_Link_A_ID_Card]") & "';" CurrentDb.Execute strsq5, dbFailOnError End If End If If rung = 6 Then If IsNull(DLookup("[اجمالي_مبلغ _المتبقي_A9]", "[File_Me_Customer]")) Then Else strsq6 = "Update ID_Card Set اجمالي_مبلغ _المتبقي_A9 = '" & DLookup("[اجمالي_مبلغ _المتبقي_A9]", "[File_Me_Customer]") & "'" & _ "WHERE number_ID = '" & DLookup("[ID_Card]", "[A_Link_A_ID_Card]") & "';" On Error Resume Next CurrentDb.Execute strsq6, dbFailOnError End If End If If rung = 7 Then End If Next rung ======================================( بتحديث الاداة )
ان وجد تعديل وازالة النماذج والدوال الزائد (ازالة المخالفات) مع بعض التعديلات 
=====================================================( فيديو + مرفق )

===================================================
تحميل نسخة الاداة شبكة القواعد بيانات بنطاق الجغرافي
https://www.mediafire.com/file/ryic2rk8eesw72v/Auto_Linkdb_ToolsAll_Add_Editor_Back_UP_Ms_Access.rar/file

@2saad ❤️🌹🌹
تفضل طريق تتعامل معها لجميع الاصدارات الاكسس 
تقريبا 
بسيط ربط ملف اكسل بالاكسس والحاق بالجدول مع تحديث الملف 
(( Link_File - Link_db - Link... UrL))
ما ينفع تلحق حقل رقم بحقل نص ؟!!☕
 تطابق نوع الحقول من اكسل الى اكسس والعكس

Give_From_File_Ms.Excl_To_Any_Ms.Access.rar