How do I save a "add a comment" into a text box?

[KJV]

In the Contacts template there is a place on the Contact form at the bottom that has "Add a comment." When you type your comment in and select 'Save' it then date and time stamps that comment and it appears in a box that is located above. That comment is then saved and visible any time the contact is viewed. How is this done?

[pbaldy]

You should be able to look at the code/macro behind the save button. Likely something like:

Me.OtherTextbox = Me.OtherTextbox & Now() & " " & Me.EntryTextbox

[June7]

I am looking at the Desktop Contacts template and not finding the described form and feature.

I expect there is some code behind the button. If you want to provide db for analysis, follow instructions at bottom of my post.

[Missinglinq]

Here's a 'how to' I worked up, a couple of years ago, which only allowed the end users to enter data into a Memo Field indirectly. In this case the object was to prevent a user from changing notes, once they had been entered (these were patients' notes being entered by health care workers) requiring them to add a correction note, while the original note remained as part of the Record. Developed for a different reason, but it does the task you've outlined and should provide you with the guidance you need.

****************************

In this example, there are two Memo Field Textboxes, but only one is Bound, since the other one is simply a temporary holding area. The Bound Memo Field Textbox, named CommentsField, here, must have its Locked Property set to Yes/True, so that all data entry has to be done through the temporary Textbox.

TempDataBox is Unbound, and in the Property Pane its Visible Property must be set originally set to 'No.' I place mine side by side with the CommentsField Textbox so that the user can refer to what's currently in the CommentsField Textbox while entering new notes.

Once again, the CommentsField Textbox is Bound to the Form's underlying Table/Query, and its Locked Property is set to 'Yes.'

Place a Command Button on the Form. Name it IndirectDataInput and in the Properties Pane set its Caption to "Add New Data"

Now use this code:

Private Sub IndirectDataInput_Click()
If IndirectDataInput.Caption = "Add New Data" Then
   TempDataBox.Visible = True
   TempDataBox.SetFocus
   IndirectDataInput.Caption = "Commit Data"
Else
   IndirectDataInput.Caption = "Add New Data"
   If IsNull(Me.CommentsField) Then
      If Len(Me.TempDataBox) > 0 Then
        Me.CommentsField = Now() & "  " & Me.TempDataBox
        Me.TempDataBox = ""
        TempDataBox.Visible = False
      Else
        TempDataBox.Visible = False
      End If
    Else
      If Len(Me.TempDataBox) > 0 Then
       Me.CommentsField = Me.CommentsField & vbNewLine & Now() & "  " & Me.TempDataBox
       Me.TempDataBox = ""
       TempDataBox.Visible = False
 
      Else
       TempDataBox.Visible = False
      End If
      
    End If
End If
End Sub

So, you click on the Command Button, the temporary Textbox appears, you enter your new data, click the Button again, the data is added to the Memo Field Textbox, and the temporary Textbox disappears.

You'll have to replace CommentsField, in the code above, with the actual name of the Textbox on your Form that is Bound to your Memo Field.

Linq ;0)>