مرفق بآلية الربط بالقواعد اكسس مجزء فقط اختيار السنة مع طلب

[hanan_ms]

برنامج بسيط بفضل الاستاذ محمود عبدالغفار 

عدلة علية فقط اختيار سنة ربط الكل بالملفات الفرعية 

من غير تحديد الربط كامل بسجل 

خطوات بيسطة 

اختر ملف القواعد صفرية للبرنامج -1

2-اختر جديد ثم اكتب اسم السنة مع الترميز واختيار مكان حفظ ثم اختيار حفظ وتطبيق 

3- تخصيص الربط + فحص + اختيار الملف الفرعي 

ملاحظة : اعدادة الربط مره واحدة لتطبيق على الكل 

للتوصيح متابعة الفيديو 

 

وطلبي عند افتح اي فورم تحويل كود الفحص  الى ميدوال يعطي شرط اذا 1 او 0 

للفتح الفورم او حفظ البيانات او اي عملية كود ان يكون الشرط قواعد مربوطه = 1

بزر تجربة فتح الفورم مع تأكد شرط الاتصال

اما كلمة المرور موضوع مستقل 😇

 

Link_Chack_OPenForm_Ms_Access.rar

تم تعديل أكتوبر 6 بواسطه hanan_ms

[hanan_ms]

تحديث مع نفس الطلب

اضافة جداول بضمها بقاعدة واحدة بنفس الاسم + فحص اذا كانت محلية تحذف ويضاف الربط بسؤال 

21 hours ago, hanan_ms said:

 

وطلبي عند افتح اي فورم تحويل كود الفحص  الى ميدوال يعطي شرط اذا 1 او 0 

للفتح الفورم او حفظ البيانات او اي عملية كود ان يكون الشرط قواعد مربوطه = 1

بزر تجربة فتح الفورم مع تأكد شرط الاتصال

2- اضافة قواعد دائمة لكل سجل جدول وربط فقط تحديد مكان الفولدر بتحديث اكمل 

يمكن ان الموقع اغلق انشاء حساب للزوار فقط المسجلين او المعلومة غلط 

:Password = " " )

بموضوع مستقل لا يوجد داله بدل من الكود او عمل فورم يتأكد من الفحص قبل التنفيذ

Editor_Link_Add_table_Ms_Access.rar

[hanan_ms]

احدث مش حد امعبرني 😂

انا احل طلبي !

1- جلب اسماء الجداول مع فتح القاعدة +

2- ربط لكل سجل قاعدة 

بتحديث بلنك بحث 1- 00 الى رقم القومي المدني ربط وفتح

اضافة حقلين بالجدول آخر قاعدة ما خلصة 2GB 

ربط واضافة رقم القومي المدني

==============================

وشوف الحل بدنا داله ما تسألش عن المنطق 😂

اضغط الزر لسجل التالي لحظة اسكر وافتح ثاني ده مش شغلانه يا قدعان

 

ID_Card_Link_AndUpdat.rar

[hanan_ms]

تم حل من غير انتظار عرض النموذج عند الربط 

1- عرض القواعد البيانات على نطاق جغرافي

جرب الاضافة والربط ☕

بس يمكن بتحديث استبدال طريقة دوران القواعد بطريقة ثانية 😇

 ؟! وينكم 

هي صعبة لدرجة دي  😂

 

 

Link_Into_Link_MS_Access.rar

[Foksh]

حاولت الوصول إلى معنى واضح ، لكن ما قدرت 😅

 

اذا امكن اختنا الفاضله انك توضحي طلبك بشكل بسيط حتى لو 10000 جملة 😇

المهم انك توصلي فكرة السؤال والطلب ببساطة 

[hanan_ms]

