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 trên 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

Advertisements

Trả lờ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 Đăng xuất / Thay đổi )

Twitter picture

Bạn đang bình luận bằng tài khoản Twitter Đăng xuất / Thay đổi )

Facebook photo

Bạn đang bình luận bằng tài khoản Facebook Đăng xuất / Thay đổi )

Google+ photo

Bạn đang bình luận bằng tài khoản Google+ Đăng xuất / Thay đổi )

Connecting to %s

 
%d bloggers like this: