You use this code, just change it around to fit your needs. My comments field
is named Status Update so you can change yours to that or change the code to
your name. Set up a commend button and place this code in the On Click event
of the button. Of course, I left the Private Sub line in to show you what it
should look like. the name of my button is cmdStatusUpdate. Hope this helps.
If you do not want the user name to appear, just block it or delete it. Each
time the button is clicked, a new row appears.
Private Sub cmdStatusUpdate_Click()
' Enable users to enter new project status updates only after they press
the Status Update button.
' Doing so places the time stamp and current user's login on a new line
Dim strUser As String
Me.StatusUpdate.SetFocus
Me.StatusUpdate.Locked = False
strUser = basMain.sGetUser
With Me
If .StatusUpdate = vbNullString Or IsNull(.StatusUpdate) Then
'.StatusUpdate = Format(Date, "mm/dd/yy") & " (" & strUser & ")"
& " - "
.StatusUpdate = Now & " - " & " " & " (" & strUser & ")" & " - "
Else
'.StatusUpdate = .StatusUpdate & vbNewLine & Format(Date,
"mm/dd/yy") & " (" & strUser & ")" & " - "
.StatusUpdate = .StatusUpdate & vbNewLine & Now & " - " & " " &
" (" & strUser & ")" & " - " & " "
End If
.StatusUpdate.SelStart = Len(.StatusUpdate) - 1
End With
End Sub