Microsoft Access 掲示板

Microsoft Access 掲示板

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

2 コメント
views
4 フォロー

ご教示頂きたくよろしくお願いいします。

QRコードでchr(13)で改行されたデータをフォーム上のテキストボックスに読み取ります。
通常一つのテキストボックスに下記の様に改行された状態で入力されます。

例)※改行はchr(13)で改行されています
ﾔﾏﾀﾞ
ﾄｳｷｮｳ
ｻﾄｳ
ﾅｺﾞﾔ

フォーム上にテキストボックスを4つ配置して下記の様にchr(13)区切りで分割して
それぞれのテキストボックスとフィールドに格納される様にしたいのです。
アドバイス頂けますと大変助かります。よろしくお願いします。

差出人　住所　宛先　個数
ﾔﾏﾀﾞ　　ﾄｳｷｮｳ　ｻﾄｳ　ﾅｺﾞﾔ

RYU
作成: 2022/04/16 (土) 17:16:09
通報 ...
1
hatena 2022/04/17 (日) 16:42:09

データのテキストボックス　txtData
４つのテキストボックス　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

2
ＲＹＵ 2022/04/18 (月) 21:51:31 7ec02@7404d

回答有り難う御座います。なるほど改行コードでもsplitで分割出来るのですね。試みてみます。。