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
■以下の様にプロパティーシートのコントロールソースに値が設定されている場合、
「このオブジェクトに値を代入できません」と表示され、エラーになります。