BOUND TEXT /UNBOUND TEXT

[Guest]

I have a command button that date stamps my unbound boxs in a Continuous
Forms. I need the data in my unbound box to paste in my bound box so I can
store it in my table for future use.
Thank You

 

[Ken Snell]

Any particular reason you don't just bind this textbox to the appropriate
field?

 

[Guest]

When I do a date stamp it does it one at a time when its bound to app textbox
(not good if you have 300 entries). I would like the date stamp to
automatically fill in the bound text box in a Continuous Form. Can you show
me how to bind ?

 

[Ken Snell]

You want the date value to be written to the bound textbox when you click
the command button?

Set the control source of the textbox to the name of the field in your
table. Use code similar to this for the command button's OnClick event:

Private Sub CmdButtonName_Click()
Me.TextBoxName.Value = Date()
End Sub

 

[Guest]

Ken Snell,
The Code that you provided works great with one record at a time I need the
date stamp to fill 50-300 records at one click. The form that I'm using is a
"Continuous Form" which shows all the records at one viewing I need the
TextBoxName to would fill with date stamp 50-300 times depending of the
records I'm viewing in the form.

Thanks a lot for your help. I'm sponge absorbing everything

 

[Ken Snell]

Private Sub CmdButtonName_Click()
Dim varBook As Variant
With Me.RecordsetClone
varBook = .Bookmark
.MoveFirst
Do While .EOF = False
Me.TextBoxName.Value = Date()
.MoveNext
Loop
.Bookmark = varBook
End With
End Sub