append memo to memo

[dale5804]

hi, there...new to this access thing...
i have 2 text boxes, set as memos, one called comments and the other notes, they are on a form (and both within a table), where by i can tab between them.
what i want to happen is that when the notes tab is selected, the user can type into this memo, but on clicking off (after update), the text is appened to the text (at the bottom) of the comments memo box. and cleared from the notes box. any help or pointers would be great thanks.

[missinglinq]

This can be done, of course, but a couple of questions first! If you continually clear the "notes" memo field after appending its contents to your "comments" field, why is it a bound to your table? A field that's only used for the duration that a record is open should be unbound.

Secondly, why are you populating your "comments" field in this manner? Are you trying, perhaps, to keep the users from going back and changing comments at a later date? I ask because I have, in a health care database, a routine set up to do this very thing!

Welcome to TheScripts!

Linq ;0)>

[dale5804]

hi, thanks for the reply, and yes your spot on thats what im trying to do. the only reason that the notes memo is bound is because it was originally used for something else, so i would unbound it, and remove such field from the table. so again any help would be greatfully recieved. cheers

[missinglinq]

Now, in this example, there are two memo fields, but only one is bound, since the other memo field is simply a temporary holding area.

NotesMemoField is unbound, and in the Property Box its Visible Property is set originally set to to No. I place mine side by side with the CommentsMemoField so the user can refer to what's currently in the Comments section while entering new notes.

CommentsMemoField is bound to the underlying table/query, and its Locked Property is set to Yes.

Place a command button on the form. Name it InputData and in the Properties Box set its Caption to Input.

Now use this code:

Private Sub InputData_Click()
If InputData.Caption = "Input" Then
   NotesMemoField.Visible = True
   NotesMemoField.SetFocus
   InputData.Caption = "Add Data"
Else
   InputData.Caption = "Input"
   If IsNull(Me.CommentsMemoField) Then
      If Len(Me.NotesMemoField) > 0 Then
        Me.CommentsMemoField = Me.CommentsMemoField & Me.NotesMemoField
        Me.NotesMemoField = ""
        NotesMemoField.Visible = False
      Else
        NotesMemoField.Visible = False
      End If
    Else
      If Len(Me.NotesMemoField) > 0 Then
       Me.CommentsMemoField = Me.CommentsMemoField & vbNewLine & Me.NotesMemoField
       Me.NotesMemoField = ""
       NotesMemoField.Visible = False
      Else
       NotesMemoField.Visible = False
      End If
 
    End If
End If
End Sub

Anytime you copy and paste this much code from Access to a post things can go awry; let me know if you have any problems.

Linq ;0)>

[dale5804]

this is great. many thanks for you help, will let you know if i have any issues. cheers

[dale5804]

hi, having problem with line 18, when using access, click the input data button returns the following error:
Run-time error '438'
object doesnt support this property or method

cheers

[dale5804]

also whilst i'm thinking, i want my notes memo to be visible at all time, so the button just needs to append the information in notes to comments, it doenst need to make things visible. cheers again for the help :-)