Chủ đề: Tạo Form đăng nhập
-
10-17-2009, 02:36 AM #1Junior Member
- Ngày tham gia
- Nov 2015
- Bài viết
- 0
Tạo Form đăng nhập
Em thấy trên diễn đàn có :
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 !
Nhưng làm theo thì không được.Đầu tiên mình làm 2 Textbox và đặt tên Như bạn tuyenduyet đã nêu ở trên.
Tạo nút Command button là cmdDN.Rồi mình copy đoạn mã trên dáng vào sự kiện On click như bạn ở trên trình bày.
Nhưng khi đánh vào thì TxtDN thì vẫn đánh bình thường nhưng khi qua txtMatKhau thì đánh vào không hiện ra ký tự che dấu như ***,mà hiện số bình thường(nói chung là đánh sao là hiện dậy không có mã hoá).
Khi chạy thì bị lỗi, Run time error 13,với tên lỗi là Type mismatch.[you] có cách nào khắc phục vấn đề trên không?View more random threads:
- Import file .DBF thành table cua access
- Nhờ hướng dẫn tạo report merge ô
- Giúp đở vấn đề share csdl access để được nhiều người dùng
- Nhờ các cao thủ giúp mình đoạn code lấy dữ liệu 1 table trong form
- Xin cho hỏi cú pháp tham chiếu đến textBox thuộc subForm
- Cần giúp đỡ gấp
- TIP : Ẩn Table trong ACCESS .
- cần giúp đỡ về bài này
- Lỗi khi nhập liệu bằng access mdb
- Đăng ký người sử dụng
-
10-17-2009, 03:19 AM #2Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: Tạo Form đăng nhập
nmhi cũng chưa có cách nào ngọc chung àh,bạn nào biết thì giúp luôn đi
-
10-18-2009, 04:50 AM #3Silver member
- Ngày tham gia
- Aug 2015
- Bài viết
- 104
Ðề: Tạo Form đăng nhập
Gửi bởi ngocchungkt2
Để biến ký tự hiểu được thành **** thì tại Input Mask bạn gó Password
-
10-18-2009, 09:05 PM #4Junior Member
- Ngày tham gia
- Nov 2015
- Bài viết
- 0
Ðề: Tạo Form đăng nhập
Bạn tạo form đăng nhập có 2 textbox là txtTendangnhap và txtMatkhau và 2 nút lệnh cmdDangnhap và cmdThoat. Trong table bạn tạo 1 table tblDanhsach có các field MaNSD,MaNhom,Tendangnhap,matkhau.Bạn có thể phát triển thêm đăng ký user vào table này. Trong sự kiện click của cmdDangnhap bạn gõ code sau :
Private Sub cmdDangnhap_Click()
If IsNull(Me.txtTendangnhap) Or Me.txtTendangnhap = "" Then
MsgBox "You must enter a User Name.", vbOKOnly, "Required Data"
Me.txtTendangnhap.SetFocus
Exit Sub
End If
'Check to see if data is entered into the password box
If IsNull(Me.txtMatkhau) Or Me.txtMatkhau = "" Then
MsgBox "You must enter a Password.", vbOKOnly, "Required Data"
Me.txtMatkhau.SetFocus
Exit Sub
End If
If Me.txtMatkhau.Value = DLookup("MatKhau", "tblDanhsach", "[Tendangnhap]='" & Me.txtTendangnhap.Value & "'") Then
DoCmd.Close acForm, "frmDangnhap", acSaveNo
DoCmd.OpenForm "frmMain"
Else
MsgBox "Password Invalid. Please Try Again", vbOKOnly, "Invalid Entry!"
Me.txtMatkhau.SetFocus
End If
End Sub
Private Sub txtMatkhau_LostFocus()
cmdDangnhap.SetFocus
End Sub
Private Sub cmdThoat_Click()
DoCmd.Close
End Sub
-
06-18-2012, 06:16 AM #5Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: Tạo Form đăng nhập
ai bjt hack wap . nho hack kai wap ; tuoiteen9x.waplux.com gjum e . kai wap lua dao . hjxhjx
-
06-07-2013, 07:14 AM #6Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: Tạo Form đăng nhập
sao mình làm cái form đăng nhập đúng như thế mà sao vẫn không được nhj??? nhờ ae jup với...
-
09-09-2013, 10:43 PM #7Junior Member
- Ngày tham gia
- Nov 2015
- Bài viết
- 0
Ðề: Tạo Form đăng nhập
không biết bạn đã tạo được form đăng nhập chưa nếu chưa bạn làm theo cách này .
đầu tiên bạn tạo 1 tb có tên là :
T_DangNhap -> TenDN : khóa chính
->MatKhau : input mask :để password
xong bạn tạo 1 form tên là F_login
trong đó chứa tb T_DangNhap
rồi bạn tạo thêm 1 cái combox tên là :IDtenDN , 1 cái text box tên là IDMatKhau vẩn để input mask là password
một nút button thuột tín name là cmdInput ,caption là đăng nhập.
một nút button thuột tín name là cmdQuit , caption la thoát.
rồi sau đó bạn vào combox tên IDtenDN đi tới thuộc tín Row Source chọn select table T_DangNhap rồi kéo cái TenDN xuống rồi đóng lại bạn sẽ được thế nào
Row Source ........... SELECT T_DangNhap.TenDN FROM T_DangNhap;
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[TenDN] = '" & Me![IDtenDN] & "'"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
Dim Msg As Variant
Dim varPassword As String
If IsNull(Me.IDtenDN) Or Me.IDtenDN = "" Then
msg = msgbox "Nội dung", vbCritical,"thongbao"
me.IDtenDN.setfocus
exit sub
end if
If IsNull(Me.txtpass) Or Me.txtpass = "" Then
msg = msgbox "Nội dung", vbCritical,"thongbao"
if msg = vbok then
me.IDMatKhau.setfocus
end if
end if
If IDTenDN = TenDN then
If IDMatKhau = MatKhau then
mainformOpen
docmd.Close acForm, "F_DangNhap"
else if
msg = msgbox "Nội dung", vbCritical,"thongbao"
if msg = vbok then
me.IDMatKhau.setfocus
end if
end if
end if
DoCmd.cmdQuit acQuitSaveAll
chúc bạn vui vẻ . học tập tốt .
-
09-10-2013, 03:25 PM #8Junior Member
- Ngày tham gia
- Nov 2015
- Bài viết
- 0
Ðề: Tạo Form đăng nhập
Gửi bởi maomao100
Địa chỉ cung cấp mẫu lăng mộ đá khu lăng mộ uy tín chất lượng Đá mỹ nghệ Tài Tuệ là đơn vị hàng đầu trong lĩnh vực điêu khắc chế tác các sản phẩm, công trình tâm linh bằng đá tại làng đá truyền...
Địa chỉ cung cấp mẫu lăng mộ đá khu lăng mộ uy tín chất lượng năm 2024