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

[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:

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

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

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

[abouelhassan]

في 10‏/3‏/2024 at 23:54, Foksh said:

مساهمة في هذا الحديث ، جرب هذا المرفق 😅 ، عله يكون العلاج .

في النموذج في حدث عند التحميل انقل الكود الى نموذج البداية في مشروعك . واخبرنا بالنتيجة 😊

* ملاحظة:-

الجدول المرتبط هو جدول من قاعدة بياناتي كمثال ، في مشروعك قم باستيراد الجداول من قاعدة بيانات الجداول لديك ، وتأكد من المكتبة التي تسمح للكود بفتح صندوق اختيار الملف ( مايكروسوفت اوفيس 14 أو حسب الإصدار في أوفيس لديك وأعتقد أن لديك اوفيس 2010 )

ReLink.accdb 492 kB · 120 downloads

اخى الكريم احتاج تنفيذ هذا لدى نموذج البدائة هو frmLogin احتاج خطوات التنغيذ على هذا النموذج

[Foksh]

9 دقائق مضت, abouelhassan said:

اخى الكريم احتاج تنفيذ هذا لدى نموذج البدائة هو frmLogin احتاج خطوات التنغيذ على هذا النموذج

برأيي أن تجعل النموذج الحالي في الملف المرفق هو أول نموذج يعمل لديك لأنه لا يعتمد على أي جدول كمصدر بيانات . مع تعديل اسم النموذج لما لديك في الحدث ليصبح :-

Private Sub Form_Load()
On Error Resume Next
If CheckLinks("") = False Then
Call Quit
End If
Dim tdfs As DAO.TableDefs
    Dim tdf As TableDef
    Dim sSourceDB As String
    Dim sBackupDB As String
    Dim backDBName As String
    Set tdfs = CurrentDb.TableDefs
    Set tdf = tdfs(tdfs.count - 1)
   sSourceDB = Right(tdf.Connect, Len(tdf.Connect) - 10)
   backDBName = Dir(Mid(tdf.Connect, 11))
   sBackupDB = Mid(tdf.Connect, 11, Len(tdf.Connect) - (Len(backDBName) + 10)) '
DoCmd.OpenForm "frmLogin", acNormal
DoCmd.Close acForm, Me.Name
End Sub

بحيث ، عندما يتم فتج قاعدة لبيانات ، سيتم التأكد من ربط جميع الجداول بالمسار الحالي أو اختيار ملف قاعدة بيانات الجداول لأول مرة . وبعد التحقق من صحة الربط سيعمل لديك النموذج الخاص بتسجيل الدخول .

[abouelhassan]

بارك الله فيك اخى الكريم مشكوووووور

[Foksh]

2 دقائق مضت, abouelhassan said:

بارك الله فيك اخى الكريم مشكوووووور

العفو أخي الكريم ...