Case Sensitive Password Check 1

[StanJx]

This is my current code for comparing passwords

If Me.txtPassword.Value = DLookup("Password", "qryUser", "[UserID]=" & Me.cmbUserName.Value) Then

But there is no case sensitive validation. Would appreciate some advise on how to add a case sensitive validation to this code.

 

[strongm]

StrComp is your friend

 

[StanJx]

I tried it with an AND function but I can't seem to get is to work. Here is what I tried out

If Me.txtPassword.Value = DLookup("Password", "qryUser", "[UserID]=" & Me.cmbUserName.Value) And StrComp(Me.txtPassword, Me.cmdUserName.Column(2),1) Then

Could you help me with the code a bit.. I would really appreciate it.

 

[strongm]

Step 1: use vbBinaryCompare rather than vbTextCompare. The latter is case insensitive ...

 

[StanJx]

Tried a code like this to no effect.. Is there a mistake with my code?

If Me.txtPassword.Value = DLookup("Password", "qryUser", "[UserID]=" & Me.cmbUserName.Value) And StrComp(Me.txtPassword.Value, Me.cmbUserName.Column(2), 0) Then

 

[StanJx]

I realized that I hadn't defined the output.. It works fine.. Just had to set the output to false..

If Me.txtPassword.Value = DLookup("Password", "qryUser", "[UserID]=" & Me.cmbUserName.Value) And StrComp(Me.txtPassword.Value, Me.cmbUserName.Column(2), 0) = False Then

 

[strongm]

Glad you got it working

 

[missinglinq]

Just for future reference, the simplest way to do this, for any Form where you want comparisons to be Case Sensitive (such as in 'log-on' Forms) is, at the top of the code window for the Form, to replace

Option Compare Database

with

Option Compare Binary

All operations comparing Strings will now be Case Sensitive, with no further syntax adjustments.

Hope this helps!

There's always more than one way to skin a cat!

All posts/responses based on Access 2003/2007