Makro İle Accsess dosyasından Tablo Kopyalama

[programer]

Merhaba,

data.mdb dosyasının içindeki service tablosunu kontrol.mdb dosyasına nasıl kopyalaya biliriz.

 

[programer]

Herkese iyi akşamlar. Sorumun cevabına ulaştım. Kod aşağıda.

Dim objAcc As Object
Dim objAcc2 As Object

Set objAcc = New Access.Application

objAcc.OpenCurrentDatabase ("C:\Data.mdb")
 
objAcc.DoCmd.CopyObject "C:\kontrol.mdb", , acTable, "service"
 
objAcc.CloseCurrentDatabase

Set objAcc = Nothing