アクセス超初心者です。

質問

アクセス超初心者です。
下記内容のイベントプロシージャーを記述しました。
フォーム内にクリアというコマンドボタンを作成。で、クリックしたら書き込まれていたフォームの内容が消えるように作ったのですが。（ネット上で見つけたプロシージャーを参考に作成しました）
黒丸部分が黄色くなってエラーになります。
どのように修正すればいいのでしょうか？
分かる方いましたらご教示ください<m(__)m>よろしくお願い致します。

Private Sub cmd_クリア_Click()

Dim CT1 As Control
For Each CT1 In Me.Controls
If CT1.ControlType = acTextBox Or CT1.ControlType = acComboBox Then
●CT1.Value = Null
ElseIf CT1.ControlType = acCheckBox Then
CT1.Value = False
End If
Next

End Sub

回答No.5

pkh4989

エラーは、以下の内容だと思いますが、
実行時エラー'2448'
「このオジェクトに値を代入することはできません」

たぶん、CT1.Value に値を代入する事が出来ない、または、「Value」プロパティを使えないかだと思います。
オジェクトのクリア方法を以下のように変えてみるのは如何でしょうか。

TextBox1.text =""
ComboBox1.clear
CheckBox1.value = false

回答No.4

Dxak

実行したらエラーなら、式に基づいて作成されたフィールドで更新できないような話ではありません？

上記、話でエラーを回避したいと言う話であれば・・・

> Private Sub cmd_クリア_Click()
のすぐ下に
On Error Resume Next
を、記載してエラーの場合、無視をして次の行から実行してみましょう？

違う話であれば、もう少し情報ください＾＾；

回答No.3

ape5

CT1.Value = ""
と書きなおすとどうですか？

回答No.2

noname#140971

質問文のコードと実際とは違っていませんか？
例えば、CT1.Valeu = Null
になっているとか・・・。

回答No.1

m3_maki

> 黒丸部分が黄色くなってエラーになります。

で、エラーメッセージは何と出ますか？
正確にお書きください。