Hi Alan,
That's good. Sorry I didn't get the bold headings <G>
--
HTH
Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)
Just what I needed, Bob!
Thanks, Alan
Alan,
I'm not sure if I understand, but if I do, there isn't a best way, but is this any good
Dim smsg, smsg2
smsg = "Code" & vbTab & "Description Equiv." & vbTab & vbTab & vbTab & "Hours" & vbCrLf & _
"D" & vbTab & "Days" & vbTab & vbTab & vbTab & vbTab & "7.5" & vbCrLf & _
"E" & vbTab & "Evenings" & vbTab & vbTab & vbTab & vbTab & "7.5" & vbCrLf & _
"N" & vbTab & "Nights" & vbTab & vbTab & vbTab & vbTab & "7.5" & vbCrLf & _
"DE" & vbTab & "Day AND Evening Shift" & vbTab & vbTab & "15" & vbCrLf & _
"EN" & vbTab & "Evening AND Night Shift" & vbTab & vbTab & "15" & vbCrLf & _
"ND" & vbTab & "Night AND Day Shift" & vbTab & vbTab & "15" & vbCrLf & _
"DES" & vbTab & "Day AND Evening Short Shift" & vbTab & vbTab & "11.5" & vbCrLf & _
"ENS" & vbTab & "Evening AND Night Short Shift" & vbTab & "11.5" & vbCrLf & _
"NDS" & vbTab & "Night and Day Short Shift" & vbTab & vbTab & "11.5" & vbCrLf & _
"7-11" & vbTab & "Short Shift AM" & vbTab & vbTab & vbTab & "4" & vbCrLf & _
"9-13" & vbTab & "Short Shift AM" & vbTab & vbTab & vbTab & "4" & vbCrLf & _
"8-12" & vbTab & "Short Shift AM" & vbTab & vbTab & vbTab & "4" & vbCrLf & _
"15-19" & vbTab & "Short Shift PM" & vbTab & vbTab & vbTab & "4" & vbCrLf & _
"17-21" & vbTab & "Short Shift PM" & vbTab & vbTab & vbTab & "4" & vbCrLf
smsg2 = "X" & vbTab & "Off" & vbTab & vbTab & vbTab & vbTab & "0" & vbCrLf & _
"F" & vbTab & "Float Day Off" & vbTab & vbTab & vbTab & "7.5" & vbCrLf & _
"ST" & vbTab & "Statutory Holiday" & vbTab & vbTab & vbTab & "7.5" & vbCrLf & _
"ST-W1" & vbTab & "Stat worked, no Lieu Day" & vbTab & vbTab & "18.75" & vbCrLf & _
"ST-W2" & vbTab & "Stat worked, with Lieu Day" & vbTab & vbTab & "11.25" & vbCrLf & _
"ST-H" & vbTab & "Stat not worked" & vbTab & vbTab & vbTab & "7.5" & vbCrLf & _
"ST-L" & vbTab & "Stat Lieu" & vbTab & vbTab & vbTab & vbTab & "7.5" & vbCrLf & _
"A" & vbTab & "Anniversary Day" & vbTab & vbTab & vbTab & "7.5" & vbCrLf & _
"S" & vbTab & "Sick Day" & vbTab & vbTab & vbTab & vbTab & "7.5" & vbCrLf & _
"U" & vbTab & "Union Business" & vbTab & vbTab & vbTab & "7.5" & vbCrLf & _
"V" & vbTab & "Vacation Day" & vbTab & vbTab & vbTab & "7.5" & vbCrLf & _
"M" & vbTab & "Moving Day" & vbTab & vbTab & vbTab & "7.5" & vbCrLf & _
"B" & vbTab & "Bereavement" & vbTab & vbTab & vbTab & "7.5" & vbCrLf & _
"J" & vbTab & "Jury Duty" & vbTab & vbTab & vbTab & vbTab & ".5" & vbCrLf & _
"LM" & vbTab & "On Leave-Maternity" & vbTab & vbTab & "N/A" & vbCrLf & _
"LW" & vbTab & "On Leave-WSIB" & vbTab & vbTab & vbTab & "N/A" & vbCrLf & _
"LD" & vbTab & "On Leave-Long-term Disability" & vbTab & "N/A"
MsgBox smsg & smsg2
--
HTH
Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)
Can anyone tell me the best way to present a nice pop-up box with this information on screen? I don't need anything other than an OK button that when clicked will disappear.
Code Description Equiv. Hours
D Days 7.5
E Evenings 7.5
N Nights 7.5
DE Day AND Evening Shift 15
EN Evening AND Night Shift 15
ND Night AND Day Shift 15
DES Day AND Evening Short Shift 11.5
ENS Evening AND Night Short Shift 11.5
NDS Night and Day Short Shift 11.5
7-11 Short Shift AM 4
9-13 Short Shift AM 4
8-12 Short Shift AM 4
15-19 Short Shift PM 4
17-21 Short Shift PM 4
X Off 0
F Float Day Off 7.5
ST Statutory Holiday 7.5
ST-W1 Stat worked, no Lieu Day 18.75
ST-W2 Stat worked, with Lieu Day 11.25
ST-H Stat not worked 7.5
ST-L Stat Lieu 7.5
A Anniversary Day 7.5
S Sick Day 7.5
U Union Business 7.5
V Vacation Day 7.5
M Moving Day 7.5
B Bereavement 7.5
J Jury Duty 7.5
LM On Leave- Maternity N/A
LW On Leave- WSIB N/A
LD On Leave- Long-term Disability N/A
Thanks, Alan
