えいじ
df21d76530
2023/05/02 (火) 10:15:48
Sub 転記()
memo = txt子テキスト_1 & vbNewLine _
& txt子テキスト_2 & vbNewLine _
& txt子テキスト_3 & vbNewLine _
& txt子テキスト_4 & vbNewLine _
& txt子テキスト_5 & vbNewLine
Forms![F_test2]![txtテキスト_1] = memo
End Sub
教えていただいた、処理方法と違うかもしれませんが、
実現することは、一応できます。
ただ、テキストボックスの最後に数字が連続しているので、ループまたは、カウントアップで出来ないかなと思いました。
https://zawazawa.jp/ms-access/topic/876
このトピで、hatena様から、改行コードを入れることで、転記ができたので、安直に、転記できると思いました。
ただ、hiroton様が、初めにカウントアップのことを記載したということは、カウントアップでコードを短くできるのでしょうか?
通報 ...