Append Data dari Ms Project

Saya mempunyai sebuah table di dalam Access Project. Table tersebut namanya "Table1" dengan data sbb:
MyID Tanggal
1 01/01/2006

Saya juga mempunyai table yang lain dengan nama "Table2" dengan struktrur yang sama persis dengan "Table1". Saya ingin menambahkan seluruh data pada "Table1" ke "Table2" secara otomatis melalui VBA. Bagaimanakah caranya?

JAWABAN:

1. Buatlah sebuah procedure sbb:

Public Function TambahData()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim strSQL As String
strSQL = "Insert Into Table2 (MyID, Tanggal) Select MyID, Tanggal From Table1"
Set rsCustomers = New ADODB.Recordset
Set cn = Application.

CurrentProject.Connection
rsCustomers.Open strSQL, cn, adOpenForwardOnly, adLockOptimistic
End Function

2. Jalankan pada immediate window dengan cara mengetikkan:

?TambahData()
Lalu tekan ENTER.

Wassalaamu'alaikum Warahmatullahi Wabarakatuh,
Sofyan Efendi