Login form type mismatch

[rafal]

Hey,


could someone correct my mistake in this code?

Description

- Form ekran_uzytkownika uses table which contains columns : pesel (as double) and haslo (as string)
- when I use only " "[pesel]=" & login " it works well but when I add any other condition I get error 13
- condition " "[haslo]=" & haslo " doesn't really work, it prompts me to type it twice as it couldn't recognize [haslo] column.

Private Sub loguj_Click()
Dim login As Double
Dim haslo As String
Me.te_PESEL.SetFocus
login = Val(Me.te_PESEL.Text)
Me.te_haslo.SetFocus
haslo = Me.te_haslo.Text

DoCmd.OpenForm "ekran_uzytkownika", , , ("[pesel]=" & login) And ("[haslo]=" & haslo) ' error 13 '
End Sub

Peace

Solution

when I use only " "[pesel]=" & login " it works well but when I add any other condition I get error 13

DoCmd.OpenForm "ekran_uzytkownika", , , "[pesel]=" & login & " And [haslo]='" & haslo & "'"

condition " "[haslo]=" & haslo " doesn't really work, it prompts me to type it twice as it couldn't recognize [haslo] column.

Added hidden field with password on ekran_uzytkownika form. (Not safe but it doesn't have to be in this case )

[pbaldy]

You didn't restart the string properly. Try this:

DoCmd.OpenForm "ekran_uzytkownika", , , "[pesel]=" & login & " And [haslo]='" & haslo & "'"

You can get rid of the setfocus lines if you drop the ".Text" from the other lines. .Value is the default, and it's what you want anyway.

[RuralGuy]

This line:
DoCmd.OpenForm "ekran_uzytkownika", , , ("[pesel]=" & login) And ("[haslo]=" & haslo) '
...should read:
DoCmd.OpenForm "ekran_uzytkownika", , , "[pesel]=" & login & " And [haslo]='" & haslo & "'"

[RuralGuy]

That Paul just types too fast!

[pbaldy]

I tell ya, it's the lower altitude. More oxygen to the fingers.

You've got a bonus double quote in there by the way (after And).

[RuralGuy]

No extra charge for the extra quote. Thanks.

[rafal]

Thanks

only problem is that it compares password given in textbox to password taken from popup window instead comparing it to password in table.

[RuralGuy]

Your OpenForm command is simply putting a WhereCondition on the RecordSource of the ekran_uzytkownika form. Not the usual way to supply a password.

[rafal]

Silly me, fixed. Thanks again
Solved

[RuralGuy]

Glad to hear you got it sorted. Care to share your solution with others that read this thread?

[rafal]

Added solution to my first post

[RuralGuy]

Added solution to my first post

Thank you.