Ikutan urun rembug,
db access nya di letakkan di sharing folder yang dapat di akses oleh
seluruh user,
Sedangkan excel nya di taruh di masing-masing PC user (ini akan
merepotkan jika ada enhanchement terhadap aplikasi yang dibuat, karena
harus mencopy file aplikasi master di PC setiap user) atau bisa juga
tetap di sharing folder dengan satu aplikasi excel dengan access read only)
Semangat.....
On 1/5/2013 10:31 AM, Heru Safrudin wrote:
Dear Mr.Kid,
Wah ada harapan nih, tapi gimana cara share db-nya ms. access ? kalo
excel bisa pake share workbook
Regards,
Heru Safrudin
----- Original Message -----
*From:* Mr. Kid <mailto:[email protected]>
*To:* [email protected]
<mailto:[email protected]>
*Sent:* Friday, January 04, 2013 3:42 PM
*Subject:* Re: [belajar-excel] Koleksi hasil query
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]
<mailto:[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]
<mailto:mr.nmkid%40gmail.com>> 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]
<mailto:superheruu%40gmail.com>>
>
>> **
>>
>>
>> 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