استاذ @Foksh ❤️🌹

  ( اعتبر ان البرنامج ( اداة 

ببساطة فالبعض يربط الجداول بالمفهوم القاصر لكل سنة قاعدة جديده ؟! لنفترض الحسابات 

المفترض 

1- جدول Ram 

*جمع الحسابات الغير منتهية 

مع جدول + رأس الاجماليات من مبالغ واسماء (احصائية) وتكون بسجل واحد بسجل القاعده الربط 

2-جدول الترحيل *

يقيس حجم مساحة التخزين الجدول المرتبط اذا كان 2 جيجا ينشأ تلقائي قاعدة جديدة ويعبي

3- محرك بحث 

* يقوم بربط من اول قاعدة منشأه عن طريق الاستعلام اذا كان رقم فريد يربط القاعدة 

* اما اذا كانت بحث من اول قاعدة الى قاعدة 36 عن اسم Foksh

اكثر من اسم = اكثر من سجل

4- يلحق البيانات الى جدول Ram Qury

======================================

14 hours ago, Foksh said:

المهم انك توصلي فكرة السؤال والطلب ببساطة 

ببساطة الطلب هو دالة 

1- تقوم بربط عن طريق Dlookup

2- دالة او كود تبحث عن جداول تربط من قاعدة 1 الى آخر قاعدة 36 

عند العثور على الاسم  يفتح الفورم للرقم المدني 

عند الاستعلام يلحق الى جدول الثالث يلتف من القاعدة الاولى الى آخر قاعدة 

وسلامتك استاذ  @Foksh

==============================================

اما في الاعلى اداة أختيار حسب طبيعة بيانات المشروع اما بنطاق جغرافي او كل سنة او تصفية وترحيل ..☕❤️🌹

[Foksh]

يعني على فرضاً ان لديك 10 قواعد بيانات ( واحدة منها الرئيسية ، والـ 9 الباقيات هن قواعد بيانات الجداول ) ، وتريدين استخدام الدالة DLookup للبحث عن سجل محدد داخل جدول محدد ، بحيث يقوم الكود ( الذي تريدينه ) بالبحث عن هذا السجل ولكن داخل جميع قواعد البيانات الخلفية ( الخاصة بالجداول ) !!!!!!!!!!!!!!!!!!   

 

أتمنى أن لا يكون هو المقصود 

[hanan_ms]

40 minutes ago, Foksh said:

DLookup

!!\\\.accdb مسار الربط 

المطلوب

البحث من اول سجل = من اول قاعدة 

 الدوران الى آخر سجل  

لكل سجل اعادة ربط وفحص

 ربط واستعلام بشرط ان كان البحث رقم فريد فتح نموذج اما اذا كان اسماء = سجلات  حذف والحاق بجدول مع فتح نموذج *

آلية الدوران اما كود او دالة 

بس 

بنتظارك استاذ @Foksh🌹❤️☕

[Foksh]

إن كنت في البداية قد فهمت المطلوب ، فالآن للأسف لم افهم 

[hanan_ms]

شنو الي ما فهمتة ؟ ☕

عشان اوضح لك استاذ @Foksh 

[Foksh]

1 ساعه مضت, hanan_ms said:

ببساطة الطلب هو دالة 

1- تقوم بربط عن طريق Dlookup

2- دالة او كود تبحث عن جداول تربط من قاعدة 1 الى آخر قاعدة 36 

عند العثور على الاسم  يفتح الفورم للرقم المدني 

عند الاستعلام يلحق الى جدول الثالث يلتف من القاعدة الاولى الى آخر قاعدة 

- ما المقصود بالربط من قاعدة 1 الى آخر قاعدة 36 ؟؟؟؟؟؟

- ما علاقة Dlookup البحث عن سجل بالربط !!!

- عند الاستعلام يلحق الى جدول الثالث يلتف من القاعدة الاولى الى اخر قاعدة !!!!

حاولت الربط بين الأفكار ولم استدل على المعنى والمطلوب .

[hanan_ms]

5 minutes ago, Foksh said:

- ما المقصود بالربط من قاعدة 1 الى آخر قاعدة 36 ؟؟؟؟؟؟

عند البحث 

عند كل سجل مسار لقاعدة البيانات /عند بداية دوران يربط يتحقق من الشرط ثم التالي الى آخر سجل 

بشرط التحقق من الاستعلام اذا كانت يوجد بيانات ينفذ اذا لم يجد بيانات يستمر

الى السجل التالي 

الى آخر سجل 

اما قاعدة 36 رقم افتراض الى 1000 (الى آخر سجل

10 minutes ago, Foksh said:

ما علاقة Dlookup البحث عن سجل بالربط !!!

 هذا مسار القاعد للربط

واذا كان البحث بأسم او رقم فريد بسجل واحد فقط 

 

11 minutes ago, Foksh said:

- عند الاستعلام يلحق الى جدول الثالث يلتف من القاعدة الاولى الى اخر قاعدة !!!!

شرط في الكود اذا كان الاستعلام اكثر من سجل في القاعدة الواحده

تصفية وحذف بيانات جدول ونفترض اسمة

Qury

حذف السجلات 

تنفيذ الكود ونتفترض 

rs.editor 

rs.filde(record  link)

if dcount("[id]","Qury") =0 then

else

docmd.openQury

end if

rs.move

next 

rs.nothng

or 

Loop

===================================

المطلوب بختصار بحث عن رقم او اسم بكافة قواعد البيانات ولكل قاعدة بيانات مسار في السجل ويبدأ الكود من او سجل إلى آخر سجل فقط

☕

[hanan_ms]

تحديث وتوضيح لك استاذ @Foksh

1-فصل الواجهة واجهة الامامية تغير عند الاختيار اما نطاق الجغرافي لحاله

2- اضافة ميزة النسخة الاحتياطية لمفهموك القواعد الخلفية 

عند الاشاء الاساسي 

وعند اغلاق للقواعد الفرعية 

3-ميزة استبدال نسخة بالاساسي و الكل من غير استخدام جدول Ez

====================================

ملاحظة الطلب عند البحث ( يأخذ بس آخر سجل ويبحث فية ) ؟! 😇

شوف زر بحث وعرض البيانات 

تابع الفيديو 

بنتظارك استاذ @Foksh 🌹❤️☕

تحميل المرفق 

https://www.mediafire.com/file/tgobjoul2e31ixn/up_date_Link_x3.rar/file

[hanan_ms]

شكرا استاذ @Foksh ☕🌹

انسخ الكود واستبدلة 😁

ولا تنسى بعد التجربة عطني النتيجة

هذا الكود طيارة اذا شافة الرقم القومي عند التفاف لكل قاعدة اعادة ربط يفتح مع ربط الرقم القومي 

استبدل الكود بزر محرك البحث عند الرقم القومي 

If IsNull(Me.SHX) Or Me.SHX = "" Then
MsgBox " ÇÏÎá ÑÞã ÇáÞæãí ÇáãÏäí ", vbCritical, "Close Don"
Exit Sub
End If
'===================================( Run Chack All Speed ) No Need Run DOA.36 = 32 Bit = Error Old List For instoll this Error DOA.36 on Drive Dll $ !!
Dim Tb As DAO.TableDef
Dim db As DAO.Database
Dim RS As DAO.Recordset
Set db = CurrentDb
Set RS = db.OpenRecordset("ID_Card_0")

Do Until RS.EOF
Dim A As Integer
Dim tg1 As String
Dim tg2 As String
'Dim tgX As String
'tgX = DLookup("[number_ID]", "[ID_Card]", "[number_ID]=" & "' [Forms]![ID_word]![SHX]'")
tg1 = Me.save_folder_item
tg2 = DLookup("[path_drive_db]", "[folder_Link2]") & "\" & "ID_Word\File_"
   Me.file = RS.Fields("DB")

For A = 1 To 1
        For Each Tb In db.TableDefs
             If Tb.name = "ID_Card" Then
                Tb.Connect = ";DATABASE=" & tg1 & "\" & RS.Fields("db") & ".accdb"
                Tb.RefreshLink
            End If
        Next
    Next A
    DoEvents
Me.one.Requery
Me.rx.Requery
Me.rx.SetFocus
Me.rx.Selected(lrow:=0) = True
Me.rx.SetFocus
DoEvents
'==================================( ÔÑØ ÇáÑÞã ÇáÞæãí ÇáãÏäí Çä æÌÏ ÎÑæÌ æÇÛáÇÞ )
If DCount("[ID]", "[Chack_All_form_db_Give_ONe]") = 1 Then
'=====================================( ÝÍÕ æÌæÏ ÇáÞÇÚÏÉ )
   DoEvents
Me.one.Requery
Me.rx.Requery
Me.rx.SetFocus
Me.rx.Selected(lrow:=0) = True
Me.rx.SetFocus
DoEvents

Forms("ID_word").Form.XXC.Form.subFormData.SourceObject = "Link_ID_Card" '& .RecordSource
On Error GoTo Lerr
'Call b2_Click
For A = 1 To 1
        For Each Tb In db.TableDefs
             If Tb.name = "File_Me_Customer" Then
                Tb.Connect = ";DATABASE=" & tg2 & Me.SHX & "\" & Me.SHX & ".accdb"
                Tb.RefreshLink
            End If
        Next
    Next A
    DoEvents
DoCmd.OpenForm "File_Me_Customer"

End If
Me.file = RS.Fields("DB")
RS.MoveNext
Loop

RS.Close
Set RS = Nothing
db.Close
Me.one.Requery
Me.rx.Requery
Me.rx.SetFocus
Me.rx.Selected(lrow:=0) = True
Me.rx.SetFocus

Exit Sub
Lerr:
MsgBox Err.Description
'MsgBox "áÇíÊæÝÑ ÇÊÕÇá ÈÇáÞÇÚÏÉ íÑÌì ÇáÊÃßÏ ãä ÇÚÏÇÏÉ ÇáÔÈßÉ "
Me.one.Requery
Me.rx.Requery
Me.rx.SetFocus
Me.rx.Selected(lrow:=0) = True
Me.rx.SetFocus

بتحديث استكمال 

التقرير والكل مع الشروطك

+ تحريل الحسابات Auto At Button k

☕

[Foksh]

اعتذر اختي الكريمه على عدم الرد ، بسبب العمل من جهة ، ومن جهة أخرى عند قراءة الكود لاحظت تكرار الحلقة 

For A = 1 To 1

وأعتقد انك لست بحاجة لتكرارها وقد يكون هناك إمكانية لتنفيذ الحلقه التكرارية مرة واحدة على ما أعتقد.

 

كل الاحترام والتقدير لشخصك الكريم 😇

[hanan_ms]

8 minutes ago, Foksh said:

For A = 1 To 1

وأعتقد انك لست بحاجة لتكرارها وقد يكون هناك إمكانية لتنفيذ الحلقه التكرارية مرة واحدة على ما أعتقد.

 

الحلق التكرارية Integer

ممكن صحيح ولكن افضل التثبيت في بعض الحقول تحتاج الى ضغطتين للاستيعاب

 

العفو استاذ @Foksh ☕❤️🌹

يسعدني مرورك 😎

11 minutes ago, Foksh said:

اعتذر اختي الكريمه على عدم الرد ، بسبب العمل من جهة ، ومن جهة أخرى عند قراءة الكود لاحظت تكرار الحلقة 

كأنه  عندك كود ينور واستبدل  

[hanan_ms]

استاذ @Foksh 🌹❤️☕

ان شاء الله تكون بخير والله يعينك على شغلك الثاني من جهة 

حديث الاداة 

1- عرض البيانات على نطاق الجغرافي 

2- عمل نسخة احتياطية لكل قاعدة مضافة ونسخة تلقائية 

3- ترحيل كافة الحسابات المنتهية بقواعد البيانات المضافة 

4- خيار عرض معلومات المدنية 

==========================( تحديث الاداة)

1- عمل تحديد عدد النسخ الاحتياطية على سبيل المثال اذا اخترة 10 نسخ اذا وصل 11 نسخة يحذف الاول القديم ويحتفظ على اقصى عدد 10 ويمكنك الاختيار 

Back_UP_Auto Clean Old db ======

2- جلب بيانات المدنية عند العثور بدل من عرض القاعدة المرتبطة  فقط مع خيار التشغيل النموذج 

3- عرض نموذج ادخل الرقم المدني فقط وعرض البيانات 

4- مع هدية 😏

============( فيديو )

تحميل الاداة

https://www.mediafire.com/file/zwpivi0mufmhlms/Update_Link_db_Ms_Access.rar/file

[hanan_ms]

 

 تحديث البرنامج الاتصال بقواعد البيانات 

1- اضافة نسخة احتياطية كحد اقصى بالعدد الذي تختاره يأخذ آخر نسخة ويحذف أقدم نسخة احتياطية 

2- توفير اعدادة الاختيار بنسخة الاحتياطية 

بكل من القواعد الاساسية وقواعد تفريع منها *

3- تصحيح بالضافة Me.refresh  

للتحديث عند التحديد الرقم المدني 

 اضافة تحديد الرقم وعرض البيانات بقائمة 

==========================( تحديث )

1- استبدال تحديد المسار الكل DlookUp

2- تحديث سجل الاعدادة من غير استعلام فوري 

.......

==========================( Video )☕

 

تحميل النسخة :

https://www.mediafire.com/file/qezjejmmdsogg5d/Update_LinkDB_withBackUp_Ms_Access.rar/file

[hanan_ms]

الاداة مفتوحة المصدر 😎

 يمكنك التعديل وتقديم الحلول والاقتراحات 

تحديث البرنامج كما ذكر

1)- تسريع شريط التقديم مع خيار الغاء النسخ الاحتياطية 

 السبب : عند توفر اجهزة وحدات التخزين فيه تقوم بعمل نسخ احتياطية بسرعة واداء عالي من غير تفشير مقصد  لا ترفع مستوى التشفير كما يأمن اجهزة وحدات التخزين تأمين عند عطل احدى الاقراص  فقط استبدال القرص المعطوب مثل الاجهزة جهاز سكليوجي و ناس 

2)- اضافة مباشر لكل رقم المدني القومي عند اختيار الدولة على سبيل المثال مصر =14 الكويت = 12 السعودية = 10 

3)- اضافة قائمة العملاء للمراجعين ودخول والربط عن طريق 

