Checking Password

[Always_Learning]

Hi There,

Can someone help me with checking the characters of a password entered by the user.
I need to check there is Uppercase characters, Lowercase Characters, Special Characters etc.



I have tried the code below but it returns that all characters are lowercase when I have entered some uppercase characters.

The Code I have used:

Dim PasswordLength As Integer
Dim AtChar As Byte
Dim offset As Long
Dim TempAlpha As String

PasswordLength = Len(Me.Txt_Password)

While PasswordLength <> AtChar ' Test value of Counter.
AtChar = AtChar + 1 ' Increment Counter.
TempAlpha = UCase(Mid(Me.Txt_Password, AtChar, 1))
If UCase(Mid(Me.Txt_Password, AtChar, 1)) = True Then
MsgBox ("Is UpperCase")
Else
MsgBox ("Is LowerCase")
End If
Wend ' End While loop.

I would appreciate any help you can give.

Best Regards,

[ItsMe]

I would use the ASC standard to determine what characters the user is typing in. You could create a cheat sheet and store the cheat sheet as a table. Another approach would be to use built in functions.
http://msdn.microsoft.com/en-us/libr...ffice.15).aspx

[drexasaurus]

UCase only returns the all upper-case version of the string, it doesn't test for case. You're testing if the upper-case letter = true, but that always = false. You could store the uppercase version of the character in a variable, and then test it against the original: you can use the StrComp function like this, StrComp("HE", "he", vbBinaryCompare) = 0, to test if there is a difference in case (the function will return 0 if they DO match, and <> 0 if they don't, it DOES NOT return true or false). Most other comparisons will compare capital and lowercase letters as the same.

Dim upChar As String
upChar = uCase(otherVariable)
if StrComp(otherVariable, upChar, vbBinaryCompare) = 0 then
debug.print "Is upper"
else
debug.print "Is lower"

[Missinglinq]

Another way to force case-sensitive comparisons, on a login form, is to use

Option Compare Binary

at the top of the code module for the form.

Linq ;0)>

[ItsMe]

...Option Compare Binary...

And yet, people hate on Visual Basic. I find it extraordinarily versatile.

[Missinglinq]

Amen to that! Most people haven't a clue as to how powerful and complex a development language it really is!

I used its predecessor, QuickBasic 4.5, for many years, developing databases, primarily, and I was amazed when I saw how much power the Boys of Redmond had added to it, not even counting the addition of Tripod, which was the basis for the GUI! I had an app that required the precise addition of a set number of days to given dates...30, 45. 60, 90, etc. To get it exact required determining the month of the original date, the number of days in that month, the number of days in the subsequent month(s,) whether or not it was a leap year or moving into a leap year, and so on. In QB 4.5 it took about 4 single-spaced pages of code. When I found out that in Visual Basic (and VBA, of course) those four pages of code could be replaced with

Me.NewDate = DateAdd("d", 90, Me.OriginalDate)

it just blew me away, and I was hooked!

Linq ;0)>