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
>
