Private Sub Command0_Click()
Dim strSQL As String
Dim db As Database
strSQL = "INSERT INTO tbl_Dest SELECT tbl_Source.* FROM tbl_Source;"
Set db = CurrentDb
db.Execute strSQL
db.Close
End Sub
contoh diatas digunakan untuk melakukan Append table scr code. meng-Append
tbl_Source ke tbl_Dest
strSQL merupakan syntax SQL yang akan dijalankan, dpt berupa INSERT, DELETE,
UPDATE, dst
syntax tsb sy dpt dr Query Append yg telah sy buat, kemudian sy view SQL
Design.
semoga membantu
salam,
e...@nt
2009/12/23 Anto <[email protected]>
>
>
> Dear All ...
>
> Semoga semua dalam keadaan Sehat dan senantiasa berada dalam Lindungan Nya
> ... Amin
>
> Terus terang saya anggota milis yang pasif, hanya baca dari email milis
> access yang masuk ke account saya, tapi dari situ saya bisa lebih banyak
> belajar tentang access dan saya implementasikan dalam kerja ... Thanks berat
> untuk moderator dan semua anggota milis.
>
> langsung aja, untuk mengabung data 2 tabel saya hanya menggunakan query
> summary kemudian saya append kedalam tabel via macro. Bila teman - teman
> berkenan mohon dibantu untuk membuatkan vb code nya yang langsung
> mengeksekusi; tanpa harus ada query summary dan append serta macro tersebut
> (untuk vb access saya masih awam sekali )
>
> Terima kasih
>
> Anto
>
>
>
