ACC: Unexpected Characters Appear in Imported dBASE IV Database (99399)

RESOLUTION

1. Create a module and type the following line in the Declarations section if it is not already there:

   Option Explicit

2. Type the following procedure:

         Sub DB4MemoFix (TableName as String, FieldName as String)
            Dim D As Database
            Dim t As Recordset
            ' Dim t As Dynaset in version 1.x
            Dim oldmemo As String
            Dim newmemo As String
            Dim i As Integer
            Set D = CurrentDB()
            Set t = D.OpenRecordset(TableName)
            ' Set t = D.CreateDynaset(TableName) in version 1.x
            t.MoveFirst
            Do Until t.EOF
               If t(FieldName) <> "" Then
                  oldmemo = Trim(t(FieldName))
                  newmemo = ""
                  For i = 1 To Len(oldmemo)
                     If Mid(oldmemo, i, 2) = (Chr(236) & Chr(10)) Then
                        i = i + 1
                     Else
                        newmemo = newmemo & Mid(oldmemo, i, 1)
                     End If
                  Next
                  t.Edit
                  t(FieldName) = newmemo
                  t.Update
               End If
               t.MoveNext
            Loop
            D.Close
            Debug.Print
            Debug.Print "Done"
         End Sub

3. To test this function, type the following line in the Debug window, (or Immediate window in Microsoft Access versions 2.0 or earlier) and and then press ENTER.

   DB4MemoFix "<tablename>", "<fieldname>"

   where <tablename> is the name of the imported dBASE IV table, and <fieldname> is the name of the Memo field.
   
   For example, for a table called CUST with a Memo field called NOTES, you would type:

   DB4MemoFix "CUST", "NOTES"