Code works when stepping thru, but doesnt when running
Mnth = Format(Date, "MM")
If Mnth = "01" Then
txtErr.ControlSource = "WorkTrack.JanErr"
lblMonth.Caption = "Janurary"
End If
If Mnth = "02" Then
txtErr.ControlSource = "WorkTrack.FebnErr"
lblMonth.Caption = "February"
End If
If Mnth = "03" Then
txtErr.ControlSource = "WorkTrack.MarErr"
lblMonth.Caption = "March"
End If
If Mnth = "04" Then
txtErr.ControlSource = "WorkTrack.AprErr"
lblMonth.Caption = "April"
End If
If Mnth = "05" Then
txtErr.ControlSource = "WorkTrack.MayErr"
lblMonth.Caption = "May"
End If
If Mnth = "06" Then
txtErr.ControlSource = "WorkTrack.JunErr"
lblMonth.Caption = "June"
End If
If Mnth = "07" Then
txtErr.ControlSource = "WorkTrack.JulErr"
lblMonth.Caption = "July"
End If
If Mnth = "08" Then
txtErr.ControlSource = "WorkTrack.AugErr"
lblMonth.Caption = "August"
End If
If Mnth = "09" Then
txtErr.ControlSource = "WorkTrack.SepErr"
lblMonth.Caption = "September"
End If
If Mnth = "10" Then
txtErr.ControlSource = "WorkTrack.OctErr"
lblMonth.Caption = "October"
End If
If Mnth = "11" Then
txtErr.ControlSource = "WorkTrack.NovErr"
lblMonth.Caption = "November"
End If
If Mnth = "12" Then
txtErr.ControlSource = "WorkTrack.DecErr"
lblMonth.Caption = "December"
End If