DlookUp

'=================================( IF Null Record Or NO Give Me Only A_Link_A_ID_Card )
Dim strsq2 As String
Dim Ttb3 As Recordset
 strsq2 = "Delete * from A_Link_A_ID_Card"
CurrentDb.Execute strsq2
        Set Ttb3 = CurrentDb.OpenRecordset("A_Link_A_ID_Card")
        Ttb3.AddNew
        Ttb3![ID_Card] = Me.tx
        Ttb3.Update

======================================== ( بتحديث )

عمل تعديل على بعض الاكواد مع التصحيح والانتهاء ثم للرفع بمكتبة موقع ☕

========================( فيديوين +2 )

'==================================( Prt 1)

====================================( Prt 2)

تحميل النسخة 

https://www.mediafire.com/file/c8cshc4ayh5cwbz/Update_Link_db_With_User_Customar_Ms_Access.rar/file

[hanan_ms]

الاداة مفتوحة المصدر 😎

 يمكنك التعديل وتقديم الحلول والاقتراحات 

تحديث وتصحيح

1-   تعديل كود البحث والعرض فوري من اي قاعدة تم انشائها يبحث عن الرقم المدني القومي بكافة القواعد ثم يربط بالاضافة لك قاعدة الرقم المدني القومي

'====================================( شرط اذا كانت القيمة واحدة فقد بسجل واحد )
'=================================( IF Null Record Or NO Give Me Only A_Link_A_ID_Card )
Dim strsq2 As String
Dim Ttb3 As Recordset
 strsq2 = "Delete * from A_Link_A_ID_Card"
