> 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