User Login Details!

[cap.zadi]

Hi

I am using the below codes to record the user details who entered or update the data;

Private Sub Form_BeforeUpdate(Cancel As Integer)


    UpdatedBy = Environ("username")
    UpdatedOn = Now()
End Sub


Private Sub Form_Current()
If Me.NewRecord Then
        EnteredBy = Environ("username")
        EnteredOn = Now()
End If
End Sub

and its working fantastic but getting the system user as used "Environ" but DB the has its own login details as UserName, Password, etc "TblSecurity" which can use the given user credentials or system user "Default Value: =fOSUserName()" after assigning the password to the system user in "TblSecurity".

Requirement: How to get the either user details at form current and before update events.

[June7]

tblSecurity needs field for the system user name. Then grab username from system and use DLookup() to pull the corresponding db user name.

[cap.zadi]

*The System user is updated in the "TblSecurity" by assigning a password like others, otherwise he cant logged in the DB.

The issue is only to record the Last Entered and Update fields by the logged user (either system or other user) but right now those fields picked up the System user in each table.

SO a help with code for DLookup () should be appreciated.

[June7]

If users have to use db username and password to login, why are you grabbing system username?

I have code that gets Environ("username") and looks for record in tblUsers. If not found then this is first time user and a 'login' form pops up for them to enter initials. Code creates record in tblUsers. User never sees the login form again. There is no password.

[cap.zadi]

Well, Yeah you are right and i should not mix up with system user.

There is no issues with the login entry form as it is controlled by the TblSecurity.

The issue is only to get the real user name of "TbleSecurity" who entered or updated the records.

As given above code, used at form which picked up only system user rather than logged user.

[June7]

You don't really need the system username?

User logged into workstation might not be same individual who logs into the db on that workstation?

When user logs into db save the db username somewhere so it can be referenced at anytime, from anywhere in the db. I save user info on a form that never closes (MainMenu). Other options are global variable or TempVars.

[cap.zadi]

Yeah, i dont think so but u have a advance option which is better but in my case we dont need it. Lets Setup users at start or later in TblSecurity to get permission to logged in at any work place.

No one should logged in the system until have proper assigned user name or password.

So kindly advise for the requirements.

[isladogs]

I'm a bit confused. Hopefully the following is correct

You want to store the logged in user name rather than Environ("UserName") as these may be different.
So when the user logs in, just store that info as a variable e.g. strCurrentUser
Then have a public function GetCurrentUser and set that equal to strCurrentUser

You can then use GetCurrentUser throughout your application as needed
Or you can use a tempvars if preferred.

[cap.zadi]

Well, Yeah its true.

So shall be the code like that?

Private Sub Form_BeforeUpdate(Cancel As Integer)


UpdatedBy = strCurrentUser
UpdatedOn = Now()
End Sub


Private Sub Form_Current()
If Me.NewRecord Then
EnteredBy = Environ("username")

EnteredOn = Now()
End If
End Sub

[cap.zadi]

Sorry means like that?

Private Sub Form_BeforeUpdate(Cancel As Integer)


UpdatedBy = strCurrentUser
UpdatedOn = Now()
End Sub


Private Sub Form_Current()
If Me.NewRecord Then
EnteredBy = strCurrentUser
EnteredOn = Now()
End If
End Sub

[isladogs]

The last two posts look the same to me.
That's not quite what I said which was to refer to a function.
What do you think will happen using both of these ?
Have you tried it?

[cap.zadi]

Well, yeah with little correction.

For sure, its not working at all.

I am not a expert even not have the functions idea, so kindly explain what you said?

[isladogs]

OK. Here's one method. Change all control names as appropriate

1. Create a Public variable in a standard module

Public strCurrentUser as String

2. on the login form,

Private Sub cmdLogin_Click()
strCurrentUser=Me.txtUserName

End Sub

3. Add this code to a standard module

Function GetCurrentUser()
    GetCurrentUser=strCurrentUser
End Function

Now you can get the current user at any time by just calling the function

EnteredBy = GetCurrentUser

Hopefully you can do the rest yourself

[cap.zadi]

Hi, Thanks for the idea and help but i am not expert like you even at very starting level.

Anyways, i will try. Thanks

[isladogs]

You could have a look at this example database on my website http://www.mendipdatasystems.co.uk/p...gin/4594469149

Good luck. Come back if you get stuck