hugox03 > 06-05-14, 11:53 PM
Private Sub cmdlogin_Click()
If IsNull(Me.cbtendangnhap) Or Me.cbtendangnhap = "" Then
msgBoxUni DLookup("[Description]", "ThongBao", "[msgNo] = 3"), vbCritical, "Đang nhâp ..."
Me.cbtendangnhap.SetFocus
Exit Sub
End If
If IsNull(Me.txtpassword) Or Me.txtpassword = "" Then
msgBoxUni DLookup("[Description]", "ThongBao", "[msgNo] = 4"), vbCritical, "Đang nhâp ..."
Me.txtpassword.SetFocus
Exit Sub
End If
If Me.txtpassword.Value = DLookup("matkhau", "tblUser", "[ID]=" & Me.cbtendangnhap.Value) Then
id = Me.cbtendangnhap.Value
msgBoxUni DLookup("[Description]", "ThongBao", "[msgNo] = 5"), vbInformation, "Đang nhâp ..."
Me.Visible = False
DoCmd.OpenForm "frmFlashScreen"
Else
msgBoxUni DLookup("[Description]", "ThongBao", "[msgNo] = 6"), vbExclamation, "Đang nhâp ..."
solandangnhap = solandangnhap + 1
Me.txtpassword.SetFocus
End If
If solandangnhap > 2 Then
msgBoxUni DLookup("[Description]", "ThongBao", "[msgNo] = 7") & vbCrLf & "Vui long lien he voi Admin de biet them chi tiet!", vbCritical, "Vuot qua gioi han nhap mat khau!"
Application.quit
End If
End Sub
anhemnhangu > 07-05-14, 12:15 PM
(10-03-14, 08:00 PM)hugox03 Đã viết: file của mình dây ! Các bạn ai có thể giúp mình chuyển file trên sang access 2010 (64 bit)
http://www.mediafire.com/download/0abjc5...ycuong.rar
hugox03 > 07-05-14, 01:20 PM
jbxuanthanh > 10-04-20, 10:59 AM
ongke0711 > 10-04-20, 11:10 AM
(10-04-20, 10:59 AM)jbxuanthanh Đã viết: Chào bạn,
Mình thấy bạn đã sửa code thành công việc chuyển access 32bit lên 64bit.
Mình cũng có một phần mềm access chỉ chạy được access 32bit trong win XP.
Mong bạn sửa giúp mình phần này và mình cũng sẽ trả công xứng đang cho bạn.
Cám ơn nhiều