CurrentDb.Execute strsq2
        Set Ttb3 = CurrentDb.OpenRecordset("A_Link_A_ID_Card")
        Ttb3.AddNew
        Ttb3![ID_Card] = Me.SHX
        Ttb3.Update
DoEvents

'==================================( شرط الرقم القومي المدني ان وجد تم الاتصال  )
If DLookup("[number_ID]", "[ID_Card]", " [number_ID] Like'" & DLookup("[ID_Card]", "[A_Link_A_ID_Card]") & "' ") = DLookup("[ID_Card]", "[A_Link_A_ID_Card]") Then
Me.Refresh

2- تصحيح نسخة الاحتياطية للارتباط  بقاعدة الفرعيه ( الرقم المدني القومي )

============================================ ( بتحديث )

1- بتحديث عملية حذف القاعدة وكافة ملفاتها ونسخ الاحتياطية ☕

=============( فيديو + مرفق )

تحميل المرفق 

https://www.mediafire.com/file/tsqlmmenfcvxp37/Update_Fix_AT_Link_db_Ms_Access.rar/file

[hanan_ms]

تحديث الربط بنطاق الجغرافي :

1- تعديل الواجهات وفصل تخصيص

2- اضافة اختيار المستخدم مسار القاعده 1- بمسار البرنامج  2- بمسار جهاز او مسار شبكه المحليه

