A
Ayo
I got this code from a web site, and it look pretty simple and straight
forward but it is not working. And I can't figure out what the problem is.
Me.lblGreeting.Caption is not displaying anything even though its enabled and
visible properties are set to Yes. Help please.
Private Sub Form_Load()
Dim timeofDay as Variant, strGreString as String
If timeofDay > "00:00:00 AM" And timeofDay < "12:00:00 PM" Then strGreeting=
"Good Morning ..."
If timeofDay > "12:00:01 PM" And timeofDay < "5:00:00 PM" Then strGreeting=
"Good Afternoon ..."
If timeofDay > "5:00:00 PM" And timeofDay < "11:59:00 PM" Then strGreeting=
"Good Evening ..."
Me.lblGreeting.Caption=strGreeting
End Sub
forward but it is not working. And I can't figure out what the problem is.
Me.lblGreeting.Caption is not displaying anything even though its enabled and
visible properties are set to Yes. Help please.
Private Sub Form_Load()
Dim timeofDay as Variant, strGreString as String
If timeofDay > "00:00:00 AM" And timeofDay < "12:00:00 PM" Then strGreeting=
"Good Morning ..."
If timeofDay > "12:00:01 PM" And timeofDay < "5:00:00 PM" Then strGreeting=
"Good Afternoon ..."
If timeofDay > "5:00:00 PM" And timeofDay < "11:59:00 PM" Then strGreeting=
"Good Evening ..."
Me.lblGreeting.Caption=strGreeting
End Sub