=============================================( صور + مرفق + فيديو )
Update: 🌹
1- اضافة تغير الاتجاه مع اتجاه الارتساء افقي وعامودي ببساطة
'**************( HorizontalAnchor ) ********* ( ارتساء افقي )
'( acHorizontalAnchorLeft 0 )=========( 0 يسار
'( acHorizontalAnchorRight 1 )=========( 1 يمين
'( acHorizontalAnchorBoth 2 )=========( 2 كليهما
'**************( VerticalAnchor ) ********* ( ارتساء عاموديí)
'( acVerticalAnchorTop 0 )=========( 0 اعلى
'( acVerticalAnchorBottom 1 )=========( 1 اسفل
'( acVerticalAnchorBoth 2 )=========( 2 كليهما
Forms(frm).Controls(Button).HorizontalAnchor = 1
Forms(frm).Controls(Button).VerticalAnchor = 2
2- اضافة قائمة التبديل من القائمة الرئيسية مع تثبيت كل النماذج والتقارير بالتوجيه مع الارتساء
3- اضافة كتاب طريقة الاستخدام
- اشلون تثبت التنسيقات من نوع الخط وحجم الخط لكافة النماذج والتقارير
-اشلون تسخدم تغير توجيه النموذج مع الارتساء بنموذج واحد فيه الدوال والاكواد وينفعك عند تغير اللغة او عمل آخر
تابع الفيديو للتوضيح اسفل الموضوع + تحميل المرفق
☕
=============================================( مرفق + فيديو )
تحميل المرفق
https://www.mediafire.com/file/0ayif5vc4arcoi3/Update_V1_2+Tools_Run_All_Forms_Reports_With_Change_MS_Access.rar/file
الاداة مفتوحة المصدر 😎
يمكنك التعديل وتقديم الحلول والاقتراحات
==================================================
تحديث على الصاروخ 😂
1- تحديث قائمة اسماء الاوراق الاكسل تلقائي
Me.lst_xls_Sheets.RowSource = ""
2- خيار المستخدم اذا كان الملف للقراء والكتابة او للقراءة فقط
3- من غير عرض التصميم بعد التنفيذ
=======================================
الاداة مفتوحة المصدر 😎
يمكنك التعديل وتقديم الحلول والاقتراحات
حجم المرفق : 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))
ما ينفع تلحق حقل رقم بحقل نص ؟!!☕
تطابق نوع الحقول من اكسل الى اكسس والعكس
hanan_ms's post in اداة لاعادة تعين التنسيقات لكل النماذج والتقارير مع تغير اللغة والترجمة الكائنات كل دفعة واحده الى اكسس (Tools_Run_All_Forms_Reports_With_Change_V1_MS_Access) was marked as the answer