update table with memo field from form

[MAINOH]

I have a form with a field named comment which is populated from the following code (which is on the after update property of text box on the form which allows users to enter text):

Private Sub txtNewComment_AfterUpdate()
Dim NewComment As String
txtNewComment.SetFocus
NewComment = txtNewComment.Text
txtNewComment = Null
Comment.SetFocus
If (IsNull(Comment) = True) Or (Comment.Text = "") Then

Comment = "Entered: " & vbNewLine & Date & " " & Time & " " & NewComment

Else

Comment = Comment.Text & vbNewLine & Date & " " & Time & " " & NewComment

End If

End Sub

I need to be able to take the value of the field comment and update a field named tracking notes in the table bound th the form.

thanks for your assistance.

 

[PHV]

Why not simply bind the Comment control to the [tracking notes] field ?

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[MAINOH]

Thanks PHV, the comment field is bound to the field tracking notes. But the comments still do not show in the table.

 

[MAINOH]

The only thing that shows in the table is the 1st word of the comments field from the form which is "entered".

 

[PHV]

Even when you increase the row height ?

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886