A shot in the dark:
Change these two lines of your code:
strpasswordmatch = Sheets("Valid Users").Range("c2").Value
If strpassword = strpasswordmatch Then
To This:
strpasswordmatch = Trim(Sheets("Valid Users").Range("c2").Value)
If Trim(strpassword) = strpasswordmatch Then
Let us know...
Tom
Appended:
Change:
strpassword = frmpassword1.textboxpassword1.Value
To:
strpassword = frmpassword1.textboxpassword1.Text
[ This Message was edited by: TsTom on 2002-04-04 19:39 ]
Like this thread? Share it with others