3- تحديد الحجم الاقصى لمساحة تخزين القاعده بالفحص بأضافة الدالة القياس حجم تخزين الملفات ☕😎

Option Compare Database
Option Explicit

Private Declare PtrSafe Function CreateFile Lib "kernel32" Alias "CreateFileA" (ByVal lpFileName As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, ByVal lpSecurityAttributes As Any, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long) As Long
Private Declare PtrSafe Function GetFileSize Lib "kernel32" (ByVal hFile As Long, lpFileSizeHigh As Long) As Long
Private Declare PtrSafe Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long

'~~~ Function to calculate the size of the file (over 2 GB size)
Public Function GetSize(ByVal file As String) As Currency
    Const GENERIC_READ = &H80000000
    Const FILE_SHARE_READ = &H1
    Const FILE_SHARE_WRITE = &H2
    Const OPEN_EXISTING = 3
    Dim lngHandle As Long
    Dim lngLow As Long
    Dim lngHigh As Long
    Dim curFileSize As Currency
    
    ' Open the file
    lngHandle = CreateFile(file, GENERIC_READ, FILE_SHARE_READ Or FILE_SHARE_WRITE, 0&, OPEN_EXISTING, 0, 0)
    ' Get the file size
    lngLow = GetFileSize(lngHandle, lngHigh)
    CloseHandle lngHandle
    ' Combine the Low and High values into one currency
    ' Must use the '@' currency declaration or IDE will balk
    curFileSize = 4294967295@ * lngHigh
    If lngLow < 0 Then
        curFileSize = curFileSize + (4294967295@ + (lngLow + 1))
    Else
        curFileSize = curFileSize + lngLow
    End If
    GetSize = curFileSize
