Xin chào diễn đàn,

Tôi có sử dụng hàm Dir("D:\datans\anh\no.jpg"). Có thể viết lại để khi di chuyển thư mục Datans sang nơi khác hoặc chép sang máy khác không bị lỗi.

Để khi copy sang máy khác không bị lỗi, bạn phải dùng đường dẫn đông.
- Giả định là file .accdb của bạn cùng nằm trong folder "Datans".
- Dùng hàm Dir$() sẽ nhanh hơn (chiếm ít bộ nhớ hơn Dir()). Hàm này trả về dạng String còn Dir() trả về Variant, mà bạn đã biết rõ nó là String thì nên dùng Dir$. Tương tự cho Left$, Right$, Trim$... có đô-la Mỹ là nhanh. 

Dim sFullPath As String
Dim sFileName As String

sFullPath= CurrentProject.Path & "\Anh\no.jpg"
sFileName= Dir$(sFullPath)
If sFileName <> "" Then
    Msgbox " File tồn tại"
Else
    Msgbox "Không tìm thấy file"
End If

Cảm ơn ongke0711 rất nhiều