
Help with Access Memo Field (DAO)
Hi All
I am trying to update an Access memo field via VB. I get an error if the
data is longer than 255 characters. When I use the AppendChunk method of the
field in question I get a DBEngine error of "method not supported! How do
you update a large memo field thought VB?
Code:
<snip>
Set Q = mvarDataSource.QueryDefs("Fetch_Instructor_Note")
Q.Parameters!ID = ID
Set rs = Q.OpenRecordset(dbOpenDynaset)
DBEngine.Idle dbFreeLocks
If Not (rs.EOF And rs.BOF) Then
rs.Edit
Call Append_Field(sNote, rs.Fields(0))
rs.Update
End If
<snip>
Private Function Append_Field(sData As String, _
fldDest As Field) As Boolean
'-----------------------
Dim lOffset As Long
Dim lTotalSize As Long
Dim sChunk As String
Dim lChunkSize As Long
'-----------------------
On Error GoTo errhandler
If (Len(sData) < 32768) Then
lChunkSize = Len(sData)
Else
lChunkSize = 32768
End If
lOffset = 1
lTotalSize = Len(sData)
Do While lOffset < lTotalSize
sChunk = Mid$(sData, lOffset, lChunkSize)
fldDest.AppendChunk sChunk
lOffset = lOffset + lChunkSize
Loop
Append_Field = True
Exit Function
errhandler:
RaiseEvent ErrorMsg(M & "-AppendField: " & Err.Description)
End Function