Update Notes with datetime stamp using memo fields

[Lloyd]

Hi,

I have a form with a section for notes that I want to keep a diary of. One text box is used to enter the new notes and the other is used to store historical notes. To update the historical notes, I want to use a command button to update with everything in the new notes + a datetime stamp so I know exactly when the notes were made. Can anybody help me here?

I have attached the database in a zip file.

thanks in advance

 

[Lloyd]

database attached.

 

[Alvinwhit]

I have the same problem I would like to use one text box to enter information and the other to store the information. So once I press enter the notes will populate in the other text box and be locked so to speak. I would also like for it to have a date stamp and a username stamp so that I know who made the notation as well as the date and time the notation was made, can some knowledgable person please help? Thanks

 

[mahenkj2]

In the Update Note button, try below code:

Dim strNewNote As String
Dim strnotes As String

If IsNull(Me.txtNotesEntry) Then
Beep
Else

strNewNote = Me.txtNotesEntry
strnotes = "" & Me.txtNotes

Me.txtNotes = strnotes & vbCrLf & strNewNote & " " & Now

Me.txtNotes.SetFocus
RunCommand acCmdCopy
Me.txtNotesEntry = Null

End If

You should play with this code to suitably get the result as desired. Also, it will enter date stamp when there is no new note, so you have to little bit alter the code.