2

一部のデータを特別な形式で保存したい。例えば：

  • ああああ
  • BBBB
  • CCCC
  • DDDD

これらの情報をAccessに保存できますが、ユーザーに表示したい場合。テキストボックスに次のように表示され ます。私の質問は次のとおりです:MS Access DBに改行を保存するにはどうすればよいですか?

助けてくれてどうもありがとう！

編集1

つまり、.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を 1 つの列に保存して、

 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

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
4

2 に答える 2

1

保存されたテキスト値はに正しく表示されるため、MsgBox改行はテーブルに正しく保存されます。したがって、問題はテキストボックスにあります。

チェックボックスのプロパティシートの[データ]タブで[テキスト形式]プロパティをオンにします。

テキストボックステキストフォーマットプロパティ

まだ設定されていない場合は、 「プレーンテキスト」に変更してください。フォーマットとして「リッチテキスト」を使用すると、ボックスのコンテンツの改行は無視されます。

于 2013-02-27T17:41:01.960 に答える
0

私はこのようにします：

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
于 2013-02-27T10:23:23.430 に答える