كيف يمكن نسخ السجلات

اذا كانت الحقول تحمل نف الخصائص

1- استور دالبيانات من القاعدة الاولى

2- قم بعمل استعلام الحاقى

3- شغل الاستعلام

4- قبل هذا خذ نسخة احتياطية من قاعدة البانات

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

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

استخدم هذه الداله ..

Sub Getmndata()
On Error GoTo ErrLog
    Dim dbmn As Database
    Dim rs As DAO.Recordset
   Dim CurrentRS AS DAO.Recordset  

    Set dbmn = OpenDatabase("mn.mdb")

    Set rs = _
        dbmn.OpenRecordset("Employees", _
        dbOpenSnapshot)

Set CurrentRS = _
        CurrentDB.OpenRecordset("Employees", _
        dbOpenDynaset)


        CurrentRS.MoveLast
        CurrentRS.MoveFirst


        rs.MoveLast
        rs.MoveFirst


    While Not rs.EOF

      CurrentRS.Edit
      CurrentRS!idindex =  rs!idindex
       CurrentRS!name =  rs!Name
       '........
      '........
       CurrentRS.Update
         'وهكذا جميع السجلات التي تريد تحديثها
        ' يجب التنبيه على أن الحقول التي تتماثل فيها
        ' قيمة المفتاح الرئيسي لن تضاف
        ' لذلك استخدم معرف النسخ المتماثلة

        rs.MoveNext
        CurrentRS.MoveNext
     Wend



       Exit Sub
ErrLog:
'أضف هنا كود التحكم بالخطأ
'مثلاً عند إضافة سجل له رقم مفتاح موجود يصدر ميكروسوفت جت رقم
'خطأ معين ... اختبر الرقم وأظهر رساله تفيد بعدم اضافة السجل.

    Resume Next
End Sub

شكراً لك يا أخ أبو لمى على سرعة الرد وسوف أجرب الكود

تم تعديل الكود

وهذا الماكرو ربما يكون أسهل :

TransferDatabase

جربه فهو سهل جدا.