Microsoft Access 掲示板

Microsoft Access 掲示板

フォーム内容の転記について / 11
11
hatena 2023/05/06 (土) 09:47:17

そのコードでも結果は同じになりますが、memoをテキストボックスの代入するのは最後に1回のみでいいので、ループ内で繰り返すのは無駄ですね。

Sub 転記()
    Dim memo As String
    memo = ""
    For i = 1 To 5
        memo = memo  &  Me.Controls("txt子テキスト_" & i) & vbNewLine
    Next i
    Forms![F_test2]![txtテキスト_1] = memo
End Sub
通報 ...