View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
GS[_2_] GS[_2_] is offline
external usenet poster
 
Posts: 3,514
Default Copy Column Width

It happens that Steve formulated :
Hey Garry,

One last quick one if I may...can I replace a "blank" entry in my textbox
(upon clicking the ok button) with a timestamp (or something unique)?


Something like...?

Private Sub cmdOK_Click()
Dim sTemp
If Me.TextBox1.Text = "" Then
' sTemp = Now() '//date and time
sTemp = TimeValue(Now()) '//time only
Else
sTemp = Me.TextBox1.Text
End If
End Sub

--
Garry

Free usenet access at http://www.eternal-september.org
ClassicVB Users Regroup! comp.lang.basic.visual.misc