Auto populate user Id to the userform

[Chrisb812]

Hello All

I'd like some help please.

I'm slowly developing an Excel workbook with macro's & userforms & various tables, I've managed to add a new form for users to login to the program, when the excel file is opened, the user is presented with a userform to enter his/her user-id & password, which then, in turn, opens the excel file to the home sheet, data is then only available to enter via another userform to update tables.

Where I need further help is, when the data entry forms open I'd like the current Users ID to automatically show on the userform in a locked textbox (textbox1), so this can then be transferred with the data to the table row being entered, I'm ok with the data transfer-coding, just need some help with the User ID population.

I'd like the User-ID they use to login using the new login form, not the windows or pc id.

Thank you in advance.

Chris

[LeoTaxi]

Something like

otheruserform.textbox1=userform.loginbox

Kind regards
Leo

[Chrisb812]

Something like

otheruserform.textbox1=userform.loginbox

Kind regards
Leo

Hi Leo

Thank you for your reply, this is perfect, great response.

Chris

[Chrisb812]

Hello Leo

The code works great, but i just noticed that when the user presses the Clear Button, the User-Id clears from the screen along with the rest of the form, is there a bit of code i can add to the Command Button "Clear" not to clear the User-Id "Textbox1"

Private Sub ClearStockControl_Click()

Unload Me

StockControl.Show

End Sub

Thanks in Advance
Chris

[Pepe Le Mokko]

Administrative note

Welcome to the forum

in your haste to solve your problem, you probably missed the yellow banner advising how to get answers faster by posting a sheet ?

Please take a moment to read it and attach a sheet accordingly.

Thanks you for helping us help you

[LeoTaxi]

i have to see this code that do the clear

kind regards
Leo

[Chrisb812]

i have to see this code that do the clear

kind regards
Leo

ok mate, It's the code i posted above

Private Sub ClearStockControl_Click()

Unload Me

StockControl.Show

End Sub

[LeoTaxi]

or like Pepe said, post your file

cheers
Leo

[LeoTaxi]

Maybe

Private Sub ClearStockControl_Click()
dim mstring as string
mstring=textbox1
Unload Me

StockControl.Show
StockControl.textbox1=mstring

End Sub

[Chrisb812]

Maybe

Private Sub ClearStockControl_Click()
dim mstring as string
mstring=textbox1
Unload Me

StockControl.Show
StockControl.textbox1=mstring

End Sub

That don't seem to work, i'll attach a copy of the file

[Chrisb812]

Thanks in advance
Chris

[LeoTaxi]

need also username and login

[Chrisb812]

need also username and login

sorry mate, use: admin, admin

[LeoTaxi]

Never good to unload the form to clear so replace code for clear button

Private Sub ClearCradles_Click()
VinNumber = ""
VehicleMake.ListIndex = -1
StockLocation.ListIndex = -1
DateIn = ""
VehicleType.ListIndex = -1
GeoReference = ""
DateOute = ""
PodReference = ""
ReceivingDealer.ListIndex = -1
Notes = ""
EnterDate = ""
CradleType.ListIndex = -1
Reference = ""
CradlesIn = ""
CradlesOut = ""
DistInvNo = ""
StorageInvNo = ""
CheckedDate = ""
CheckedBy.ListIndex = -1
End Sub

Kind regards
Leo

[Chrisb812]

perfect, thanks again Leo

[Chrisb812]

Hello Leo

Been doing some testing today and came across a problem with the user-ID, it populates when the program opens and use the userform to enter the first record (row of data), but then the User-ID disappears from the Textbox as the sheet is updated? the only way to get the User-ID back is to close the program and log back in, any suggestions?

Thanks in advance
Chris

[Pepe Le Mokko]

Administrative Note:

Please don't quote entire posts unnecessarily. They clutter threads and make them hard to read.
Use the "Quick reply" instead
Thanks

[LeoTaxi]

All places where you use this 2 lines

    Unload Me
    StockControl.Show

you have to replace those 2 lines with

ClearStockControl=true

Kind regards
Leo