populate textbox based on user log in

awake2424

Registered User.
Local time
Today, 15:36
Joined
Oct 31, 2007
Messages
479
Code:
Private Sub Check253_AfterUpdate()
If Me.Check253 = -1 Then
     Me.Text254 = DLookup("[Lot]", "[tblAutoGen]", "[Inuse] = -1")
     Me.Text256 = DLookup("[Exp]", "[tblAutoGen]", "[Inuse] = -1")
     Me.Text258 = DLookup("[Lot]", "[tblEthanol]", "[Inuse] = -1")
     Me.Text260 = DLookup("[Exp]", "[tblEthanol]", "[Inuse] = -1")
     Me.Text262 = DLookup("[Lot]", "[tblDPBS]", "[Inuse] = -1")
     Me.Text264 = DLookup("[Exp]", "[tblDPBS]", "[Inuse] = -1")
     Me.Text266 = DLookup("[Lot]", "[tblTE]", "[Inuse] = -1")
     Me.Text268 = DLookup("[Exp]", "[tblTE]", "[Inuse] = -1")
     Me.Text259.Value = Date
End If
End Sub

I am using the code above on my form and it seems to be working. My question is there a way to populate a textbox (Text255) based off a login?

For example, lets say JSmith is loged in to the computer. Is there a way that JS could populate Text255? If then say JCarter is logged on, the JC populates Text255. Thank you.
 
you can use

text255=Environ("username")

which provides the windows login id
 

Users who are viewing this thread

Back
Top Bottom