Form login không thể chạy trên Window 7
anhemnhangu > 21-10-17, 09:04 PM
Anh/chị cho em hỏi:
Form login chạy bình thường trên Windows XP, nhưng khi copy file này chạy trên windows 7 thì nó không
thể Login vào. Giờ em phải làm sao để nó login vào.
Cám ơn.
Đây là đoạn Code của form login em đang sử dung:
Private Sub cmdlogin_Click()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("tADMIN")
rs.MoveFirst
Do
If rs.Fields("user") = txtuser.Value And rs.Fields("pass") = txtpass.Value Then
Exit Do
Else
rs.MoveNext
End If
Loop While Not rs.EOF
If rs.EOF Then
MsgBox "Ten dang nhap hoac mat khau khong dung", vbOKOnly, "Thong bao!"
Else
DoCmd.Close
DoCmd.OpenForm "frmmain"
End If
rs.Close
db.Close
End Sub