ارسال جدولين لقاعدة خارجية مع العلاقات بين الجدولين

[محمد القدسي]

السلام عليكم 

الحمدلله والصلاة والسلام على رسوله محمد

ورمضان مبارك على الجميع

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

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

لاني استخدم هذا الكود 

      DoCmd.TransferDatabase acExport, "Microsoft Access", txt2Path, acTable, "Movieshesabat", "Movieshesabat", False
      DoCmd.TransferDatabase acExport, "Microsoft Access", txt2Path, acTable, "Movieshesandat", "Movieshesandat", False
 

ويرسل الجدولين ولاكن بدون علاقة

وهل يمكن اخفائهما في القاعدة الخارجية

وبارك الله فيكم في علمكم

[محمد القدسي]

up

[Barna]

59 دقائق مضت, محمد القدسي said:

up

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

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

Function ExportRelations(DbName As String) As Integer

Dim ThisDb As DAO.Database, ThatDB As DAO.Database
Dim ThisRel As DAO.Relation, ThatRel As DAO.Relation
Dim ThisField As DAO.Field, ThatField As DAO.Field
Dim Cr As String, i As Integer, cnt As Integer, RCount As Integer
Dim j As Integer
Dim ErrBadField As Integer
Cr$ = Chr$(13)
RCount = 0
Set ThisDb = DBEngine.Workspaces(0).OpenDatabase("C:\mydat.mdb")
Set ThatDB = DBEngine.Workspaces(0).OpenDatabase(DbName$)
For i = 0 To ThatDB.Relations.Count - 1
   Set ThatRel = ThatDB.Relations(i)
     Set ThisRel = ThisDb.CreateRelation(ThatRel.Name, _
      ThatRel.Table, ThatRel.ForeignTable, ThatRel.Attributes)
    ErrBadField = False
     For j = 0 To ThatRel.Fields.Count - 1
      Set ThatField = ThatRel.Fields(j)
         Set ThisField = ThisRel.CreateField(ThatField.Name)
      ThisField.ForeignName = ThatField.ForeignName
       On Error Resume Next
      ThisRel.Fields.Append ThisField
      If Err <> False Then ErrBadField = True
      On Error GoTo 0
   Next j
   If ErrBadField = True Then
         Else
           On Error Resume Next
      ThisDb.Relations.Append ThisRel
      If Err <> False Then
              Else
                 RCount = RCount + 1
      End If
      On Error GoTo 0
   End If
Next i
ThisDb.Close
ThatDB.Close
ExportRelations = RCount
End Function

وتستدعيها بالكود التالي ...

Call ExportRelations("C:\ExpAndImp.mdb")

C:\ExpAndImp.mdb هي مسار القاعدة المصدر منها العلاقات ....

جرب وأعلمنا بالنتيجة !!!!!!

[أبوبسمله]

جزاك الله خيرا اخى محمد @Barna

وزياده الخير خيرين وكل عام وانتم بخير ارفق موضوع لام عهود جزاها الله خيرا

http://arabteam2000-forum.com/index.php?/topic/277583-نسخ-جداول-في-القاعدة-بعلاقاتها-الى-الاستاذة-أم-عهود/#comment-1356700

بالتوفيق اخوانى

[Barna]

كل عام وانت بخير أخي أحمد @أحمد الفلاحجى بارك الله فيك ....

[محمد القدسي]

سلمت يداك استاذي @Branas 

وبارك فيكم جميعا اخواني

وكذلك الشكر موصول للاستاذ احمد الفلاحجي وقد جربت مثال الاستاذه زهرة ولم افلح

بقي الشق الثاني من السؤال وهو اخفاء هذه الجداول بعد تصديرها

وعندي سؤال اخر وهو هل هذه الدالة تعمل لجميع علاقات الجداول الموجودة في القاعدة الخارجية

[محمد القدسي]

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

[محمد القدسي]

up