Dear Mr. Kid, Lebih jauh mengenai materi ini, bisa atau kemungkinan bisa jika file databasenya tidak perlu dibuka. Dengan kata lain; untuk mendapatkan data dan mengirimkan data dari file database (file yang berbada= "d:\data\database.xls") kita tidak perlu membuka dan/atau tidak perlu mengaktifkan file database tersebut. Sebagaimana rumus dari Mr. kid sebelumnya sbb: set wbkdb=workbooks.open "d:\data\database.xls" rumus tersebut berarti kita harus membuka file databasenya walaupun setelah itu bisa otomatis tertutup sendiri setelah mengambil dan mengirimkan data dari dan ke file database tersebut. Karena untuk proses buka dan tutup file database sangat memakan waktu sehingga hasilnya tidak efektif dan sangat tidak efisien. Mohon berkenan informasi. Regards, Harry
________________________________ Dari: Kid Mr. <[email protected]> Kepada: [email protected] Dikirim: Jumat, 24 Februari 2012 23:24 Judul: Re: [belajar-excel] Mohon bantuan Input CommandButton dari 2 PC ke 1 Bank Data Bisa Pak. Urutan prosesnya : 1. Buka file database 2. Copy nilai-nilai terkait yang ada di database ke sebuah sheet di file aplikasi 3. Tampilkan ke setiap control yang dikehendaki. Selamat berkreasi. Kid. On Fri, Feb 24, 2012 at 21:29, Harry <[email protected]> wrote: > >Dear Mr. Kid, > > >Terima kasih atas berkenan penjelasan dan lampirannya. Somoga bermanfaat. > >Masih berkenaan dengan lampiran yang saya kirimkantersebut, apakah >CommandButton ("STATISTIK") bisa dijelaskan bisa atau tidaknya form tersebut >dijalankan...??? > > >Terima kasih & Wassalam, > > > > >Harry > > > > >________________________________ > Dari: Kid Mr. <[email protected]> >Kepada: [email protected] >Dikirim: Kamis, 23 Februari 2012 21:40 >Judul: Re: [belajar-excel] Mohon bantuan Input CommandButton dari 2 PC ke 1 >Bank Data > > > > >Coba bapak telusuri kembali seluruh isi thread yang berasal dari bapak sejak >mulai tentang hal ini. Disana ada cara dengan ADO Connections. >Proses buka tutup koneksi juga telah dijabarkan disana. Cara ini umumnya lebih >praktis dan cepat. > >Jika menggunakan object workbook, maka file harus dibuka. Sedangkan kendala >yang Bapak sampaikan adalah proses buka dan tutup database berlangsung lama. >Artinya, proses buka tutup akan tidak memungkinkan. > >Jika kemudian menjadi memungkinkan, kendala yang muncul berikutnya adalah >penggunaan bersama. >Meski workbook database terbuka terus, tetapi terbuka dimana ? >Object workbook membutuhkan rujukan yang jelas lokasi terbukanya workbook di >komputer lokal (setahu saya). Untuk membuka workbook tertentu, bisa di >komputer manapun dalam jaringan, tetapi si workbook exist dalam proses windows >komputer lokal si user. > >File terlampir adalah contoh untuk mengetahui, apakah file datatbase dibuka >dalam keadaan ReadOnly (karena sedang dibuka oleh instansi Excel lain entah >dimana). >Script diletakkan pada form frmregistrasi pada event click commandbutton cmdAdd >penggalan beberapa baris awal script dalam event tersebut sampai dengan blok >cek status readonly : >Private Sub cmdAdd_Click() > Dim iRow As Long, Reg As Range, oCtrl As Control > > '---------------------------- > 'Kid : 2012-01-29 : modified > 'Kid : 2012-02-23 : tambahkan blok cek workbook terbuka as read only > '---------------------------- > 'deklarasi variabel workbook > Dim wbkA As Workbook, wbkDB As Workbook > > 'init workbooknya > Set wbkA = ThisWorkbook > > '--- WBK READ ONLY ??? ---' >> START > Dim lTry As Long, lJeda As Long > Application.ScreenUpdating = False > Application.DisplayAlerts = False >CobaBuka: > For lTry = 1 To 20 > Set wbkDB = Workbooks.Open(wbkA.Path & "\database.xls") > If wbkDB.ReadOnly Then > wbkDB.Close False > If lTry = 20 Then > If MsgBox("Sudah dicoba membuka " & lTry & _ > " kali, dan masih digunakan oleh instansi Excel yang >lain" & vbCrLf & _ > "Coba lagi ?", vbExclamation + vbYesNo, "Akses ke >database") = vbYes Then > GoTo CobaBuka > Else > Application.ScreenUpdating = False > Exit Sub > End If > End If > Else > wbkA.Activate > Exit For > End If > For lJeda = 1 To 100000000 > Next lJeda > Next lTry > Application.ScreenUpdating = True > '--- WBK READ ONLY ??? ---' >> END > >Cara mencobanya : >1. Letakkan file terlampir bersama file database.xls >2. buka windows explorer, lalu buka file database dari windows explorer >(double click) >3. buka file aplikasi dari windows explorer >4. klik tombol registrasi >5. klik tombol save > >Wassalam. >Kid. > > >On Tue, Feb 21, 2012 at 19:52, Harry <[email protected]> wrote: > > >> >>Dear BeExceller, >> >>Mohon bantuan akan pertanyaan saya sebagaimana file terlampir. >> >>Terima kasih atas berkenan jawaban dan bantuannya. >> >>Regards, >> >>Harry >> >> >>N/B: >> >>Wbk APLIKASI selalu Open sedangkan Wbk DATABASE selalu tertutup (tidak aktif) >>pada file yang berbada >> > > >
