Very - very - simple lookup example asked.

[alsemgeest]

Hi,
I'd like to make my own very simple autorisation system.
Just a table: tblUsers (user and pw).
Next I need a form with user and pw in textbox, with an OK button.

If the lookup fails: msgbox "Wrong, bye!" and docmd.quit

If lookup succeeds: open the switchboard.

Now I'm not very familiar with the lookup function, and this is where I
get stuck.

Who can help?

Thanks

[Arno R]

<al********@it4 us.nl> schreef in bericht news:11******** **************@ g44g2000cwa.goo glegroups.com.. .

Hi,
I'd like to make my own very simple autorisation system.
Just a table: tblUsers (user and pw).
Next I need a form with user and pw in textbox, with an OK button.

If the lookup fails: msgbox "Wrong, bye!" and docmd.quit

If lookup succeeds: open the switchboard.

Now I'm not very familiar with the lookup function, and this is where I
get stuck.

Who can help?

Thanks

Since this is very - very simple indeed, you might as well look it up yourself ...
Hint: Search for 'DLookup' in the Help and just study the examples.

Arno R

[alsemgeest]

Not helpfull Arno. I get stuck in the following piece of code:
Private Sub Knop6_Click()
Dim varx As Variant

varx = DLookup("pw", "tblUsers", "User =" & """ Me![txtUser]&""")

If varx = Me!txtPw Then
MsgBox "Password Ok, please continue"
Else
MsgBox "Wrong! Get Out!"
End If

End Sub

I only get the "Wrong! Get Out!" reply, even on entries present in the
table.

Any helpfull suggestions??

Thx,
Paul

Arno R schreef:

<al********@it4 us.nl> schreef in bericht news:11******** **************@ g44g2000cwa.goo glegroups.com.. .

Hi,
I'd like to make my own very simple autorisation system.
Just a table: tblUsers (user and pw).
Next I need a form with user and pw in textbox, with an OK button.

If the lookup fails: msgbox "Wrong, bye!" and docmd.quit

If lookup succeeds: open the switchboard.

Now I'm not very familiar with the lookup function, and this is where I
get stuck.

Who can help?

Thanks

Since this is very - very simple indeed, you might as well look it up yourself ...
Hint: Search for 'DLookup' in the Help and just study the examples.

Arno R

[Arno R]

<al********@it4 us.nl> schreef in bericht news:11******** **************@ g49g2000cwa.goo glegroups.com.. .

Not helpfull Arno. I get stuck in the following piece of code:


Private Sub Knop6_Click()
Dim varx As Variant

varx = DLookup("pw", "tblUsers", "User =" & """ Me![txtUser]&""")

If varx = Me!txtPw Then
MsgBox "Password Ok, please continue"
Else
MsgBox "Wrong! Get Out!"
End If

End Sub

I only get the "Wrong! Get Out!" reply, even on entries present in the
table.

Any helpfull suggestions??

