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

Mình muốn đặt giới hạn thời gian hoạt động của access thì có cách nào không ạ?

• Trang chủ

  • Thủ Thuật Access
  • Access Nâng Cao
  • Thư viện thủ thuật
  • Hướng Dẫn Mình muốn đặt giới hạn thời gian hoạt động của access thì có cách nào không ạ?
• Mình muốn đặt giới hạn thời gian hoạt động của access thì có cách nào không ạ?

• Mình muốn đặt giới hạn thời gian hoạt động của access thì có cách nào không ạ?

  Thang0977427268 > 30-06-19, 11:51 PM

  Ví dụ như các phần mềm bản quyền ấy, mình cho dùng 1 năm thì hết 1 năm sẽ phải gia hạn mới được dùng tiếp? Mọi người cho ỏi Access làm được không ạ? Nếu có cho mình xin huớng dẫn với ạ?

• RE: Mình muốn đặt giới hạn thời gian hoạt động của access thì có cách nào không ạ?

  tranthanhan1962 > 01-07-19, 12:58 AM

  Rất đơn giản.
  Trường hợp 1: Giới hạn hết hạn sử dụng vào một ngày xác định
  Tao một form đăng nhập (login form) statup open khi mở phần mềm
  Tạo code: (Ví dụ ngày hết hạn la 1/1/2920)
  

  Mã:

  Private Sub Form_Open(Cancel As Integer)
If Date >= #1/1/2920# Then
msgBox “Chương trình đã hết hạn sử dụng”
DoCmd.Quit
End if
End Sub

  
  Trường hợp 2: Giới hạn hết hạn sau 1 năm sử dụng
  Tạo một query để lọc ngày bắt đầu nhập liệu (lọc từ form nào nhập liệu có sử dụng ngày – Sử dụng total query tại field chứa ngày xác lập Total - Min)
  Tạo một form chứa textbox giá có trị min của ngày làm subform của form login
  Code:
  

  Mã:

  Private Sub Form_Open(Cancel As Integer)
If Date >= DateSerial(year(Form![login]![subform]. Form![NGAY])+1; Mont(Form![login]![subform]. Form![NGAY]); Day(Form![login]![subform]. Form![NGAY])) then
msgBox “Chương trình đã hết hạn sử dụng”
DoCmd.Quit
End if
End Sub

  
  * Còn vấn đề là người ta vẫn ăn gian sửa ngày hệ thống nhỏ hơn ngày hết hạn để sử dụng, Khi đó chương trình vẫn mở ra được
  Sử dụng  code tương tự như trên vào form nhập liệu. Giả sử trường ngày của form nhập liệu là NGAY
  Trường hợp 1
  

  Mã:

  Private Sub NGAY_AfterUpdate()
If NGAY.Value >= #1/1/2920# Then
msgBox “Chương trình đã hết hạn sử dụng”
DoCmd.Quit
End if
End Sub

  Trường hợp 2
  

  Mã:

  Private Sub NGAY_AfterUpdate()
If NGAY.Value >= DateSerial(year(Form![login]![subform]. Form![NGAY])+1; Mont(Form![login]![subform]. Form![NGAY]); Day(Form![login]![subform]. Form![NGAY])) then
msgBox “Chương trình đã hết hạn sử dụng”
DoCmd.Quit
End if
End Sub
• Bài trước Bài tiếp