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 kirimkan tersebut, 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 > > > > > >
