LoginForm Validation of User

[ThornofSouls]

Hi i have been working on a login form with a username and password input from the user. The code seams run just fine to the point when i want to make sure both the username and password are validated. My idea was to compare two boolean values with each other, and if they were true, then proceed.

//Thorn

The code on the Login form. (frmLogin)

Option Compare Database
Option Explicit


        
Private Sub cmd_Login_Click()
    
    On Error GoTo Err_Process
            Dim rs As Recordset
            Dim Crit1 As Boolean
            Dim Crit2 As Boolean
            Dim i As Integer
            Dim x As Integer
                    i = 1
                    x = (10 ^ (2))
    Set rs = CurrentDb.OpenRecordset("tblEmployees", dbOpenSnapshot, dbReadOnly)
    
    rs.FindFirst "UserName = "" & Me.txtUserName & """
        
        Me.txtUserName.SetFocus
        If rs.NoMatch = True Then
                Me.lbl_Login_Err.Visible = True
                Me.txtUserName.SetFocus
                Crit1 = False
        Else
                Me.lbl_Login_Err.Visible = False
                Crit1 = True
        End If
                    
        If rs!PW <> Nz(Me.txt_PW, "") = True Then
                Me.lbl_Login_Err.Visible = True
                Me.txt_PW.SetFocus
                Crit2 = False
        Else
                Me.lbl_Login_Err.Visible = False
                Crit2 = True
'                DoCmd.Close acForm, Me.Name
'                DoCmd.OpenForm "frmMenu"
        End If
                    If Crit1 And Crit2 = True Then
                        DoCmd.Close acForm, Me.Name
                        DoCmd.OpenForm "frmMenu"
                    End If


'    Do While i < x
'        i = i + 1
'        Me.lbl_Login_Err.Visible = True
'        Debug.Print i
'                If i = x Then
'                    Me.lbl_Login_Err.Visible = False
'                    Debug.Print i
'                    i = i - i
'                    Exit Do
'                End If
'    Loop




'        Do
'            i = i + 1
'            Debug.Print i
'                If i = x Then
'                        Me.lbl_Login_Err.Visible = False
'                        Debug.Print i
'                        i = i - i
'                        Exit Do
'                End If
'        Loop
Exit_Process:
        Exit Sub
Err_Process:
        Resume Exit_Process
End Sub


Private Sub cmdEN_Click()
            Me.lblUserName.Caption = "Username:"
            Me.lbl_PW.Caption = "Password:"
            Me.lbl_Login_Err.Caption = "Wrong password or Username"
End Sub


Private Sub cmdSE_Click()
'        MsgBox lblUserName.Height
'        MsgBox lblUserName.Width
        Me.lblUserName.Caption = "Användarnamn:"
        Me.lbl_PW.Caption = "Lösenord:"
        Me.lbl_Login_Err.Caption = "Fel Användarnamn eller Lösenord"
End Sub

[ranman256]

Check login against the windows authentication...

SUB btnLogin_Click()
Dim sUser As String, sPass As String, sDom As String

sUser = txtUser
sPass = txtPass
sDom = txtDom

If WindowsLogin(sUser, sPass, sDom) Then
   mbSafe = True
   DoCmd.OpenForm "frmMainMenu"
   DoCmd.OpenForm "frmLogin"
   DoCmd.Close
Else
   MsgBox "LOGIN INCORRECT", vbCritical, "Bad userid or password"
End If

'-----------------
Public Function WindowsLogin(ByVal strUserName As String, ByVal strpassword As String, ByVal strDomain As String) As Boolean
'-----------------
        'Authenticates user and password entered with Active Directory.

        On Error GoTo IncorrectPassword
        
        Dim oADsObject, oADsNamespace As Object
        Dim strADsPath As String
        
        strADsPath = "WinNT://" & strDomain
        Set oADsObject = GetObject(strADsPath)
        Set oADsNamespace = GetObject("WinNT:")
        Set oADsObject = oADsNamespace.OpenDSObject(strADsPath, strDomain & "\" & strUserName, strpassword, 0)
        
        WindowsLogin = True    'ACCESS GRANTED
        
ExitSub:
        Exit Function
        
IncorrectPassword:
        WindowsLogin = False   'ACCESS DENIED
        Resume ExitSub
End Function

[ThornofSouls]

As I understand it, This code them last login details, to the Windows account that last logged in to the machine. Linked to a specific domain.
or am i wrong?

it feels like this subroutine is above my current knowledge of vba. if you do not mind it, I would appreciate a summarized förklaning how the code handles inlognings data.
//Thorn

[ranman256]

Yes , it uses window authentication, for user/password/domain check.
if it returns false, login failed.

[ThornofSouls]

Do you happen to have a sample db so i can take a look on the table structure?

[ranman256]

there are no tables. it is code to validate the login.

[ThornofSouls]

Oh
I see..

Thx