Code
Option Compare Database
Option Explicit
Private Sub btncancel_Click()
DoCmd.Quit
End Sub
Private Sub btnLogin_Click()
Dim rs As DAO.Recordset
Dim SQL As String
sql = "select * from users where username =" & Me.txtUserName.Value
Set rs = CurrentDb.OpenRecordset(sql)
If rs.EOF Then
incorrectUserNameStyle
Exit Sub
End If
rs.MoveFirst
If rs("Password") <> Nz(Me.txtPassword, "") Then
IncorrectPassowrdStyle
End If
DoCmd.OpenForm "Main"
DoCmd.Close acForm, Me.Name
End Sub
Private Sub incorrectUserNameStyle()
Me.lblIncorrectUserName.Visible = True
Me.txtUserName.BorderColor = RGB(255, 0, 0)
End Sub
Private Sub IncorrectPassowrdStyle()
Me.lblIncorrectPassword.Visible = True
Me.txtPassword.BorderColor = RGB(255, 0, 0)
End Sub
Display More
Under is Wrong Please Help Me!!!