Cara set sebuah variabel object :
Dim nama_variabel_object as class_dari_objcetnya
Set nama_objectnya = methods_untuk_dapatkan_si_object
Contoh :
dim wbkXY as workbook
set wbkXY = workbooks("apa namanya")
atau pakai buka dulu :
set wbkXY = workbooks.open("full file namenya disini")
dsb.
Kid.
On Sat, Mar 10, 2012 at 20:04, Harry <[email protected]> wrote:
> **
>
>
> Dear Mr. Kid & BeExceller,
>
> Masih berkaitan dengan topik ini dan sebagaimana informasi yang telah Mr.
> Kid berikan sebelumnya (tersebut dibawah) yang hasilnya sudah sangat sesuai
> dengan yang saya harapkan.
>
> Lebih lanjut menganai hal tersebut, saya coba mengembangkannya sendiri
> dengan menambah referensi file lain yang menjadi satu kesatuan dengan rumus
> tersebut.
>
> Maksudnya; Ada 3 file yang saling berkaitan yaitu wbkA, WbkDB & wbkXY.
>
> Dari rumus yang telah diberikan Mr. Kid sebelumnya:
> Dim wbkA As Workbook, wbkDB As Workbook
> dll ...............
>
> dari rumus tersebut berarti hanya ada 2 file yaitu wbkA dan wbkDB.
> Saya coba menambah file ke-3 dan mengkotak-katik rumusnya sbb:
> Dim wbkA As Workbook, wbkDB As Workbook, wbkXY As Workbook
> dll ...............
> tapi hasilnya tidak sesuai dengan yang saya harapkan bahkan ERROR.
>
> Pertanyaan saya adalah:
> Bagaimana cara dan/atau rumusnya jika hanya dengan commandbutton cmdAdd
> yang ada di wbkA, bisa mengirimkan data (output data) di wbkDB sekaligus
> di wbkXY...???
>
> Mohon berkenan informasi dan/atau rumusnya dari rekan-rekan BeExceller
> sekalian.
>
> 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 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
>
>
>
>
>
>
>
>
>
