Bisa dengan kondisi : 1. db di share 2. excel yang digunakan adalah copy-an (bukan 1 file di share)
Wassalam, Kid. 2013/1/4 Heru Safrudin <[email protected]> > ** > > > Waw cantik sekali... Thanks > > Oh ya misalkan saya bikin aplikasi di excel yg dipakai beberapa user, > bisakah beberapa user mengupdate data yg saya simpan di file access > (mdb) sekaligus secara bersamaan ? Kalau nggak bisa adakah trik untuk > mengakali ? > > Pada tanggal 04/01/13, Mr. Kid [email protected]> menulis: > > > Hai Heru, > > > > 1. Jika ingin copy ke range tertentu seluruh hasil open recordset, > gunakan > > method CopyFromRecordset > >>> misal akan di salin mulai baris 7 kolom A > > sheets("nama sheet tujuan").range("a7").copyfromrecordset rs 'rs > > adalah variabel record set yang sudah berisi dataset hasil query > > > > 2. Jika ingin loop setiap data > >>> usai open recordset > > > > rs.movefirst > > do while not rs.eof > > 'proses disini > > rs.movenext > > loop > > > > Wassalam, > > Kid. > > > > 2013/1/4 Heru Safrudin [email protected]> > > > >> ** > > >> > >> > >> Dear Mr Kid > >> > >> Menampilkan data di Tabel1 yang tidak ada di Tabel2 atas petunjuk Mr. > >> Kid Alhamdulillah udah berhasil. Nah sekarang bagaimana menampilkan > >> koleksi hasil query berikut ini menggunakan For each .... > >> > >> ConnectDB > >> RS.Open "SELECT P2.JOB FROM P2 P2 LEFT OUTER JOIN P3 P3 ON P2.JOB = > >> P3.JOB WHERE (P3.JOB Is Null)", CON, adOpenKeyset, adLockOptimistic > >> For each data ................ > >> MsgBox data > >> Next > >> RS.Close > >> DisconnectDB > >> > >> -- > >> Regards, > >> > >> Heru Safrudin > >> > >> Pak Heru, > >> > >> Kedua tabel terpisah loh ya, bukan jadi 2 kolom berjejer demikian, > >> kecuali jika definisi tabel dalam query didefinisikan dengan detil > >> mengikuti kolomnya. > >> Coba pelajari SQL tentang LEFT OUTER JOIN clause dan WHERE clause. > >> Kira-kira bunyinya : > >> SELECT dt1.kolom1 > >> FROM Table1 AS dt1 > >> LEFT OUTER JOIN Table2 AS dt2 > >> ON dt1.kolom1=dt2.kolom1 > >> WHERE dt2.kolom1 IS NULL > >> > >> Wassalam, > >> Kid. > >> > >> > > > > -- > Regards, > > Heru Safrudin > > >
