ray88’s diary

お仕事で困ったとき用の自分用の覚書

Access VBA コントロールの値をまとめてクリアする・値を入力する

Sub FormTest()
    Dim c As Object
    Forms("Fフォーム").txt3.Value = "標準モジュール"
    MsgBox "標準モジュールから参照"
    For Each c In Forms("Fフォーム").Controls
        If c.ControlType = acTextBox Then
            c.Value = ""
        End If
    Next
End Sub

f:id:ray88:20201126191035p:plain
f:id:ray88:20201126191110p:plain
■以下の様にプロパティーシートのコントロールソースに値が設定されている場合、
「このオブジェクトに値を代入できません」と表示され、エラーになります。
f:id:ray88:20201126192402p:plain
f:id:ray88:20201126192519p:plain