looking for a way to make a form Txtbox only visable on Mondays
 

hi,

I'm looking for a way to make a text box on a form only visible on
certain days of the week. the code i have tried is below. its a bit
naive to be honest so any suggestions would be appreciated:

Private Sub UserForm_Initialize()

If Date = vbSaturday Then
LblIntMon.Caption = "Weight"
TxtBody.Visible = False

TxtBody.Text = LastWeight
Else
LblIntMon.Caption = ""
TxtBody.Visible = False
TxtBody.Text = LastWeight

End If

Thanks in advance


--
andywalker
------------------------------------------------------------------------
andywalker's Profile: http://www.excelforum.com/member.php...o&userid=24418
View this thread: http://www.excelforum.com/showthread...hreadid=382216

looking for a way to make a form Txtbox only visable on Mondays
 

you are almost there.

it will hide txtbox if it is satuday,



Private Sub UserForm_Initialize()

If Weekday(Date, vbSaturday) = 1 Then
LblIntMon.Caption = "Weight"
TxtBody.Visible = False

TxtBody.Text = LastWeight
Else
LblIntMon.Caption = ""
TxtBody.Visible = True
TxtBody.Text = LastWeight

End If


--
anilsolipuram
------------------------------------------------------------------------
anilsolipuram's Profile: http://www.excelforum.com/member.php...o&userid=16271
View this thread: http://www.excelforum.com/showthread...hreadid=382216

looking for a way to make a form Txtbox only visable on Mondays
 

Thanks that worked great

And

--
andywalke
-----------------------------------------------------------------------
andywalker's Profile: http://www.excelforum.com/member.php...fo&userid=2441
View this thread: http://www.excelforum.com/showthread.php?threadid=38221

looking for a way to make a form Txtbox only visable on Mondays
 

Your example references Saturday. If it is to be visible only on Mondays,
have the text box visible property set to False if the day is not Monday:

If Weekday(Now, 2) <1 then ......

If you have multiple days, for example only visible Mon-Fri

If Weekday(Now, 2) <6 then ......


--
Damon Longworth

Don't miss out on the 2005 Excel User Conference
Sept 16th and 17th
Stockyards Hotel - Ft. Worth, Texas
www.ExcelUserConference.com


"andywalker" wrote
in message ...

hi,

I'm looking for a way to make a text box on a form only visible on
certain days of the week. the code i have tried is below. its a bit
naive to be honest so any suggestions would be appreciated:

Private Sub UserForm_Initialize()

If Date = vbSaturday Then
LblIntMon.Caption = "Weight"
TxtBody.Visible = False

TxtBody.Text = LastWeight
Else
LblIntMon.Caption = ""
TxtBody.Visible = False
TxtBody.Text = LastWeight

End If

Thanks in advance


--
andywalker
------------------------------------------------------------------------
andywalker's Profile:
http://www.excelforum.com/member.php...o&userid=24418
View this thread: http://www.excelforum.com/showthread...hreadid=382216