End Function

'~~~ Function to return size in appropiate formatting (means GB's, MB's , etc. at the end)
Public Function FormatSize(ByVal size As Currency) As String
    Const Kilobyte As Currency = 1024@
    Const HundredK As Currency = 102400@
    Const ThousandK As Currency = 1024000@
    Const Megabyte As Currency = 1048576@
    Const HundredMeg As Currency = 104857600@
    Const ThousandMeg As Currency = 1048576000@
    Const Gigabyte As Currency = 1073741824@
    Const Terabyte As Currency = 1099511627776@
    
    If size < Kilobyte Then
        FormatSize = Int(size) & " bytes"
    ElseIf size < HundredK Then
        FormatSize = Format(size / Kilobyte, "#.0") & " KB"
    ElseIf size < ThousandK Then
        FormatSize = Int(size / Kilobyte) & " KB"
    ElseIf size < HundredMeg Then
        FormatSize = Format(size / Megabyte, "#.0") & " MB"
    ElseIf size < ThousandMeg Then
        FormatSize = Int(size / Megabyte) & " MB"
    ElseIf size < Terabyte Then
        FormatSize = Format(size / Gigabyte, "#.00") & " GB"
    Else
        FormatSize = Format(size / Terabyte, "#.00") & " TB"
    End If
End Function

اغلب الاوامر Dlookup ,if=[]) 

4- اضافة ميزة اضافة الرقم المدني القومي بكافة القواعد وتأكد ان الرقم جديد للاضافة

* واذا كان حجم القاعده وصل الى الحد المحدد يضيف قاعده بيانات جديده تلقائي مع الربط والاستكمال *

....

============================( بتحديث )

ان وجد تعديل وازالة النماذج والدوال الزائد (ازالة المخالفات) مع بعض التعديلات 

============================ ( فيديو + مرفق )

تحميل الملفات 

https://www.mediafire.com/file/0a06hfptedhaii5/X_Update_Add_Chack_SizeFile_Link_db_Ms_Access.rar/file

[hanan_ms]

الاداة مفتوحة المصدر 😎

 يمكنك التعديل وتقديم الحلول والاقتراحات 

تحديث الاداة شبكة القواعد بيانات بنطاق الجغرافي :

1- اضافة شريط  التحميل لحين الانتهاء 

2-اضافة فحص الرقم المدني القومي قبل العرض ان رقم من الاساس لم يضاف

3- اضافة قائمة اضافة الدول لتفعيل الرقم القومي المدني بزر واحد للاضافة من غير استخدام اضافة استعلام مع الفحص 

الكود :

'=======================================( Chack textBox )
If IsNull(Me.dx) Or Me.dx = "" Then
MsgBox " لم تسجل اسم الشبكة للاضافة !فارغ سجل اسم فريد واعادة المحاولة ", vbCritical, "Close_Add " & Date
Exit Sub
End If

