Ms access 如何在MS access数据库中保存换行符

我想用特殊格式保存一些数据。例如：

• AAAA
• BBBB
• CCCC
• DDDD

我可以在Access中保存这些信息，但当我想向用户显示这些信息时。在文本框中显示如下： aaaabbccccddd 没有任何换行符。 我的问题是：如何在MS Access DB中保存换行符

非常感谢你的帮助

编辑1

i、 e我在一个.txt文件中有此信息块：

KENNLINIE KLPRAIL 3
   LANGNAME "Kennlinie zur Umsetzung Raildrucksensorspannung in Raildruck" 
   FUNKTION GGDSKV 
   EINHEIT_X "V"
   EINHEIT_W "MPa"
   ST/X   0.4980468750000000   1.8002319335937500   5.0000000000000000   
   WERT   0.0000000000000000   4.5000000000000000   15.5600000000000000   
END

我想在一列中保存KLPRAIL 3，然后

 EINHEIT_X "V"
   EINHEIT_W "MPa"
   ST/X   0.4980468750000000   1.8002319335937500   5.0000000000000000   
   WERT   0.0000000000000000   4.5000000000000000   15.5600000000000000  

另一栏

我可以用这段代码完成这项工作：

Dim kennL As String
Dim kennLS As Boolean
Dim kennLvalue As String
Dim kennLwert As String
Dim keLx As String
Dim keLw As String
Dim kelwer As String


kennL = InStr(1, entireline, "KENNLINIE")
keLx = InStr(1, entireline, "EINHEIT_X")
keLw = InStr(1, entireline, "EINHEIT_W")
keLsx = InStr(1, entireline, "ST/X")
kelwer = InStr(1, entireline, "WERT")
keLend = InStr(1, entireline, "END")

If kennL = 1 Then
kennLvalue = Mid(entireline, 10)
kennLS = True
End If

If keLx = 4 And kennLS = True Then
kennLwert = kennLwert + Mid(entireline, 4) + vbNewLine
End If


If keLw = 4 And kennLS = True Then
kennLwert = kennLwert + Mid(entireline, 4) + vbNewLine
End If

If kennLS = True And (keLsx = 4 Or kelwer = 4) Then
kennLwert = kennLwert + Mid(entireline, 4) + vbNewLine
End If
If kennLS = True And keLend = 1 Then

DoCmd.RunSQL ("INSERT INTO Test_dcml (WertName,WertValue) VALUES ('" & kennLvalue & "','" & kennLwert & "');")
kennLS = False
End If

---

但如果我向用户显示此信息。这些信息如下所示：

EINHEIT_X "V" EINHEIT_W "MPa" ST/X   0.4980468750000000   1.8002319335937500   5.0000000000000000   WERT   0.0000000000000000   4.5000000000000000   15.5600000000000000 

Dim rcst As DAO.Recordset
Set rcst = CurrentDb.OpenRecordset("Test_Wertquery")

If Not rcst.EOF Then
    rcst.MoveFirst
    Me.Text9 = rcst.Fields("WertValue").Value
    rcst.Close
End If

Set rcst = Nothing

EDIT2

I use this code to show this Information to user:
Dim rcst As Recordset
Set rcst = CurrentDb.OpenRecordset("Test_Wertquery")
rcst.MoveFirst
Text5.SetFocus
Me.Text5.Text = rcst.Fields("WertValue").Value

---

我会这样做：

EINHEIT_X "V" EINHEIT_W "MPa" ST/X   0.4980468750000000   1.8002319335937500   5.0000000000000000   WERT   0.0000000000000000   4.5000000000000000   15.5600000000000000 

Dim rcst As DAO.Recordset
Set rcst = CurrentDb.OpenRecordset("Test_Wertquery")

If Not rcst.EOF Then
    rcst.MoveFirst
    Me.Text9 = rcst.Fields("WertValue").Value
    rcst.Close
End If

Set rcst = Nothing

---

由于存储的文本值在

MsgBox

中正确显示，这意味着换行符正确存储在表中。因此，问题在于文本框

选中复选框属性页的“数据”选项卡上的“文本格式”属性

---

如果尚未设置为“纯文本”，请将其更改为“纯文本”。以“富文本”为格式时，框内容中的换行符将被忽略。

您可以添加vbNewLine来执行换行符，但请发布代码以使其更清晰。我做到了。我用过vbNewline，但它似乎不起作用“这些信息是这样显示的”它是如何显示的？窗体上的控件？在报告上？文本框？问题在表格的文本框中是模糊的。对不起@Kaja：请在向用户显示代码的地方提供代码谢谢您的回答，但问题仍然存在：/this change Me.Text9=rcst！WertValueim被难住了：（据我所知，VBA在文本框上没有多行属性。因此，如果您在messagebox中有换行符，但在文本框中没有换行符。对不起，也许其他人有想法。