Dear BeExceller,
Saya membuat Workbook yang hasil inputan UserForm-nya ke file database dengan
proses buka tutup file.
Jika saya menggunakan 1 file database, berarti proses penginputannya harus
bergantian. Karenanya saya menggunakan 3 file database sekaligus dng nama
DATABASE_1, DATABASE_2 & DATABASE_3.
Untuk meng-akses (membuka) database dari Workbook aktif biasanya saya
menggunakan rumus sbb:
Private Sub Cmdopenfile_Click()
Dim wbkA As Workbook, wbkDATABASE As Workbook
On Error Resume Next
Set wbkA = ThisWorkbook
If Workbooks("DATABASE.xls") Is Nothing Then
Set wbkA = Workbooks.Open(wbkPROGRAM.Path & "\DATABASE.xls")
Else
Set wbkDATABASE = Workbooks("DATABASE.xls")
End If
wbkDATABASE.Activate
With Sheets("HOME")
.Visible = -1: .Activate
End With
Unload Me
End Sub
Tapi setelah menggunakan 3 Database, saya kesulitan untuk meng-akses (membuka
dan menutup) 3 file Database tersebut dengan mengacu pada rumus tersebut diatas.
Mohon bantuan teman-teman BeExceller untuk dapat memberikan solusi dengan 1 x
klik, kita dapat membuka dan/atau menutup 3 file sekaligus.
Terima kasih atas berkanan solusinya.
Harry
