Need help

[neosam]

hi
I am very very new to working in access and need some help. I have a table where a specific data is stored and i have a form where i added a text box. I want to check if the data entered in the text box is the same as the one in the table. Is there a specific code i need to use. Sorry if this seems pretty silly, but ive just started working.
Thanks

[MindBender77]

hi
I am very very new to working in access and need some help. I have a table where a specific data is stored and i have a form where i added a text box. I want to check if the data entered in the text box is the same as the one in the table. Is there a specific code i need to use. Sorry if this seems pretty silly, but ive just started working.
Thanks

On the OnExit event of the textbox, you could use "DLookup" to find the record in the table. Example:

Dim data
 
data = dlookup("[Field Name]","YourTableName", "[Field Name] = Textbox")
 
If isnull(data) = true or data = "" then
'do something here
Else
Docmd.cancelevent
End If
 

Hope this Helps,
Bender

[neosam]

On the OnExit event of the textbox, you could use "DLookup" to find the record in the table. Example:

Dim data
 
data = dlookup("[Field Name]","YourTableName", "[Field Name] = Textbox")
 
If isnull(data) = true or data = "" then
'do something here
Else
Docmd.cancelevent
End If
 

Hope this Helps,
Bender

Just let me know if the code i have written is right....
"New_password" is the field name
"Password" is the table name
"PswdTBox" is the name of the text box

If Data = DLookup("New_Password", "Password", "New_Password = PswdTBox") Then
        DoCmd.OpenForm "Homepage", acNormal, , , acFormEdit, acWindowNormal
        DoCmd.Close acForm, Me.Name
    Else
        MsgBox "Wrong Password! Sorry."
    End If

Thanks

[MindBender77]

Just let me know if the code i have written is right....
"New_password" is the field name
"Password" is the table name
"PswdTBox" is the name of the text box

If Data = DLookup("New_Password", "Password", "New_Password = PswdTBox") Then
DoCmd.OpenForm "Homepage", acNormal, , , acFormEdit, acWindowNormal
DoCmd.Close acForm, Me.Name
Else
MsgBox "Wrong Password! Sorry."
End If

Thanks

Try:

Dim data 'This has to stay.
data = DLookup("[New_Password]", "Password", "[New_Password] = PswdTBox") 
 
if isnull(data) = true or data = "" then
         DoCmd.OpenForm "Homepage", acNormal, , , acFormEdit, acWindowNormal
        DoCmd.Close acForm, Me.Name 
else
         MsgBox "Wrong Password! Sorry."
    End If
 

Bender

[neosam]

Try:

Dim data 'This has to stay.
data = DLookup("[New_Password]", "Password", "[New_Password] = PswdTBox") 
 
if isnull(data) = true or data = "" then
         DoCmd.OpenForm "Homepage", acNormal, , , acFormEdit, acWindowNormal
        DoCmd.Close acForm, Me.Name 
else
         MsgBox "Wrong Password! Sorry."
    End If
 

Bender

Well it doesnt work ..... it directly jumps to the else command.... is there something that i have to change in the table. The table has only the new password.... no other data is there in the table.... i'm pretty stumped...

[neosam]

Try:

Dim data 'This has to stay.
data = DLookup("[New_Password]", "Password", "[New_Password] = PswdTBox") 
 
if isnull(data) = true or data = "" then
         DoCmd.OpenForm "Homepage", acNormal, , , acFormEdit, acWindowNormal
        DoCmd.Close acForm, Me.Name 
else
         MsgBox "Wrong Password! Sorry."
    End If
 

Bender

Hey this actually works..... if i change the code to
"If IsNull(data) = False Or data = "" Then"
Thanks a lot dude... probably couldnt have done this without ur help...

[NeoPa]

Try :

If IsNull(DLookup("[New_Password]", _
                  "[Password]", _
                  "[New_Password]='" & Me.PswdTBox & "'")) Then
  MsgBox "Wrong Password! Sorry."
Else
  DoCmd.OpenForm "Homepage", acNormal, , , acFormEdit, acWindowNormal
  DoCmd.Close acForm, Me.Name
End If

Make sure when you're testing that you check it handles both successful AND unsuccessful password entry.