سئوال

[com12151337]

سلام بر همگی
چگونه میشه اطلاعات table یک فایل را به یک table فایل دیگری اضافه کرد بدون اینکه اطلاعات فایل دوم پاک بشه البته از طریق برنامه نویسی نه از طریق باز کردن تیبل و کپی کردن آن
ممنون

[com12151337]

سلام اساتید محترم
کمک نمیکنید

[ARData]

Total Data Copy From TblA To TblB

Dim db As Database
Dim rst As Recordset

Set db = CurrentDb
Set rst = db.OpenRecordset(" select * from TblA")

Dim db2 As Database
Dim rst2 As Recordset

Set db2 = CurrentDb
Set rst2 = db2.OpenRecordset(" select * from TblB")

db2.Execute "DELETE * FROM " & "TblTblB"

If rst.EOF = False Then
rst.MoveLast
End If

Dim i As Long
Dim Rf As Integer

rst.MoveFirst

If Nz(rst.RecordCount, 0) <> 0 Then

For i = 0 To Nz(rst.RecordCount, 0) - 1
rst2.AddNew

For Rf = 0 To Nz(rst.Fields.Count, 0) - 2
rst2.Fields(Rf).Value = rst.Fields(Rf).Value
Next Rf

rst2.Update
rst.MoveNext
Next i

End If
rst.Close
rst2.Close

[com12151337]

سلام
محبت میکنید توضیح بدهید

[padide55]

بهتره از Append query استفاده نمایید

http://www.kouhkanfamily.com/showthread.php?885-آموزش-کاربردی-اکسس-2010-از-مقدماتی-تا-پیشرفته-Access-2010&p=4422&viewfull=1#post4422

ضمنا عنوان پست ایجاد شده را اصلاح نمایید .
مثلا درخواست راهنمایی جهت روش اضافه نمودن اطلاعات یک جدول به جدول دیگر .