اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


إذهب إلى أفضل إجابة Solved by Barna,

الردود الموصى بها

السلام عليكم 

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

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

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

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

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

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

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

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

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

رابط هذا التعليق
شارك

  • أفضل إجابة
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 هي مسار القاعدة المصدر منها العلاقات ....

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

  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

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

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information