When exporting, not all the information is exported.
Who can I correct this problem?
From the information given, there is not a lot to say. If the target is a
MS Office (et alia) product, then it may be easiest to do the whole lot in
the target application: for example in Word (this is highly untested air
code so treat with great caution!!):-
Set dbe=CreateObject("DAO.DBEngine.36") ' or whatever
Set rs = db.openrecordsset(strSQL, dbOpenSnapshot, dbForwardOnly)
Do While not rs.EOF
' get and print the record stuff
rng.InsertAfter "Name: " & rs!FullName & vbNewLine
rng.InsertAfter "Comments: "
' get the memo field data
dwPosInMemo = 0
Do While True
' get a chunk at a time
strTemp = rs!MemoFld.GetChunk(dwPosInMemo, 256)
if Len(strTemp)>0 then
' Okay, there's something left to pring
rs.InsertAfter strTemp
dwPosInMemo = dwPosInMemo + Len(strTemp)
Else
' there's nothing left
Exit Do
End If
Loop
' print out the end of the record
rng.InsertAfter vbNewLine & "End of record" & vbNewLine
' move on to next record
rs.MoveNext
Loop
.... or something like that. Don't feel you have to use Access to access an
access database!
Tim F
