lاشکال در انتقال اطلاعات یک جدول از دیتابیس به جدول مشابه در دیتابیس دیگر توسط دستور INSERT INTO

[shahram_g]

دورد
من تو برنامم از microsoft ado control استفاده می کنم.
حالا چطوری می تونم با این کامپوننت محتویات یک فایل اکسس رو به یک فایل دیگه که کاملا از نظر ساختاری مشابه هستند بفرستم.

وقتی از کد زیر استفاده می کنم روس recordset.refresh خطای operation is not allowed when the object is closed رو میده ولی کار انتقال انجام میشه.
حالا چطوری جلوی این خطا رو بگیرم؟1


With ad2
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\mdb2.mdb"
..RecordSource = " INSERT INTO codeTel IN '" & App.Path & "\code.mdb' SELECT * FROM CodeTel1"
.refresh
end with

[amiralex]

سلام

Option Explicit
Dim acapp As Access.Application


Set acapp = New Access.Application
acapp.Visible = False
acapp.OpenCurrentDatabase App.Path & "\Table1.mdb"
DoCmd.SetWarnings False

DoCmd.OpenQuery "Enteghal"



با كوئري انتقال و Append كردن اونو انتقال بده

من تو يكي از برنامه هام از همين كار استفاده ميكنم