Writing recordset to a memo field
Hi there. I have a VB6 pgm that goes and compares a field from 2 tables (one is current and the other table is an old version) and if they are different, then the pgm is supposed to write out what the differences are to a memo field in a table. The pgm runs smoothly with no errors except the memo field is never populated. I have no way of finding out what is going on. Step through it and all is fine. I changed the memo field to text and the pgm actually writes out to the text field when I look up the table. What is up with a memo field and help!
Here is my code:
If the 2 tables are not equal Then
rstCompareTables.AddNew
rstCompareTables!SeqNo = rstCurrentTable!SeqNo
rstCompareTables!ShortName = strThisShortName
rstCompareTables!EditName = strThisEditName
rstCompareTables!ChangeType = "Changed"
rstCompareTables!ChangedItem = "IncludedVariables"
strTemp = rstOldTable!IncludedVariables
rstCompareTables!FromValue = strTemp
varTemp = rstCurrentTable!IncludedVariables
rstCompareTables!ToValue = strTemp
rstCompareTables.Update
End If
FromValue is the memo field in the table that I am looking at and it is blank throughout the table. Nothing got populated and I rec'd no error msgs. strTemp is working fine when I step through the pgm and see the data populated in strTemp.
|