User name and password validation

[Mithunshankar]

Please could some one provide me the code to validate the user name and password fields using Vb for MS access.

Fields ::
User name :: text box
Password :: text box
Login :: button

The form should accept the user name and password from the text box , validate the same against a table on MS access if successful should allow the user to proceed to next form else display a alert/error message.


Thanks a lot,
Mithun.

[debasisdas]

Kindly post the code that you have tried to solve this problem, to get help from our experts

[Mithunshankar]

Code containing errors

Private Sub Login1_Click()
On Error GoTo Err_Login1_Click
 
    Dim stDocName As String
    Dim stLinkCriteria As String
    text3.SetFocus
 
    If text3.Text = user_validate.user_name And text5.Text = user_validate.Password Then
 
    stDocName = "Applications"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
    Else
    MsgBox "Please enter correct user name and password", vbOKOnly
 
 
Exit_Login1_Click:
    Exit Sub
 
Err_Login1_Click:
    MsgBox Err.Description
    Resume Exit_Login1_Click
    End If
End Sub

[QVeen72]

Hi,

Remove the error handling and keep a break point and tell us which line u r getting the error...?

What is this :
user_validate.user_name
(TableName.FieldName) or (FormName.ControlName)... ?


REgards
Veena

[DanAusitn]

how secure are you wanting this to be you may want to consider some encrytion as the password and username can easly be retrived by a hex editor this way

[Mithunshankar]

Hi,

Remove the error handling and keep a break point and tell us which line u r getting the error...?

What is this :
user_validate.user_name
(TableName.FieldName) or (FormName.ControlName)... ?


REgards
Veena

user_validate.user_name
(TableName.FieldName)

[QVeen72]

Hi,

Then, u simply cant give, TableName.FieldName,
U have to declare a Record set Open Recordset with the "Where Crieteria", if u find any Records, then allow to proceed or else, Prompt again, giving appropriate message . SQL Statement shud be something like this :

sSQL = "Select * From UserTable Where UserName = '" & TxtUserName.Text & "' And Password = '" & txtpwd.text & "'"
 

Regards
Veena

[Mithunshankar]

Trying with the following code....
getting an error as "Object required"

* * * code * * *

Private Sub Login_Click()
On Error GoTo Err_Login_Click
 
    Dim stDocName As String
    Dim stLinkCriteria As String
    Dim user_name As String
    Dim passwor As String
 
 
If user_validate.user_name = Text3.Text And user_validate.Password = Text5.Text Then
sSQL = "Select * From User_validate Where User_Name = '" & Text3.Text & "' And Password = '" & Text5.Text & "'"
 
    stDocName = "Applications"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
 
    Else
    MsgBox "Invalid user id or password, please try again", vbOKOnly
 
 
 
Exit_Login_Click:
    Exit Sub
 
Err_Login_Click:
    MsgBox Err.Description
    Resume Exit_Login_Click
    End If
 
End Sub

[QVeen72]

Hi Mithun,

Open a Recordset with the given SQL Statement, in ur code, open recordset line is missing..

REgards
Veena

[Mithunshankar]

Hi Mithun,

Open a Recordset with the given SQL Statement, in ur code, open recordset line is missing..

REgards
Veena

Hi Veena,
I'm a begineer with VB. Please could you let me know how i can Open a Recordset with the given SQL Statement.
Thanks a lot for the guidance and support.
regards,
Mithun

[QVeen72]

Hi,

I have not used mucg of VBA, I always work on VB6,
Anyway, Check This Basic Code:
I assume u r using ADO

Dim rs As ADODB.Recordset
Dim sSQL As String
Set rs = New ADODB.Recordset
sSQL ="Select * From MyUserTable Where UserName = '" _
    & Trim(txtUserName.Text) & "' And Pwd ='" & Trim(txtPwd.Text) & "'"
rs.Open sSQL, CurrentProject.Connection
If RS.EOF Then
   Msgbox "User Not Found"
   'Prompt again for user name /pwd
Else
   'User Found
   'Write Code to Open ur Application
End If
rs.Close
Set rs = Nothing
 
 

U can refine the Code..

REgards
Veena

[Mithunshankar]

Hi Veena,
Thanks a lot for the help and guidance.....
I have a question with regards to setting the focus on an object "
Please could you let me know whether I can explicitly set focus on more than one object at a time. i.e., user name and password fields"

Thanks and regards,
Mithun

The following code is working fine... except for
.... it is requesting me to set the focus on the text box (Password) field too....
Please could you let me know whether I can explicitly set focus on more than one object at a time.if so how?


