Cách bảo vệ dữ liệu nhạy cảm của bạn bằng biểu mẫu đăng nhập trong Access

Giải pháp truy cập Tháng Chín 29, 2025

Biểu mẫu đăng nhập là bắt buộc đối với cơ sở dữ liệu chứa thông tin nhạy cảm. Thực hiện theo các bước bên dưới để bạn có thể tạo biểu mẫu đăng nhập của riêng mình nhằm bảo vệ cơ sở dữ liệu của bạn khỏi truy cập không hợp lệ.

Tải xuống Ngay

Nếu bạn muốn bắt đầu sử dụng tính năng này càng sớm càng tốt, bạn có thể:

Tải xuống cơ sở dữ liệu mẫu với mã VBA ngay bây giờ

Còn không, nếu bạn muốn DIY, bạn có thể đọc nội dung bên dưới.

Các bước để tạo biểu mẫu đăng nhập trong Access

1. Tạo bảng đăng nhập

Điều đầu tiên mà chúng ta cần làm là tạo một bảng sẽ lưu trữ tất cả thông tin đăng nhập.

Tạo một bảng mới và đặt tên là tbl_login.
Mở bảng trong dạng xem thiết kế.
Thêm các trường sau với kiểu dữ liệu tương ứng của chúng:

Tên trường	Loại dữ liệu
ID người dùng	Số tự động
Tên đầu tiên	Văn bản ngắn
Họ	Văn bản ngắn
Tên người dùng	Văn bản ngắn
Mật khẩu	Văn bản ngắn

Chỉnh sửa mặt nạ nhập của mật khẩu để nó được hiển thị dưới dạng một chuỗi dấu hoa thị (*).

Chọn trường Mật khẩu.
Chuyển đến tab Chung > Mặt nạ nhập liệu >…
Khi Trình hướng dẫn Mặt nạ Nhập liệu bật lên, hãy chọn Mật khẩu.
Nhấp vào Kết thúc.

Mở bảng ở dạng xem Bảng dữ liệu và nhập bản ghi đầu tiên (chi tiết đăng nhập của bạn).
Đóng bảng và lưu các thay đổi đã thực hiện.

2. Tạo biểu mẫu Đăng nhập

Tạo một biểu mẫu trống với 2 hộp văn bản và 2 nút lệnh (như hình bên dưới). Bỏ qua trình hướng dẫn nút lệnh.

Chúng ta sẽ đề cập đến các điều khiển biểu mẫu này trong mã của mình sau, vì vậy tốt nhất nên đổi tên chúng để có thể dễ dàng xác định chúng:

txt_tên người dùng
txt_mật khẩu
cmd_login
cmd_hủy

Tiếp theo, thay đổi dấu hiệu nhập của hộp văn bản mật khẩu để nó cũng sẽ được hiển thị dưới dạng một chuỗi dấu hoa thị (*).

Trong chế độ xem thiết kế, hãy chọn hộp văn bản mật khẩu.
Mở Bảng thuộc tính (ALT + Enter).
Chuyển đến tab Dữ liệu > Mặt nạ nhập liệu.
Chọn Mật khẩu và nhấp vào Kết thúc.

Bây giờ, chúng ta sẽ thay đổi một số thuộc tính của biểu mẫu vì mục đích thẩm mỹ và quan trọng nhất là để đảm bảo người dùng không thể bỏ qua biểu mẫu này nếu không nhập thông tin đăng nhập chính xác.

Trong khi ở chế độ xem thiết kế, hãy chọn biểu mẫu (như minh họa bên dưới).
Mở Bảng thuộc tính (ALT + Enter) và cập nhật các thuộc tính sau:

Bên dưới Định dạng chuyển hướng
- Chú thích: Đăng nhập
- Bộ chọn bản ghi: Không
- Nút điều hướng: Không
- Thanh cuộn: Không
- Kiểu viền: Hộp thoại
- Nút Đóng: Không

Bên dưới Khác chuyển hướng
- Bật lên: Có
- Phương thức: Có
- Menu phím tắt: Không

Lưu biểu mẫu dưới dạng frm_login.

3. Thêm mã

Thêm sự kiện Khi nhấp chuột vào nút Đăng nhập.

Trong chế độ xem thiết kế, hãy chọn nút Đăng nhập.
Chuyển đến Trang thuộc tính > Tab sự kiện > Khi nhấp chuột > …
Chọn Trình tạo mã từ menu Chọn Trình tạo và nhấp vào OK.
Thao tác này sẽ mở Trình chỉnh sửa VBA.
Sao chép mã dưới đây.

Private Sub cmd_login_Click()

  Dim db As DAO.Database
  Dim rst As DAO.Recordset
  Dim strSQL As String
 
  If Trim(Me.txt_username.Value & vbNullString) = vbNullString Then
    MsgBox prompt:="Username should not be left blank.", buttons:=vbInformation, title:="Username Required"
    Me.txt_username.SetFocus
    Exit Sub
  End If
 
  If Trim(Me.txt_password.Value & vbNullString) = vbNullString Then
    MsgBox prompt:="Password should not be left blank.", buttons:=vbInformation, title:="Password Required"
    Me.txt_password.SetFocus
    Exit Sub
  End If
 
  'query to check if login details are correct
  strSQL = "SELECT FirstName FROM tbl_login WHERE Username = """ & Me.txt_username.Value & """ AND Password = """ & Me.txt_password.Value & """"
 
  Set db = CurrentDb
  Set rst = db.OpenRecordset(strSQL)
  If rst.EOF Then
    MsgBox prompt:="Incorrect username/password. Try again.", buttons:=vbCritical, title:="Login Error"
    Me.txt_username.SetFocus
  Else
    MsgBox prompt:="Hello, " & rst.Fields(0).Value & ".", buttons:=vbOKOnly, title:="Login Successful"
    DoCmd.Close acForm, "frm_login", acSaveYes
  End If
 
 Set db = Nothing
 Set rst = Nothing

End Sub

Mã này sẽ:

Kiểm tra xem các trường tên người dùng và mật khẩu không bị bỏ trống. Nếu có, một lời nhắc sẽ xuất hiện.
Kiểm tra xem các chi tiết đăng nhập có chính xác hay không bằng cách so sánh chúng với các giá trị trong bảng đăng nhập (tbl_login).
Khi các chi tiết đăng nhập được xác minh, lời nhắc sẽ xuất hiện chào đón người dùng.

Bước tiếp theo là thêm mã cho nút Hủy để sau khi nhấp vào nút này, cơ sở dữ liệu sẽ đóng lại.

Thêm sự kiện Khi nhấp vào nút Hủy (quy trình tương tự với nút Đăng nhập).
Sao chép mã dưới đây.

Private Sub cmd_cancel_Click()
   DoCmd.Quit acQuitSaveAll
End Sub

4. Đặt Biểu mẫu đăng nhập làm Biểu mẫu hiển thị

Cuối cùng, đặt Biểu mẫu đăng nhập làm biểu mẫu mặc định mà người dùng sẽ thấy khi mở cơ sở dữ liệu.

Chuyển đến Tệp > Tùy chọn > Cơ sở dữ liệu hiện tại.
Đặt Biểu mẫu hiển thị thành frm_login.
Nhấp vào OK.

Bạn sẽ phải đóng cơ sở dữ liệu và mở lại để xem nó hoạt động như thế nào.

Khôi phục cơ sở dữ liệu truy cập của bạn

Chúc mừng! Bây giờ bạn đã biết cách bảo vệ cơ sở dữ liệu quý giá của mình khỏi truy cập không hợp lệ. Bây giờ, tôi sẽ cho bạn thêm một lời khuyên. Nếu vì một lý do đáng tiếc nào đó, cơ sở dữ liệu của bạn đã bị hỏng, ĐỪNG hoảng sợ. DataNumen Inc., chuyên gia về công nghệ khôi phục dữ liệu, cung cấp phần mềm sửa chữa truy cập bị hỏng cơ sở dữ liệu. Cơ sở dữ liệu của bạn vẫn có thể được phục hồi.

Giới thiệu tác giả:

Jayme Stack là một chuyên gia phục hồi dữ liệu trong DataNumen, Inc., công ty hàng đầu thế giới về công nghệ khôi phục dữ liệu, bao gồm phục hồi sql và các sản phẩm phần mềm phục hồi excel. Để biết thêm thông tin, hãy truy cập www.datanumennăm