Jet Fusion
Member
Hi
Please can someone assist
in changing part of a code to show the following:
1. To have a password with letters and number
Change part of a code to show the following in the pop dialog:
2. Greeting message with - Current user name and & - Good morning (<12:00) / Good afternoon (>12:00) depending on time of day.
3. Day of week & Date & Tim.
Below part of the code which shows the password & pop dialog once logging in
Thanks in advance
Jet
Please can someone assist
in changing part of a code to show the following:
1. To have a password with letters and number
Change part of a code to show the following in the pop dialog:
2. Greeting message with - Current user name and & - Good morning (<12:00) / Good afternoon (>12:00) depending on time of day.
3. Day of week & Date & Tim.
Below part of the code which shows the password & pop dialog once logging in
Code:
If user <> "" And Not IsNumeric(user) And Code <> "" And IsNumeric(Code) Then
For Each PName In Sheet2.Range("H8:H108")
If PName = CLng(Code) And PName.Offset(0, -1) = user Then
MsgBox "Welcome Back: – " & user
AddData.Value = user
AddData.Offset(0, 1).Value = Now
'Add usernmae to the worksheet
Current.Value = user
Thanks in advance
Jet