اعادة ربط الجداول فى قاعدة بيانات مقسمة(كود الاعادة موجود)

[Foksh]

1 ساعه مضت, الحلبي said:

اسف جدا لتاخرى فى الرد فكنت فى عكة صحية جامدة جدا اقدم اسفى واعتذارى

الجداول المرتبطة هى نفسها الجداول الموجودة فى قاعدة البيانات لاجدول ذيادة او نقصان

ألف سلامة عليك يا دكتور 

[الحلبي]

في 13‏/3‏/2024 at 21:00, Foksh said:

لجداول المرتبطة هى نفسها الجداول الموجودة

استاذى @Foksh

 استاذى @ابوخليل

الم يوجد طريقة او مثال مثل مثال استذنا ابو خليل

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

جزاكم الله خير

[ابوخليل]

نعم يوجد بشرط تكون الجداول بجانب الواجهات في المجلد

او في مجلد داخل مجلد قاعدة الواجهات

تفضل من مكتبتي .. دعواتك لصاحب الوظائف

Function BackFile() As String
'مسار القاعده الخلفيه واسم الملف الذي يحتوي على الجداول
BackFile = CurrentProject.Path & "\BeBackDb.mdb"
End Function


Function CheckFile() As Byte
'فحص الملف اذا موجود
On Error GoTo Error:
Open BackFile For Input As #1
Close
CheckFile = 1
 Exit Function
Error:
    Exit Function
End Function


Function AutoLink()
If CheckFile <> 1 Then
MsgBox "من فضلك ضع ملف القاعدة الخلفية كما هو مبين بالمسار أعلاه", vbOKOnly, BackFile
DoCmd.Quit
End If
'حذف الجداول المرتبطه
On Error Resume Next
Dim FrontObj As AccessObject, FrontDB As Object
Set FrontDB = Application.CurrentData
For Each FrontObj In FrontDB.AllTables
If Left(FrontObj.Name, 4) <> "MSys" Then
DoCmd.DeleteObject acTable, FrontObj.Name
End If
Next FrontObj
'الربط من جديد
Dim BackObj As TableDef, BackDB As Database
Set BackDB = DBEngine.Workspaces(0).OpenDatabase(BackFile, True, False)
For Each BackObj In BackDB.TableDefs
If Left(BackObj.Name, 4) <> "MSys" Then
DoCmd.TransferDatabase acLink, "Microsoft Access", BackFile, acTable, BackObj.Name, BackObj.Name
End If
Next BackObj
Set FrontDB = Nothing
Set BackDB = Nothing
'النموذج الافتتاحي
DoCmd.OpenForm "Form1"
End Function

 

[ابوخليل]

ايضا يمكن وضع قاعدة الجدول على قرص (بارتيشن) رئيسي يوجد غالبا في جميع الاجهزة مثل قرص C

[الحلبي]

استاذى @ابوخليل

اذا تكرمت ضع هذا الفانكشن فى مثال صغير حتى اعرف اطبقة على برنامجى

جزاك الله خير

[Foksh]

منذ ساعه, الحلبي said:

استاذى @Foksh

 استاذى @ابوخليل

الم يوجد طريقة او مثال مثل مثال استذنا ابو خليل

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

جزاكم الله خير

نعم يوجد كما تفضل معلمنا الفاضل @ابوخليل ، ولكنك ستكون محكوماً بعد تغيير اسم قاعدة بيانات الجداول ، لإنه خلال البحث داخل مجلد قاعدة بيانات النماذج فإنه سيبحث عن ملف محدد تم تحديده داخل الأكواد .

[الحلبي]

في 14‏/3‏/2024 at 23:16, Foksh said:

نعم يوجد كما تفضل معلمنا الفاضل @ابوخلي

طيب تمام اين يوجد اسم قاعدة البيانات فى الكود ياريت استاذى العزيز ان تضع هذا التطبيق فى مثال صغير 

[ابوخليل]

22 ساعات مضت, الحلبي said:

استاذى @ابوخليل

اذا تكرمت ضع هذا الفانكشن فى مثال صغير حتى اعرف اطبقة على برنامجى

جزاك الله خير

عذرا ..يا دكتور .. انشغلت ووقتها .. ونسيتك

تفضل

الجداول بجانب الواجهات

يتم الربط آليا .. اين ما تنقل المجلد

test3.rar

[Foksh]

23 ساعات مضت, ابوخليل said:

BackFile = CurrentProject.Path & "\BeBackDb.mdb"

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

[الحلبي]

في 15‏/3‏/2024 at 20:58, ابوخليل said:

يتم الربط آليا .. اين ما تنقل المجلد

الله عليك استاذنا ومعلمنا القدير الله يفتح عليك ويزيدك من علمه . ايوه كدا ده الكلام هذا هو طلبى

جزاك الله كل خير وعطاك الف عافية وصحة وتقبل منك الصيام والقيام فى هذه الايام المباركة

 

استاذى ومعلمى الاستاذ @Foksh

في 15‏/3‏/2024 at 21:39, Foksh said:

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

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

جزاكم الله كل خير