You are using the wrong syntax indeed, should be:
varx = DLookup("pw", "tblUsers", "User ='" & Me![txtUser] & "'"
(again with extra spaces for clarity only: "User= ' " & Me![TxtUser] & " ' " )

You could also use something like:
Dim strQuote as string
strQuote =Chr(34)
varx = DLookup("pw", "tblUsers", "User =" & strQuote & Me![txtUser] & strQuote)

Arno R

[Justin Hoffman]

"Arno R" <ar***********@ tiscali.nl> wrote in message
news:42******** *************@d reader2.news.ti scali.nl...
<al********@it4 us.nl> schreef in bericht
news:11******** **************@ g49g2000cwa.goo glegroups.com.. .

Not helpfull Arno. I get stuck in the following piece of code:
Private Sub Knop6_Click()
Dim varx As Variant

varx = DLookup("pw", "tblUsers", "User =" & """ Me![txtUser]&""")

If varx = Me!txtPw Then
MsgBox "Password Ok, please continue"
Else
MsgBox "Wrong! Get Out!"
End If

End Sub

I only get the "Wrong! Get Out!" reply, even on entries present in the
table.

Any helpfull suggestions??

You are using the wrong syntax indeed, should be:
varx = DLookup("pw", "tblUsers", "User ='" & Me![txtUser] & "'"
(again with extra spaces for clarity only: "User= ' " & Me![TxtUser] & " '
" )

You could also use something like:
Dim strQuote as string
strQuote =Chr(34)
varx = DLookup("pw", "tblUsers", "User =" & strQuote & Me![txtUser] &
strQuote)

Arno R
This may cause you trouble if the user's name is O'Connor. You could try my
function for adding quotes, which will avoid that problem:
Option Compare Database
Option Explicit

Public Enum QuoteType
NoQuote
SingleQuote
DoubleQuote
End Enum
Public Function AddQuotes(strVa lue, Q As QuoteType) As String

Dim strReturn As String

Select Case Q

Case QuoteType.Singl eQuote
strReturn = Replace(strValu e, "'", "''")
strReturn = "'" & strReturn & "'"

Case QuoteType.Doubl eQuote
strReturn = Replace(strValu e, """", """""")
strReturn = """" & strReturn & """"

Case Else
strReturn = strValue

End Select

AddQuotes = strReturn

End Function

[Arno R]

"Justin Hoffman" <[e-mail]> schreef in bericht news:d7******** **@nwrdmz01.dmz .ncs.ea.ibs-infra.bt.com...

This may cause you trouble if the user's name is O'Connor. You could try my
function for adding quotes, which will avoid that problem:

Hi Justin,
When you use Chr(34), which provides a double quote, there is no problem with O'Conner and such.
You are right on this when using the first syntax however.
Just thought that the OP was merely struggling with the DCount syntax ....

Arno R

[Justin Hoffman]

"Arno R" <ar***********@ tiscali.nl> wrote in message
news:42******** *************@d reader2.news.ti scali.nl...
"Justin Hoffman" <[e-mail]> schreef in bericht
news:d7******** **@nwrdmz01.dmz .ncs.ea.ibs-infra.bt.com...

This may cause you trouble if the user's name is O'Connor. You could try
my
function for adding quotes, which will avoid that problem:

Hi Justin,
When you use Chr(34), which provides a double quote, there is no problem
with O'Conner and such.
You are right on this when using the first syntax however.
Just thought that the OP was merely struggling with the DCount syntax ...

Arno R
Sure. If you've been coding a while, you must have done it all before, but
perhaps for the OP, coding like

strSQL=strSQL & AddQuotes(strUs er,DoubleQuote)

is quite readable (to me anyway)

[Br]

Justin Hoffman <[e-mail]> wrote:

"Arno R" <ar***********@ tiscali.nl> wrote in message
news:42******** *************@d reader2.news.ti scali.nl...
<al********@it4 us.nl> schreef in bericht
news:11******** **************@ g49g2000cwa.goo glegroups.com.. .

Not helpfull Arno. I get stuck in the following piece of code:
Private Sub Knop6_Click()
Dim varx As Variant

varx = DLookup("pw", "tblUsers", "User =" & """ Me![txtUser]&""")

If varx = Me!txtPw Then
MsgBox "Password Ok, please continue"
Else
MsgBox "Wrong! Get Out!"
End If

End Sub

I only get the "Wrong! Get Out!" reply, even on entries present in
the table.

Any helpfull suggestions??

You are using the wrong syntax indeed, should be:
varx = DLookup("pw", "tblUsers", "User ='" & Me![txtUser] & "'"
(again with extra spaces for clarity only: "User= ' " & Me![TxtUser]
& " ' " )

You could also use something like:
Dim strQuote as string
strQuote =Chr(34)
varx = DLookup("pw", "tblUsers", "User =" & strQuote & Me![txtUser] &
strQuote)

Arno R
This may cause you trouble if the user's name is O'Connor. You could
try my function for adding quotes, which will avoid that problem:

And what happens if someone enters one of the following as the user name
(incl quotes)?

" OR TRUE OR "

:) :)

<>

--
regards,

Bradley

A Christian Response
http://www.pastornet.net.au/response

[alsemgeest]

Hi,
I got it working now, with the StrQuote option that Arno suggested. I
think using a mask to prevent '":{:-)*_ from entering will be enough.
Paul