• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

Tùy chọn liên kết lại các table từ file data có password

• Trang chủ

  • Thủ Thuật Access
  • Access Nâng Cao
  • Thư viện thủ thuật
  • Tùy chọn liên kết lại các table từ file data có password
• Tùy chọn liên kết lại các table từ file data có password

• RE: Tùy chọn liên kết lại các table từ file data có password

  nghiep > 23-04-19, 03:57 PM

  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.

• RE: Tùy chọn liên kết lại các table từ file data có password

  nghiep > 24-04-19, 05:22 PM

  (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.

• RE: Tùy chọn liên kết lại các table từ file data có password

  ongke0711 > 24-04-19, 06:05 PM

  (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(....),"")

• RE: Tùy chọn liên kết lại các table từ file data có password

  nghiep > 25-04-19, 08:57 AM

  (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)

• RE: Tùy chọn liên kết lại các table từ file data có password

  ongke0711 > 25-04-19, 11:19 AM

  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.

• RE: Tùy chọn liên kết lại các table từ file data có password

  nghiep > 25-04-19, 02:27 PM

  (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?

• RE: Tùy chọn liên kết lại các table từ file data có password

  http2 > 08-08-21, 09:41 PM

  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 ^^

• RE: Tùy chọn liên kết lại các table từ file data có password

  ongke0711 > 08-08-21, 09:58 PM

  (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ả.

• RE: Tùy chọn liên kết lại các table từ file data có password

  lqchinh > 25-01-22, 10:32 AM

  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?

• RE: Tùy chọn liên kết lại các table từ file data có password

  lqchinh > 29-01-22, 07:43 PM

  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ả.
• Bài trước Bài tiếp