Dates in textboxes?

dan2 · Apr 2nd, 2002, 02:15 AM

I have formated a text box to display dates with the following line in the textbox code:

Private Sub TextBox1_Change()
TextBox1.Text = Format(Range("$bi$4"), "dd-mmm-yy")
End Sub

It works fine until I print preview or print the page and then it goes back to date code and isnt formatted anymore.

Anyone know how I can avoid this happening?

TIA

Dan.

Dave Hawley · Apr 2nd, 2002, 02:21 AM

Hi Dan

What are you printing? the UseForm?

dan2 · Apr 2nd, 2002, 02:33 AM

Hi Dave

No the textbox is on a spreadsheet.

I could make it so the date appears in the cell below the textbox and then make the textbox not print but I wondered if there was a way not to cheat for a change.

Dan.

Dave Hawley · Apr 2nd, 2002, 02:48 AM

Dan, I am unable to generate this problem with Excel 2000, the date prints just as show. Anyway try this.

Private Sub TextBox1_Change()
Dim strDate As String
strDate = Range("A1")
TextBox1 = Format(strDate, "dd/mmm/yy")
End Sub

dan2 · Apr 2nd, 2002, 03:08 AM

Dave

Im using XP so I dont know if its a bug in the new version.

Your new code still does the same.

Grrrr looks like Ill have to cheat (as per usual)

Thanks

Dan.

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Apr 2nd, 2002, 02:15 AM	#1
dan2 Board Regular Join Date: Mar 2002 Posts: 60	I have formated a text box to display dates with the following line in the textbox code: Private Sub TextBox1_Change() TextBox1.Text = Format(Range("$bi$4"), "dd-mmm-yy") End Sub It works fine until I print preview or print the page and then it goes back to date code and isnt formatted anymore. Anyone know how I can avoid this happening? TIA Dan.

Apr 2nd, 2002, 02:21 AM	#2
Dave Hawley Banned Join Date: Feb 2002 Posts: 1,582	Hi Dan What are you printing? the UseForm?

Apr 2nd, 2002, 02:33 AM	#3
dan2 Board Regular Join Date: Mar 2002 Posts: 60	Hi Dave No the textbox is on a spreadsheet. I could make it so the date appears in the cell below the textbox and then make the textbox not print but I wondered if there was a way not to cheat for a change. Dan.

Apr 2nd, 2002, 02:48 AM	#4
Dave Hawley Banned Join Date: Feb 2002 Posts: 1,582	Dan, I am unable to generate this problem with Excel 2000, the date prints just as show. Anyway try this. Private Sub TextBox1_Change() Dim strDate As String strDate = Range("A1") TextBox1 = Format(strDate, "dd/mmm/yy") End Sub

Apr 2nd, 2002, 03:08 AM	#5
dan2 Board Regular Join Date: Mar 2002 Posts: 60	Dave Im using XP so I dont know if its a bug in the new version. Your new code still does the same. Grrrr looks like Ill have to cheat (as per usual) Thanks Dan.