--
宜しくお願いします。Mike
以下にサンプルfunctionを置いておきますので、参考にして下さい。
Private Function ADD_Chr13(Str1 As Variant) As String
'エクセルで取り込んだ改行入りのデータをアクセスで
'正常に改行させます。Chr(13)の付加
Dim i As Long
Dim Str2, s1 As String
Str2 = ""
If IsNull(Str1) Then
Exit Function
End If
For i = 1 To Len(Str1)
s1 = Mid(Str1, i, 1)
If s1 = Chr(10) Then
Str2 = Str2 & Chr(13) & Chr(10)
Else
Str2 = Str2 & s1
End If
Next
ADD_Chr13 = Str2
End Function
"マイク" からの元のメッセージ: