maaf, sy ndak liat, ternyata ada attachment-nya :D sy lampirkan file yg baru Sebenernya tidak perlu membuat 2 query (1 utk summary, 1 utk append) 1 Query sj bs sekaligus melakukan keduanya, summary lgs append (sy buatkan query baru di file terlampir) Query tsb kalo di-design view SQL, akan keliatan syntax SQL nya. tinggal copy syntax tsb ke dalam Sub. spt contoh terlampir.
salam, e...@nt On 12/23/09, e...@nt <[email protected]> wrote: > 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 >> >> >> >
GABUNG xz.rar
Description: application/force-download
