Microsoft Access 掲示板

フォーム内容の転記について / 9

14 コメント
views
4 フォロー
9

現状のコードをhirotonさんの回答あった「(元の値)と(転記する値) & vbNewLineを連結して上書きする」というヒントを元に書き換えると、下記になります。

Sub 転記()
Dim memo As String
memo = ""

memo = memo  & txt子テキスト_1 & vbNewLine
memo = memo  & txt子テキスト_2 & vbNewLine
memo = memo  & txt子テキスト_3 & vbNewLine
memo = memo  & txt子テキスト_4 & vbNewLine
memo = memo  & txt子テキスト_5 & vbNewLine

Forms![F_test2]![txtテキスト_1] = memo

End Sub

これを質問の最初のコードのForループと同じ考え方で書き換えればいいでしょう。

通報 ...