Saya udah coba modifikasi kode dari Mr. (terlampir xl2003) dan udah berhasill tapi kenapa kok prosesnya lambat kalo data udah mencapai ribuan Pertanyaan kedua kenapa ukuran file access (mdb) tetap besar padahal data sudah saya hapus total langsung dari aplikasi ms. access (contoh file gak bisa disertakan karena ukuran terlalu besar, meski data udah dihapus bersih)
وَالسَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ ----- Original Message ----- From: Mr. Kid To: belajar-excel@yahoogroups.com Sent: Friday, October 19, 2012 10:54 AM Subject: Re: [belajar-excel] Mendeteksi keystroke di lembar kerja Tidak bisa Pak, Langkah pertama adalah bisa membuat koneksi ke ms access melalui fitur Get External Data (xl2007 ke atas) atau Import Data (xl2003). Coba lihat-lihat kesini. Kemudian, setelah bisa membuat sebuah koneksi ke database ms access tersebut, maka pelajari juga cara mengubah querynya. Jika pengubahan query ingin diotomasi, hingga inputan di cell tertentu dan tertenta menjadi batasan data yang harus diambil, maka harus tahu cara mengubah query dengan macro. Caranya dengan rekam macro seperti posting yang lalu : >> 2. aktifkan record macro >> 3. ubah query dalam koneksi ke access tadi dengan menambahkan teks WHERE nama_kolomnya = 'nilai teks dicari' >> 4. Stop recording >> 5. ke VBE dan lihat hasil record macro >> 6. ubah bagian sqlcommandtext hasil reocrding dengan query yang bagian wherenya bisa mengambil nilai dari sebuah cell Ribet ya ? coba dulu saja. siapa tahu ribetnya sepadan dengan mangpangatnya atau malah mangpangatnya yang terlalu banyak jadi terasa gak ribet. :) Wassalam, Kid. 2012/10/19 Heru Safrudin <superhe...@gmail.com> yang belum saya bisa bagaimana menambahkan datanya Mr. ? Berikut ini prosedur yg diberikan Mr. : Public Sub InsertUsingExecute() Dim sQuery As String If con Is Nothing Then MsgBox "No Connection" Exit Sub End If With Sheet3 sQuery = "Insert Into tabel2 ( no_gr,gr_date ) select " & _ "'" & .Range("B2").Value & "'" & "," & "'" & Format$(.Range("B3").Value, "YYYY-MM-DD") & "'" con.Execute sQuery End With End Sub Apakah prosedur diatas bisa saya pakai, atau otomatis di data Access menyaring data duplicate ? Maaf & Thanks ----- Original Message ----- From: Mr. Kid To: belajar-excel@yahoogroups.com Sent: Friday, October 19, 2012 10:15 AM Subject: Re: [belajar-excel] Mendeteksi keystroke di lembar kerja Pakai Excel 2007 ke atas, coba fitur Remove Duplicate. Pakai Excel versi berapa aja bisa pakai Advaanced Filter centang unique record move to another place. Bahasa data universal adalah SQL dengan kalimat query. Dengan query, bisa diambil data uniqque selalu untuk date tertentu dsb. Sebelum Anda selesai membuka tabel di Access, Excel sudah selesai merefresh data. Biasanya data Access sampai ratusan ribu bisa di refresh dalam 2 atau 3 detik kurang dibanding copas data tersebut secara langsung, pada komputer yang sama. Dilakukan tanpa membuka Access, cukup tekan tombol di Excel jika ingin dinamis atau cukup tekan refresh data jika di access sudah disediakan sebuah query yang pasti unique dan siap pakai. Wassalam, Kid. 2012/10/19 Heru Safrudin <superhe...@gmail.com> Maaf kalo pertanyaan kurang jelas. Untuk pertanyaan No. 2 maksud saya begini : misal setiap hari saya update data yaitu Add data harian katakanlah 100 record dari excel ke Ms. Access. Nah supaya data tidak doble/duplicate maka perlu prosedur cek apakah data udah ada di database, hanya yg belum ada di database aja yang di Add Kalo pake query kayaknya terlalu lama, karena data yg dibaca di database Access jumlahnya ribuan Demikian Mr, atas semua atensinya disampaikan terima kasih ----- Original Message ----- From: Mr. Kid To: belajar-excel@yahoogroups.com Sent: Friday, October 19, 2012 1:45 AM Subject: Re: [belajar-excel] Mendeteksi keystroke di lembar kerja Pak Heru, 1. Saya pingin mendeteksi keystroke di lembar kerja, bisakah, bagaimana caranya ? Misalkan kalo saya tekan Enter maka prosedur tertentu akan dieksekusi http://www.teachexcel.com/excel-help/excel-how-to.php?i=423869 2. Bagaimana mencari teks di database Ms. Access dari lembar kerja excel dalam misal mencari teks "I/KP/11/00002" di field NO_GR >> 1. Buat koneksi ke access ke sebuah dataset yang ada di access melalui excel get external data (import data di xl2003) >> 2. aktifkan record macro >> 3. ubah query dalam koneksi ke access tadi dengan menambahkan teks WHERE nama_kolomnya = 'nilai teks dicari' >> 4. Stop recording >> 5. ke VBE dan lihat hasil record macro >> 6. ubah bagian sqlcommandtext hasil reocrding dengan query yang bagian wherenya bisa mengambil nilai dari sebuah cell >> 7. jalankan macro >> 8. save Wassalam, Kid. 2012/10/18 Heru Safrudin <superhe...@gmail.com> Dear Mr. Master Ada 2 pertanyaan : 1. Saya pingin mendeteksi keystroke di lembar kerja, bisakah, bagaimana caranya ? Misalkan kalo saya tekan Enter maka prosedur tertentu akan dieksekusi 2. Bagaimana mencari teks di database Ms. Access dari lembar kerja excel dalam misal mencari teks "I/KP/11/00002" di field NO_GR Terima kasih Heru Safrudin _