frmLogin TempVar & Alias

User avatar
burrina
4StarLounger
Posts: 550
Joined: 30 Jul 2014, 23:58

frmLogin TempVar & Alias

Post by burrina »

I'm having a brain fog episode I guess. I need to make 2 changes to my form. 1. Use TempVar as userID and 2. Allow Alias as userID also.
This means I capture the userID thru TempVar and the user can also use an Alias to login as well. i.e. nickname.

txtuserID = UserName logging into database

txtpswd = UserName password that matches txtuserID

This is on frmLogin

The user can login using their userID or Alias and of course matching password.

tblUserSecurity_Sec is the table where everything is stored.

I want to be able to use TempVar so I can use it elsewhere in the db.

Code: Select all

Dim TempUserLogin As TempVar 

Dim TempAlias As TempVar 

TempVars!TempUserLogin = Me.txtuserID.Value 

TempVars!TempAlias = DLookup("Alias", "tblUserSecurity_Sec", "Alias = '" & userID= '" & txtUserID "'"))    

‘Can I do this? 

If TempVars!TempUserLogin = Me.txtuserID.Value & TempVars!TempAlias & "" And 

If Not IsNull Encrypt(DLookup("pswd", "tblUserSecurity_Sec", "pswd='" & Me.txtpswd & "'")) Then 

‘Login 

User avatar
HansV
Administrator
Posts: 78241
Joined: 16 Jan 2010, 00:14
Status: Microsoft MVP
Location: Wageningen, The Netherlands

Re: frmLogin TempVar & Alias

Post by HansV »

That won't work. I'd do something like

Code: Select all

    If DCount("*", "tblUserSecurity_Sec", "(userID='" & Me.txtUserID & "' Or Alias='" & Me.txtUserID & "') & _
            And pswd='" & Me.txtPswd & "'") = 0 Then
        ' Login failed
        ...
    Else
        ' Login OK
        ...
    End If
Best wishes,
Hans

User avatar
burrina
4StarLounger
Posts: 550
Joined: 30 Jul 2014, 23:58

Re: frmLogin TempVar & Alias

Post by burrina »

Why DCount and not DLookup ? I want to compare the values? Before adding TempVar and Alias the DLookup works perfectly.

User avatar
burrina
4StarLounger
Posts: 550
Joined: 30 Jul 2014, 23:58

Re: frmLogin TempVar & Alias

Post by burrina »

OKay, I can still walk and chew gum at the same time.
Dim UserLogin As TempVar
UserLogin = Me.txtuserID.Value

'etc . . .