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:
- Form lập các loại đơn.
- [HELP] Nhờ các bạn giúp đỡ !!!!!!!!!!
- Giúp đỡ mình về cách thiết kế và in một Hoá đơn
- Nhờ các cao thủ giúp mình về tạo query lấy dữ liệu
- Giúp em tạo báo cáo hóa đơn theo quý
- không nhập dữ liệu mới được trong form??
- Tao dấu %
- Làm sao gán giá trị của text box cho text box
- Muốn học access 2003
- Mở file Access bị khoá
-
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
Bạn đang trên dưới một trải nghiệm cực khoái khó quên, đa tầng và dị biệt? Bạn muốn khám phá cảm giác "lên đỉnh" mạnh mẽ mà không cần phải cố kỉnh quá nhiều? Lovense Ridge – đồ chơi mát-xa lỗ đít...
? Không phải thần tiên, nhưng Lovense Ridge sẽ khiến bạn 'lên mây' thật!