Memo fields - Order of data

Phonik

Registered User.
Local time
Today, 16:57
Joined
Sep 22, 2006
Messages
111
Hello people.

Im just after a bit of advice please??

I have created an audit trail for data held on a form so that when a field is changed it adds a line of text to a memo field with the date of the change and the old and new field values. The problem I have is that each time something is changed the line of text is added beneath the existing text in the memo field. This means that for users to view the most recent change they have to scroll all the way down to the bottom of the memo field. Is there a "Quick" way of me having the most recent entry first.
I am using the vbnewline command when adding the text. A sample is shown below:

Dim Response As Integer
Dim AnotherItem As Integer
Dim sqlstr As String

Set Myform = Forms![DataDetail]
Producer = Forms![ListOfProducers(Existing Data Item)]![LstProducers].Column(1)

Response = MsgBox("Are you sure you wish to add a Producer?", vbYesNo, "Data Dictionary v1.0")
sqlstr = "INSERT INTO DataProducers ( Data_Id, Producer_Id ) SELECT Data.Data_Id, Producers.Producer_Id FROM Data, Producers WHERE (((Data.Data_Id)=[Forms]![DataDetail]![Data_ID]) AND ((Producers.Producer_Id)=[Forms]![ListOfProducers(Existing Data Item)]![LstProducers]));"
If Response = 6 Then
DoCmd.RunSQL sqlstr
Myform!LstHistory = Myform!LstHistory & vbNewLine & "Changes made on " & Now & ""
Myform!LstHistory = Myform!LstHistory & vbNewLine & "The Producer '" & Producer & "' was added to this data item"""
Myform!LstHistory = Myform!LstHistory & vbNewLine & "-----------------------------------------------------"
MsgBox "Producer has been successfully added.", vbInformation, "Data Dictionary v1.0"


Thanks folks...
 
Phonik,

Code:
Myform!LstHistory = "Changes made on " & Now() & vbNewLine & _
                    "The Producer '" & Producer & "' was added to this data item" & vbNewLine & _
                    "-----------------------------------------------------" & vbNewLine & _
                    Myform!LstHistory

Wayne
 
I wouldn't use a memo field, I'd use a related table and add a new record for each change.
 

Users who are viewing this thread

Back
Top Bottom