Creating a notes history text box/database view???

[NikoTheBowHunter]

On my form, at the top, is a drop down box, where a device number can be selected. Once a device is selected it populates the fields so updates can be done. On this same form, I would like to put some kind of box at the bottom, so a user could scroll through and see the history of the device. I don't need to track changes, when they were changed and by who, just a simple box that a user could add notes to, which then gets added to the notes history for that one record. If this is possible, how would one go about achieving this?

example, towards the bottom of my form, it would look like:

Enter notes here: [ How to add this note? ] {add notes button} --which would then add to the note blow in order by date.

-----------------------------------------------------
| 05/31/2017 | How to add this note?
| 04/22/2017 | bla blab blab
| 03/01/2017 | asdfdfadf asdf fadf



Would I need to create a new table and some how link the primary IDs so that the list only populates the notes for that one ID when viewing the record? Please also feel free to guide me towards any tutorials that have already covered something like this.

Cheers.

[pbaldy]

Simplest would probably be a text field with a text box that wasn't editable. Use another textbox and your button, with code like:

Me.MainTextbox = Date() & " - " & Me.AddTextbox & vbCrLf & Me.MainTextbox

[NikoTheBowHunter]

I have little coding experience, so forgive my ignorance here. With the above mentioned code, when I'm scrolling from record to record, will the notes populate based on the record I'm viewing? If it will, how is it stored in the database on the back end?

[pbaldy]

Since you said you didn't really need tracking, my suggested method would use a field in the same table the form is based on. Depending on how much you want it to hold, a regular text field or memo/long text. Since that field would be in the same table, it would change as you moved through records.

[NikoTheBowHunter]

Makes sense. Just to make sure Im following this correctly.
Take the existing Notes field which I think is limited to 255 characters, change the properties to memo/long text, lock it so its can't be edited (on the form).
Add a new (unbound?) text box to the form where new notes can be entered
Add a new "submit/new note button" and then take the above code and insert it into the onClick via code builder(??) i think it is.

Could you highlight/make bold/change color of what text I need to modify to adapt it to my form/fields?

Me.MainTextbox = Date() & " - " & Me.AddTextbox & vbCrLf & Me.MainTextbox

Do I need to some how link the new text box where notes will be entered to the text box where the notes will be displayed or will the code do this?

Will the code add a "return" before each new entry (i.e. dropping the previous notes down a line)?

Sorry for the many questions, Im at home and won't be able to test this until I get to work tomorrow. Thanks again for the help on this.

[pbaldy]

Sounds like you've got it. You'd change the bits after "Me." to your names. Yes, the vbCrLf is a line feed.

[NikoTheBowHunter]

worked like a dream and not to difficult to set up. THANK YOU pbaldy!!!!

[pbaldy]

Happy to help!

[NikoTheBowHunter]

got this question solved. now onto the next.

[NikoTheBowHunter]

After some more research I figured out I need to change the text box the notes were being displayed in to Rich Text. This now allows it to display more than the 255 characters. But after changing the display box for the notes to Rich Text, the new notes no longer drop down to a new line. Its just a continue line of text with spaces. any ideas for fixing this?

Here is the current code I am using:

Private Sub Enter_New_Note_Click()
Me.[Notes History] = Date & " | " & Me.Text138 & vbCrLf & Me.[Notes History]
Me.Text138 = Null
End Sub

[pbaldy]

Rich text probably requires HTML tags. Try

Me.[Notes History] = Date & " | " & Me.Text138 & "<BR>" & Me.[Notes History]

[NikoTheBowHunter]

As always, spot on pbaldy!!! solved it!!! thanks!

[pbaldy]

No problemo!