String and Dlookup

[DubboPete]

Hi all,

Have tried variations on this, but keep getting Error 2428. Anyone know
what's wrong with these lines of code, and why I get error 2428?

I'm trying to compare the password for a UserID (stored in TblUsers) to a
text string they enter in field [text4].

<snip>

Dim StrPwd As String
StrPwd = DLookup("password", TblUsers, "[UserID] =
[Forms]![FrmLogin]![Combo0]")

If Me.Text4 = StrPwd Then
DoCmd.OpenForm "FrmBOMCreate"
Else
et cetera, et cetera, et cetera......

</snip>


Combo0 returns a numeric value, to try and match to [tblusers].[userid].
Password field in TblUsers is text.

Hmmmm....
17th Century Goat-Herder

 

[Shane S via AccessMonster.com]

Hey Pete,

If 'UserID' is a number try:
StrPwd = DLookup("password", TblUsers, "[UserID] = " & [Forms]![FrmLogin]!
[Combo0])

If it's a text try:
StrPwd = DLookup("password", TblUsers, "[UserID] = '" & [Forms]![FrmLogin]!
[Combo0] & "'")
'I added 1 space so you could see what's happening- ' "
" ' "

HTH,
Shane

Hi all,

Have tried variations on this, but keep getting Error 2428. Anyone know
what's wrong with these lines of code, and why I get error 2428?

I'm trying to compare the password for a UserID (stored in TblUsers) to a
text string they enter in field [text4].

<snip>

Dim StrPwd As String
StrPwd = DLookup("password", TblUsers, "[UserID] =
[Forms]![FrmLogin]![Combo0]")

If Me.Text4 = StrPwd Then
DoCmd.OpenForm "FrmBOMCreate"
Else
et cetera, et cetera, et cetera......

</snip>

Combo0 returns a numeric value, to try and match to [tblusers].[userid].
Password field in TblUsers is text.

Hmmmm....
17th Century Goat-Herder

 

[Guest]

I suggest always bracketing fields and tblUsers without quotes makes Access
think tblUsers is a variable that will contain the name of the table.

StrPwd = DLookup("[password]", "TblUsers", "[UserID] = " & [Forms]![FrmLogin]!
[Combo0])

Hey Pete,

If 'UserID' is a number try:
StrPwd = DLookup("password", TblUsers, "[UserID] = " & [Forms]![FrmLogin]!
[Combo0])

If it's a text try:
StrPwd = DLookup("password", TblUsers, "[UserID] = '" & [Forms]![FrmLogin]!
[Combo0] & "'")
'I added 1 space so you could see what's happening- ' "
" ' "

HTH,
Shane

Hi all,

Have tried variations on this, but keep getting Error 2428. Anyone know
what's wrong with these lines of code, and why I get error 2428?

I'm trying to compare the password for a UserID (stored in TblUsers) to a
text string they enter in field [text4].

<snip>

Dim StrPwd As String
StrPwd = DLookup("password", TblUsers, "[UserID] =
[Forms]![FrmLogin]![Combo0]")

If Me.Text4 = StrPwd Then
DoCmd.OpenForm "FrmBOMCreate"
Else
et cetera, et cetera, et cetera......

</snip>

Combo0 returns a numeric value, to try and match to [tblusers].[userid].
Password field in TblUsers is text.

Hmmmm....
17th Century Goat-Herder

 

[DubboPete]

Heya Klatuu,

That little tip worked, where Shane's didn't. Thanks mate. Now to the
next challenge!

Pete