Microsoft Access 掲示板

QRコードでChr(13)で改行されたデータを読み取って改行単位で分割してレコードに格納したい / 1

2 コメント
views
4 フォロー
1

データのテキストボックス txtData
4つのテキストボックス txt1, txt2, txt3. txt4
として、

Dim aryData
aryData = Split(Me.txtDXata.Value, Chr(13))
Me.txt1.Value = aryData(0)
Me.txt2.Value = aryData(1)
Me.txt3.Value = aryData(2)
Me.txt4.Value = aryData(3)

Split 関数 (Visual Basic for Applications) | Microsoft Docs

通報 ...