add to field

[deekras]

i inherited this problem.

every member has notes. the problem is the way the system is set up now, each time a new note is added it is added to the notes field.

for example:

the notes field already reads "abc"
then today i add a note "def"

the notes field now reads "abc
def"

if i want to add to the table directly (not using his program), how do i add the notes in this way - adding directly to the field.

 

[deekras]

the program he wrote is very limited and i have no access to the coding only to the tables. so i am writing a program for the users for the functions that are not included in his program. but for the functions that work in his program, they will still use his program. i don't want users to have to use both programs for the same events so i want to push the notes from my program into the table as he has it so it is viewable in his program as well.

 

[deekras]

this is what i did

for those you are looking for a similar solution, this is what i did. while this may not be fancy coding, this works.


first i made a subform on the form that contains the old notes and member id (linked by member id)


and then this coding:

'add to notes

Set db = CurrentDb
Set rs = Recordset
Set rs = db.OpenRecordset("dbo_tbl_prospect_member")

With rs
oldnotes = Forms!frm_calls!sfrm_PM![txt_information]
End With

Newnotes = oldnotes & "__________________________________" & vbCrLf & Me.[call reason] & " added by " & Forms!login!login & " " & date & vbCrLf & Me.comment

With rs
.edit
Forms!frm_calls!sfrm_PM![txt_information] = Newnotes
.Update
End With


if anyone has a better solution, please post. thanks