Chủ đề: Làm sao đặt password trong Acess
-
04-15-2009, 03:43 PM #1
Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
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!
View more random threads:
- giúp tạo form tìm kiếm
- Lỗi không hiển thị số 0 trong Report
- khóa Phím PageUp & PageDown
- Làm sao để tạo uneditable combobox?
- dùng query thêm trường vào bảng
- Lấy dự liệu từ Query này sang Query khác mà không có liên kết
- Mở file bằng MS2003 không được - Lỗi 10027
- down mãi ko được
- Tạo form, report với số cột thay đổi (động)
- giáo trình access 2003 toàn tập
-
04-15-2009, 04:13 PM #2
Junior Member
- Ngày tham gia
- Nov 2015
- Bài viết
- 6
Ðề: 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.
-
04-23-2009, 05:35 AM #3
Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: 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 !
-
05-02-2009, 01:36 AM #4
Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 5
Ðề: Làm sao đặt password trong Acess
Gửi bởi thichinh89
Cá hồi Theo thầy thuốc Hồng Gấm, cá hồi nổi danh vì giàu acid béo omega-3 tốt cho sức khỏe tim mạch và đời sống chăn gối. Bên cạnh cá hồi thì cá mòi, cá ngừ, cá bơn… cũng giúp đời sống tình dục sung...
3 loại đạm giúp nam giới khỏe – sai cách ăn là mất tác dụng!