Salam Be-Exceller,
Saya membuat aplikasi untuk multi user dimana file tersebut diisi oleh
beberapa user. File itu ada di server (network). Tapi terdapat kendala yaitu
mengetahui apakah file sudah tertutup/tidak. Itu karena file itu digunakan oleh
semua orang. Jadi saya ingin mengetahui apakah file itu sudah tertutup atau
tidak. Kalau file di server itu tertutup, maka saya buka file itu dan update
data di file di server tersebut. Dan setelah update data, saya tutup file
kembali secepatnya karena akan digunakan user lain...
Saya sudah buat code tapi masih ada error yaitu ".....File is currently in use.
Please try again". Code itu kadang-kadang error disaat open file, dan
kadang-kala error di saat file itu ditutup kembali.
Code yang sudah saya buat adalah :
Dim w as long
Dim src as workbook
Dim ikonfirmasi as integer
Dim namafile as string,fname as string
fname = Dataku.Cells(1, 40).value
namafile ="DataGudang.xlsx"
Ulangi_Buka:
w = 0
Err.Clear
On Error Resume Next
Set src = Workbooks.Open(fname, True, False, , "1") '----------> Kadang suka
error yang bunyinya : \\Folder_Server\FolderFile\DataGudang.xlsx is currently
in use. Please try again
later<file:///\\Folder_Server\FolderFile\DataGudang.xlsx%20is%20currently%20in%20use.%20Please%20try%20again%20later>.
Catatan : password file : 1
If Err.Number <> 0 Or src Is Nothing Then
On Error GoTo 0
End If
On Error Resume Next
If src.ReadOnly Then
Err.Clear
w = w + 1
If w >= 5000 Then
ikonfirmasi = MsgBox("Saya telah cek sebanyak " & w & ". Apakah anda
ingin melanjutkan ?", vbQuestion + vbYesNo, "Konfirmasi")
If ikonfirmasi = vbYes Then
GoTo Ulangi_Buka
Else
src.Close False
Exit Sub
End If
Else
Workbooks(namafile).Close False '----------> Kadang suka error yang bunyinya
sama seperti diatas : : \\Folder_Server\FolderFile\DataGudang.xlsx is currently
in use. Please try again
later<file:///\\Folder_Server\FolderFile\DataGudang.xlsx%20is%20currently%20in%20use.%20Please%20try%20again%20later>
GoTo Ulangi_Buka
End If
End If
'====
Mohon petunjuknya, bagaimana bisa mengatasi error tersebut ?
Terima kasih atas bimbingannya. Semoga Allah SWT membalas kebaikan teman-teman.
Amiin...
Tio