Private Sub Login_Click()
On Error GoTo Err_Login_Click

Dim stDocName As String
Dim stLinkCriteria As String
Dim user_name As String
Dim password As String
Dim temp As String

Dim rs As ADODB.Recordset
Dim sSQL As String
Combo2.SetFocus
Set rs = New ADODB.Recordset
sSQL = "Select * from user_validate Where user_Name = '" & Combo2.SelText & "'"
rs.Open sSQL, CurrentProject.Connection
' rs.MoveFirst


If rs.EOF Then
MsgBox "User Not Found"
'Prompt again for user name /pwd
Else
'MsgBox "User Found"
'Write Code to Open ur Application
End If
rs.Close
Set rs = Nothing

' commented **** Mithun *****
' Combo2.SetFocus

'sSQL = "SELECT user_validate.user_name FROM user_validate"
'temp = Combo2.SelText
'temp = user_validate.user_name

'If user_validate.user_name = Combo2.SelText And user_validate.password = Text4.Text Then
'sSQL = "Select * From User_validate Where User_Name = '" & Combo2.SelText & "' And Password = '" & Text4.Text & "'"

' stDocName = "dhome"
' DoCmd.OpenForm stDocName, , , stLinkCriteria

' Else
'MsgBox "Invalid user id or password, please try again", vbOKOnly

'End of commented section **** Mithun *****

Exit_Login_Click:
Exit Sub

Err_Login_Click:
MsgBox Err.Description
Resume Exit_Login_Click
' End If

End Sub

[hariharanmca]

Hi Veena,
Thanks a lot for the help and guidance.....
I have a question with regards to setting the focus on an object "
Please could you let me know whether I can explicitly set focus on more than one object at a time. i.e., user name and password fields"

To make set focus

txtCtrlName.SetFocus

You cannot make set focus for two object at a time

[jagu]

Please could some one provide me the code to validate the user name and password fields using Vb for MS access.

Fields ::
User name :: text box
Password :: text box
Login :: button

The form should accept the user name and password from the text box , validate the same against a table on MS access if successful should allow the user to proceed to next form else display a alert/error message.


Thanks a lot,
Mithun.

Reply from Mr.Jack ( Diploma engineer ) ongoing with AMIE

after dragging controls on active control form


on login button write this following code

a=trim(val(username.text)
b=trim(val(password.text)
while adodc1.recordset.eof<>true
if adodc1.recordset.fields("username")=a then
if adodc1.recordset.fields("password")=b then
login.setfocus
exit sub
else
adodc1.recordset.movenext
end if
else
adodc1.recordset.movenext
end if
wend
msgbox " invalid login",vbinformation
username.text=""
password.text=""
username.setfocus

[Mithunshankar]

HI,
Thank you every one for the help and guidance provided. in getting this task completed.

Mentioned below is the final version of the code.

regards,
Mithun

Private Sub Login_Click()
On Error GoTo Err_Login_Click

Dim stDocName As String
Dim stLinkCriteria As String
Dim user_name As String
Dim Password As String
Dim temp As String

Dim rs As ADODB.Recordset
Dim rss As ADODB.Recordset

Dim sSQL As String
Dim tSQL As String
Dim x As String

Combo2.SetFocus
Set rs = New ADODB.Recordset
sSQL = "Select password from user_validate Where user_Name = '" & Combo2.SelText & "'"
rs.Open sSQL, CurrentProject.Connection
If rs.EOF Then
MsgBox "Either the user name or password entered are invalid. Please try again. ", vbOKOnly
Else
rs.MoveFirst

While rs.EOF = False
x = rs(0).Value
rs.MoveNext
Wend




Text4.SetFocus

Set rss = New ADODB.Recordset
tSQL = "select * from user_validate where password = ' " & Text4.Text & "'"

rss.Open sSQL, CurrentProject.Connection

If x <> Text4.Text Then
MsgBox "User Not Found"

'Prompt again for user name /pwd
Else
Combo2.SetFocus

MsgBox " " & Combo2.SelText & " Welcome to DESTINATION ONE ", vbOKOnly
DoCmd.Close
stDocName = "dhome"
DoCmd.OpenForm stDocName, , , stLinkCriteria
'Write Code to Open ur Application
End If
End If


rs.Close
Set rs = Nothing


Exit_Login_Click:
Exit Sub

Err_Login_Click:
MsgBox Err.Description
Resume Exit_Login_Click
' End If


End Sub