Mình cảm ơn bạn rất nhiều, nhưng khi áp dụng Demo này nếu có thêm link table ODBC nữa thì sẽ bị báo lỗi Run-time error 94, Invalid use of Null
báo ngay dòng này: con = DLookup("[Connect]", "MSysObjects", "[name]='" & T & "'"), bác nào fix dùm em lỗi này em cám ơn nhiều.

(23-04-19, 03:57 PM)nghiep Đã viết: Mình cảm ơn bạn rất nhiều, nhưng khi áp dụng Demo này nếu có thêm link table ODBC nữa thì sẽ bị báo lỗi Run-time error 94, Invalid use of Null
báo ngay dòng này: con = DLookup("[Connect]", "MSysObjects", "[name]='" & T & "'"), bác nào fix dùm em lỗi này em cám ơn nhiều.

Pro nào giúp dùm mình cái này được không ạ, mình sử dùng vào  file access của mình không chạy được.

(24-04-19, 05:22 PM)nghiep Đã viết:

(23-04-19, 03:57 PM)nghiep Đã viết: Mình cảm ơn bạn rất nhiều, nhưng khi áp dụng Demo này nếu có thêm link table ODBC nữa thì sẽ bị báo lỗi Run-time error 94, Invalid use of Null
báo ngay dòng này: con = DLookup("[Connect]", "MSysObjects", "[name]='" & T & "'"), bác nào fix dùm em lỗi này em cám ơn nhiều.

Pro nào giúp dùm mình cái này được không ạ, mình sử dùng vào  file access của mình không chạy được.

Bạn bẫy lỗi Null của Dlookup xem.
Con= Nz(Dlookup(....),"")

(24-04-19, 06:05 PM)ongke0711 Đã viết:

(24-04-19, 05:22 PM)nghiep Đã viết:

(23-04-19, 03:57 PM)nghiep Đã viết: Mình cảm ơn bạn rất nhiều, nhưng khi áp dụng Demo này nếu có thêm link table ODBC nữa thì sẽ bị báo lỗi Run-time error 94, Invalid use of Null
báo ngay dòng này: con = DLookup("[Connect]", "MSysObjects", "[name]='" & T & "'"), bác nào fix dùm em lỗi này em cám ơn nhiều.

Pro nào giúp dùm mình cái này được không ạ, mình sử dùng vào  file access của mình không chạy được.

Bạn bẫy lỗi Null của Dlookup xem.
Con= Nz(Dlookup(....),"")

Bẫy null nó lại báo lỗi not a vaild password.
Set DBlink = OpenDatabase(path, False, False, connectString)

Bạn xem lại hướng dẫn bài #3 và #4 đi nhé.
Khi thay đổi mật khẩu file Data backend thì lần đầu phải linked table thủ công lại, để hệ thống lưu MK cho các lần Refresh link sau đó.

Nếu muốn chủ động hơn nữa thì bạn phải viết thêm code và form kết nối: khi bị mất kết nối sẽ mở form để chọn đường dẫn mới tới file Data và cung cấp Mật khẩu mới để kết nối.

(25-04-19, 11:19 AM)ongke0711 Đã viết: Bạn xem lại hướng dẫn bài #3 và #4 đi nhé.
Khi thay đổi mật khẩu file Data backend thì lần đầu phải linked table thủ công lại, để hệ thống lưu MK cho các lần Refresh link sau đó.

Nếu muốn chủ động hơn nữa thì bạn phải viết thêm code và form kết nối: khi bị mất kết nối sẽ mở form để chọn đường dẫn mới tới file Data và cung cấp Mật khẩu mới để kết nối.

Cám ơn bạn đã hổ trợ, hình như lúc kiểm tra các table đã link nó quét luôn cả link table của ODBC thì phải, nên nó báo null, nên có cách nào khi dò các table đã link đúng với file Data backend không?

sao ai cũng hỏi chuyện này vậy nhỉ . viết quá rõ ràng rồi .
nếu file bạn không có pass thì vui lòng .
Function getconnect(T As String) As String
Dim con As String
'neu file backend khong có pass thì cho hai dòng duoi xanh còn có thì bo dau cho chay
'con = DLookup("[Connect]", "MSysObjects", "[name]='" & T & "'")
'getconnect = con
End Function

là chạy được không báo lõi nữa.
còn nếu có pass ở file backend thì vui lòng đọc kỹ bài viết trước khi đăng hỏi .

cho phép đăng cái này chắc không liên quan lắm ^^
nếu các bạn đặt pass của thằng access thì ngoài thị trường có nhiều tools nó giải pass lắm .(nếu thằng đó muốn phá thì nó sẽ phá tới cùng )
còn với lại 1 chương trình muốn đơn giản không nên đặt pass và luôn luôn backup data . còn muốn chắc ăn thì tự tạo pass khóa nhé , khóa shift khóa mọi cái trong cái access options ^^. còn với thằng muốn phá nữa thì nó canh nó xóa cái file chứ không có vào xóa table làm gì .
còn nếu chương trình mà viết ra thì nên để full code để mọi người học hỏi cùng phát triển thân anh em !!!!
p/s: có nói sai gì anh em bỏ qua ^^

(08-08-21, 09:41 PM)http2 Đã viết: nếu các bạn đặt pass của thằng access thì ngoài thị trường có nhiều tools nó giải pass lắm .(nếu thằng đó muốn phá thì nó sẽ phá tới cùng )
còn với lại 1 chương trình muốn đơn giản không nên đặt pass và luôn luôn backup data . còn muốn chắc ăn thì tự tạo pass khóa nhé , khóa shift khóa mọi cái trong cái access options ^^. còn với thằng muốn phá nữa thì nó canh nó xóa cái file chứ không có vào xóa table làm gì .
còn nếu chương trình mà viết ra thì nên để full code để mọi người học hỏi cùng phát triển thân anh em !!!!
p/s: có nói sai gì anh em bỏ qua ^^

Access cũng không dễ phá pass nhé bạn.
Người ta phá pass chủ yếu là muốn lấy code. Nếu bạn kêu để full code thì còn gì là sở hữu trí tuệ, công sức thiết kế và bán được ứng dụng bạn!!! Phần lớn người ta cho xài miễn phí chứ ít ai chia sẽ chất xám.
Còn một đề khác là sau khi thiết kế xong, người ta sẽ chuyển nó sang file .mde, .accde để toàn bộ code được biên dịch (compile) thành mã máy, tốc độ sẽ nhanh hơn nhiều so với để file ở chế độ .accdb. Ở chế độ này mỗi khi chạy mọt form, máy tính lại phải biên dịch rồi mới chạy. Khi file ở dạng .mde, .accde, ai mà dịch ngược lại ra code VBA thì quả là cao thủ h@ck, mà những cao thủ loại này không ai rãnh mà đi biên dịch mấy cái ứng dụng phổ thông cho phí thời gian của họ cả.

Sao mình ko ddowwwn được ví dụ nhỉ, nó báo tập tin ko hợp lệ, bạn có thể chuyển sang file zip ko?

Hàm bị lỗi ở con = DLookup("[Connect]", "MSysObjects", "[name]='" & T & "'") do hàm Dlookup trả về 2 kết quả, 1 kết quả là chuỗi trống, 1 kết quả là mật khẩu.
Kiến nghị sửa LinkTable r(0), path, getconnect(r(0)) thành LinkTable r(0), path, DLookup("[Connect]", "MSysObjects", "[Name] = '" & r(0) & "' AND MSysObjects.Type=6") cho bớt code mà lại hiệu quả.