hungzero > 20-10-13, 07:03 PM
cpucloi > 20-10-13, 08:30 PM
hungzero > 21-10-13, 12:15 AM
ttm20062008 > 21-10-13, 12:01 PM
(21-10-13, 12:15 AM)hungzero Đã viết: http://www.mediafire.com/?9f3o4o2bwu07k2wGửi bạn
híc, đây là bài em làm đơn giản nhất mà ko dc. các bạn chỉ mình mới (sửa lại bài cũng đc ạ)
Thank
Private Sub cmdLogin_Click()
Dim use As String
Dim pas As String
use = DLookup("tblDSUser", "tblDSUser")
pas = DLookup("tblDSUpas", "tblDSUser")
If IsNull(Me.ten) Then
MsgBox "ten nguoi dung khong duoc de trong!", vbInformation, "Thong bao"
Me.ten.SetFocus
Exit Sub
End If
If IsNull(Me.txtPassWord) Then
MsgBox "mat khau khong duoc de trong", vbInformation, "Thong bao"
Me.txtPassWord.SetFocus
Exit Sub
End If
If Me.ten.Value <> use Then
MsgBox "ten nguoi dung chua chinh xac", vbInformation, "Thong bao"
Me.ten.SetFocus
Exit Sub
End If
If Me.txtPassWord <> pas Then
MsgBox "mat khau chua chinh xac", vbInformation, "Thong bao"
Exit Sub
End If
If Me.ten = use And Me.txtPassWord = pas Then
MsgBox "Dang nhap thanh cong! Chuc " & Me.ten & " lam viec vui ve ", vbInformation, "Thong bao"
DoCmd.OpenForm "main", acNormal
DoCmd.Close acForm, "frmlogin"
End If
End Sub
tt1212 > 21-10-13, 07:39 PM
vinamilk0510 > 22-10-13, 01:39 AM
(20-10-13, 07:03 PM)hungzero Đã viết: Vâng, như tiêu đề, vì em đã dọc các HD nhưng cứ lung tung sao ấy.
Em có 2 form: 1 là LOGIN và form chương trình
1. Em muốn giúp em tạo code để login thành công thì vào form 2 (form chương trình)
2. ở phần password chuyển thành dạng ***
và code mở access ra nó hiện form login luôn
=> Nếu đc HD cự thể giúp em
Thank