Thủ Thuật Access

Thế Giới Thủ Thuật với Access

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

Posted by Noname on 14.11.2009

‘ 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

Gửi phản hồi

Mời bạn điền thông tin vào ô dưới đây hoặc kích vào một biểu tượng để đăng nhập:

WordPress.com Logo

Bạn đang bình luận bằng tài khoản WordPress.com Log Out / Thay đổi )

Twitter picture

Bạn đang bình luận bằng tài khoản Twitter Log Out / Thay đổi )

Facebook photo

Bạn đang bình luận bằng tài khoản Facebook Log Out / Thay đổi )

Google+ photo

Bạn đang bình luận bằng tài khoản Google+ Log Out / Thay đổi )

Connecting to %s

 
%d bloggers like this: