Làm sao đặt password trong Acess

[ngocdatit]

Thưa các anh chị.Làm sao mà có thể đặt password trong Acces được.Mong các anh chị chỉ giúp Em!Em xin cảm ơn!

View more random threads:

• Bài tập về quản lý tiệm cầm đồ - Cần giúp gấp
• cần code phần mềm access( tham khảo)
• Tạo tiêu đề in đậm của form dạng datasheet
• Xin trợ giúp nhập data từ form vào table
• Tính tổng nam, tổng nữ trong total query
• Lỗi không hiển thị số 0 trong Report
• Gán giá trị text box
• Hàm tìm kiếm lấy giá trị từ Table hoặc Query ( Không điều kiện, một điều kiện, nhiều điều kiện )
• Xin giúp đỡ Listbox & combox access!
• Phân tích chi phí

[ledatht]

Ðề: Làm sao đặt password trong Acess

Chào bạn, để đặt password trong Access thì bạn làm như sau

Tool/security/Set Database Password. Nhưng nhớ là phải mở file access ở chế độ Open exclusive. Để mở chế độ Open exclusive, chọn File/open, chọn file muốn mở, trên nút Open có một mũi tên hình tam giác, click vào mũi tên và chọn Open exclusive.

Xin lỗi vì bài viết này có vẻ hơi trễ. Nhưng đây là bài viết đầu tiên của mình, mình là sinh viên năm cuối chuyên ngành tin học kế toán. Rất mong mọi người chỉ bảo cho.

[blogstud1]

Ðề: Làm sao đặt password trong Acess

Của bạn thuanctk06 là nhờ MS làm giúp. Mình có hải kiểu làm bằng VBA:
1. Tạo 1table: tblUs có các trường TenDN, MatKhau (PASSWORD)
Bạn tạo 1form (form này bảy đầu tiên khi khởi động chương trình) có: txtTenDN, txtMatKhau, cmdDN.
Tại nút cmdDN (ở chuẩn On Click) viết code như sau:
Private Sub cmdDN_Click()
If Not IsNull(txtTenDN) = DLookup("TenDN", "tblUs", "TenDN='" & txtTenDN.Value & "'") And Not IsNull(txtMatKhau) = DLookup("MatKhau", "tblUs", "MatKhau='" & txtMatKhau.Value & "'") Then
MsgBox "Chao ban " & txtTenDN, vbInformation, "Hello !"
DoCmd.Close
Else
MsgBox "Bye bye ...", vbExclamation, "Bye..."
DoCmd.Quit
End If
End Sub
2. Bạn tạo 1form (form này bảy đầu tiên khi khởi động chương trình) có: txtTenDN, txtMatKhau, cmdDN
Tại nút cmdDN (ở chuẩn On Click) viết code như sau:
Private Sub cmdDN_Click()
If Not IsNull(txtTenDN) = "duyet" And Not IsNull(txtMatKhau) = "111111" Then
MsgBox "Chao ban " & txtTenDN, vbInformation, "Hello !"
DoCmd.Close
Else
MsgBox "Bye bye ...", vbExclamation, "Bye..."
DoCmd.Quit
End If
End Sub

Câu lệnh Docmd.Close bạn hãy thay câu lệnh cho phù hợp với mình nhé
Thân chào !

[MinhPhuc123]

Ðề: Làm sao đặt password trong Acess

Thưa các anh chị.Làm sao mà có thể đặt password trong Acces được.Mong các anh chị chỉ giúp Em!Em xin cảm ơn!

Bạn mở Database của bạn ra(nhớ khi mở bạn phải chon Open Exclusive),trên Menu chọn Tools,chọn Security,chọn Set Database password,Acc sẻ mở cái form cho bạn nhập password 2 lần là xong.