'=======================================( Chack textBox On tablet )
If DLookup("[Sys_Line]", "[folder_Link2]", " [Sys_Line] Like'" & [Forms]![db_path_0]![db_Net_M]![dx] & "' ") = Me.dx Then
MsgBox "اسم الشبكة مكرر ؟! سجل اسم فريد واعادة المحاولة ", vbCritical, "Close_Add_New " & Date
Exit Sub
Else

'=======================================( Run_Add_New )
Dim Ttb3 As Recordset
        Set Ttb3 = CurrentDb.OpenRecordset("folder_Link2")
        Ttb3.AddNew
        Ttb3![Sys_Line] = Me.dx
        Ttb3.Update

Form_db_Net_M.Requery
MsgBox " تم ادراج شبكة جديده يمكن تخصيص الشبكة لاي نوع رقم مدني او رقم ملف او رقم قضايا او رقم السندات ", vbInformation, "Don_Add"
Me.dx = ""
End If

 4- اضافة قائمة تعدد الشبكات لكل شبكه جداولها وتتغير باسمها مع حفاظ على شبكة الجداول الاخرى 

* يمكن التوسع بمشروعك بسهوله *

الكود :

DLookup("[path_drive_db]", "[folder_Link2]", "[Sys_Line]='رقم_المدني'") & DLookup("[Folder_db]", "[folder_Link2]", "[Sys_Line]='رقم_المدني'")

ان تستبدل الرقم المدني بين علامتني 

'رقم_المدني'

'رقم_الحسابات

'رقم_السندات'

بما يحدد لك نوع المسار المطلوب 

5- اضافة قائمة بستبدال الحقل بازرار

6-  يمكن تخصيص كل من انواع الشبكات وتحديد حجم المساحة التخزين المطلوبة لقاعدة البيانات 

======================================( بتحديث الاداة )

ان وجد تعديل وازالة النماذج والدوال الزائد (ازالة المخالفات) مع بعض التعديلات 

=====================================================( فيديو + مرفق )

===================================================

تحميل نسخة الاداة شبكة القواعد بيانات بنطاق الجغرافي

https://www.mediafire.com/file/lkkmhxjx4hfr37k/Update_Link_Chack_Give_Add_MsAccess.rar/file

[hanan_ms]

الاداة مفتوحة المصدر 😎

 يمكنك التعديل وتقديم الحلول والاقتراحات 

حجم المرفق : 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

[hanan_ms]

الاداة مفتوحة المصدر 😎

 يمكنك التعديل وتقديم الحلول والاقتراحات 

==================================================

احفظ البرنامج على درايف او قريب من سطح المكتب والسبب 

لا يمكن للاداة العظيمة من ميكروسوفت وصول الى مسار الملف بستخدام سكربيت ؟! بسبب كثرة تداخل الملفات  "\"

Msgbox Error code 76 ?! no Fine path File = No More into read Path "\" FIX Function Selected "\" \ 2

( للحذف الملفات والصول الى الملفات والمعالجة الا ( بدالة ارفقها بتحديثات 

===========================================

تحديث الاداة شبكة القواعد بيانات بنطاق الجغرافي :

1- عدة تصحيحات وتعديل الاكواد وتسريع عرض رقم المدني القومي في واجهة المستخدم (FIX AT)

2- تحسينات في الواجهات

3- اضافة معلومات حول استخدام الاداة

======================================( بتحديث الاداة )

ان وجد تعديل وازالة النماذج والدوال الزائد (ازالة المخالفات) مع بعض التعديلات 

=====================================================( فيديو + مرفق )

===================================================

تحميل نسخة الاداة شبكة القواعد بيانات بنطاق الجغرافي

https://www.mediafire.com/file/uoef4p01sct7rdp/Update_Auto_Linkdb_ToolsAll_Add_Editor_Back_UP_Ms_Access.rar/file

[Foksh]

6 ساعات مضت, hanan_ms said:

الاداة شبكة القواعد بيانات بنطاق الجغرافي

السلام عليكم ورحمة الله وبركاته..

اختنا الكريمه @hanan_ms ، الله يعطيكي العافية على مجهودك..

استفساري بسيط ولكن للآن ما فهمت اسم الأداة و وظيفتها 😬

أرجو المعذرة منك ولكن بودي أشاركك أفكارك لكن صدقاً ما قد فهمت الفكرة والهدف من البرامج واسمه كأداة شبكة القواعد بيانات بنطاق الجغرافي.