Validate password case sensitive

[puuts]

Hello Gurus,

I'm new to access vba and I'm trying to create a login form. I have already my code to login but i want to validate the password in 'case sensitive' basis. Below is only what I've got so far.

Thanks in advance!

Private Sub cmdLogin_Click()

Dim login_validation As Variant

login_validation = DLookup("Password", "tblLogin", "Username='" & Nz(txtUsername.Value, "") & "'")
If Nz(login_validation, "") <> Nz([txtPassword].Value, "") Then

    MsgBox "Incorrect Password. Please try again."
    txtUsername.Value = ""
    txtPassword.Value = ""
    txtUsername.SetFocus
Else
  MsgBox "Hi " & txtUsername.Value & "," & vbNewLine & vbNewLine & "you have successfully login!"
  DoCmd.OpenForm "frmMain"
  
End If



End Sub

[amrut]

Try using LCase("YourString") and UCase("YourString")
See here for more -
http://www.techonthenet.com/access/f...ring/ucase.php
http://www.techonthenet.com/access/f...ring/lcase.php

[Missinglinq]

In order to get the Access Gnomes to compare Strings on a Case Sensitive basis, you can change how comparisons are done, for that Form. At the top of the Form's Code Module change

Option Compare Database

to

Option Compare Binary

Alternatively, you could use something like

If StrComp(String1, String2, vbBinaryCompare) = 0 Then

But for a login Form I'd go with the Option Compare Binary.

Linq ;0)>

[puuts]

Hi Missing,

could you please set an example to my code?