به همین رو ناچار از رکوردست و VBA کمک میگیریم،
که دست ما رو برای هر نوع عملیات پیچیده باز نگه میداره:
Option Compare Database
Option Explicit
Sub Export()
Dim DBS As Database
Set DBS = CurrentDb
Dim rsS As Recordset
Dim rsSN As Recordset
Dim rsMVS As Recordset2
Dim rsMVSN As Recordset2
Set rsS = DBS.OpenRecordset("Students", dbOpenForwardOnly, dbReadOnly)
Set rsSN = DBS.OpenRecordset("Students_New", , dbAppendOnly)
Dim i As Integer
Do Until rsS.EOF
Set rsMVS = rsS("Courses").Value
rsSN.AddNew
rsSN("StudentID") = rsS("StudentID")
rsSN("FullName") = rsS("FullName")
Set rsMVSN = rsSN("Courses").Value
Do Until rsMVS.EOF
rsMVSN.AddNew
rsMVSN("Value") = rsMVS("Value")
rsMVSN.Update
rsMVS.MoveNext
Loop
rsSN.Update
Debug.Print rsS(0)
DoEvents
rsS.MoveNext
Loop
rsS.Close
rsSN.Close
Set rsS = Nothing
Set rsSN = Nothing
Set rsMVS = Nothing
Set rsMVSN = Nothing
Set DBS = Nothing
End Sub
اینجا فقط به چگونگی کپی دیتا این نوع فیلد پرداخته شد،
برای مباحث فرعی از قبیل :
تشخیص یکی بود فیلدها و ساختار اونها
و زمانی که ساختار جدول مبدا و مقصد یک نباشه و ...
در همون تاپیک مورد اشاره در پست شماره یک ادامه بدین.





پاسخ با نقل قول
