Getusername function

[tucker61]

I have a function called hetusername, which looks at who is logged on, to see if they have permissions to press certain buttons etc.

What this means is that a user could be logged on for 1 hour and in that time the code could check their user details 10 or more times.

Trying to think of a way that it inly needs to check the username once, and this is stored somewhere.

I do have a hidden timer form. So might be best just storing the data on that hidden form.

Any thoughts ?

 

[Gasman]

I used to ask people to log in, and stored it in a TempVar.

 

[Pat Hartman]

I also use a login form that validates the ID when the user opens the database. If the user is valid, the login form hides itself but stays open and opens the menu. Thereafter, the code uses the bound data on the login form to check authorizations.

 

[theDBguy]

Even if you don't use a login form, you could probably use the getusername function once to store the username in a tempvar and then simply refer to that tempvar whenever you need that information rather than execute the function multiple times. Just a thought...

 

[azhar2006]

If you want to lock certain buttons inside the form, you can use (InputBoxDK) which is enough for that. I use it in most programs.

Private Sub Option8_BeforeUpdate(Cancel As Integer)

If Me.Option8 Then
    Me.Button name.Enabled = False
ElseIf InputBoxDK("Enter the password to unblock the print buttons.", "access-programmers.co.uk") = "pass" Then
    Me.Button name.Enabled = True
MsgBox " The ban has been lifted.", , "AZ"
Else
    MsgBox "Incorrect password", , "AZ"
    Cancel = True
End If

End Sub

 

[Gasman]

And just where do you find InputBoxDK ?

 

[tucker61]

If trying to set as Temp Vars.
Is the following correct - as i need to remove the first and last character from the username (as within AWS).

TempVars!MyTempVar = Mid(Environ("UserName"), 2, Len(Environ("UserName")) - 2) ' Create or set the TempVar

My Original code is below

Public Function GetUserName() As String
GetUserName = Mid(Environ("UserName"), 2, Len(Environ("UserName")) - 2)
End Function

 

[Gasman]

Debug.Print it and find out?
Might want to give it a better name as well? TempVars!Username ?

 

[azhar2006]

And just where do you find InputBoxDK ?

Code written by Daniel Klann
March 2003
64-bit modifications developed by Alexey Tseluiko and Ryan Wells (wellsr.com) February 2019

 

[tucker61]

Debug.Print it and find out?
Might want to give it a better name as well? TempVars!Username ?

Compile Error - Invalid outside procedure - Highlighting the "Username" in Mid(Environ("UserName")

 

[Gasman]

Code written by Daniel Klann
March 2003
64-bit modifications developed by Alexey Tseluiko and Ryan Wells (wellsr.com) February 2019

View attachment 116457

What is that doing, over and above a standard inputbox?

 

[Gasman]

Works for me in immediate window?

 

[azhar2006]

What is that doing, over and above a standard inputbox?

It just converts the numbers and letters in the inputbox into stars.

 

[Gasman]

I would have just used a form.

 

[azhar2006]

I would have just used a form.

Gasman I don't know why I love you so much. You are amazing ​

 

[tucker61]

I would have just used a form.

I have now added the fields i need to the hidden form. Thanks

 

[Gasman]

I have now added the fields i need to the hidden form. Thanks

That was directed at @azhar2006, re the inputbox?
You should be able to use your function anywhere?

 

[Pat Hartman]

Even if you don't use a login form, you could probably use the getusername function once to store the username in a tempvar and then simply refer to that tempvar whenever you need that information rather than execute the function multiple times. Just a thought...

If you don't use a login form, you will have trouble testing because you will need to find a way for "getusername" to return the ID you want to test with.

 

[theDBguy]

If you don't use a login form, you will have trouble testing because you will need to find a way for "getusername" to return the ID you want to test with.

I inherited an app with a login form for the users to enter their username and password, and I decided to use GetUsername instead. I never had any problems with returning the ID, and the users were happy for not having to remember one more password.

 

[Pat Hartman]

I inherited an app with a login form for the users to enter their username and password, and I decided to use GetUsername instead. I never had any problems with returning the ID, and the users were happy for not having to remember one more password.

I think you missed my point. Also, they can use whatever password they like. Assuming the login eliminates 50% of the user verification AND allows a random person to sit down at your desk as you.