Tìm thủ thuật nhanh hơn với chức năng tìm trong Blog

11/14/09

Code Kiểm tra sự tồn tại của 1 file trong Access

' kiem tra su ton tai file
Function FileExit(fname As String) As Boolean

If Dir(fname) <> "" Then
FileExit = True
Else
FileExit = False
End If

End Function



Ví dụ: Ở sự kiện Load form của Form chính, bạn chọn cho code này vào:

If not(FileExit("\\May2\DULIEU\LUU.MDB")) then
msgbox " Phải cài file dữ liệu "
docmd.quit
End if