コントロールが表示されない場合は、値をnullに設定してください（VBAにアクセス）

Question

私は、いくつかのコントロールを持つフォームを持っています。しかし、ユーザーがオプションボタンを「Not Due」とマークすると、これらのフィールドの多くは表示されないように設定されます。最終的には、これらの隠しフィールドに値を格納することは望ましくありませんが、フォームが保存されるまで値が消えないようにします（誤って "not due"にヒットした場合や、 ）。これは私が持っているコードです。フォームが更新される前にすべてのコントロールで実行されるように設定されています。

「オブジェクトはこのプロパティまたはメソッドをサポートしていません」と表示され、デバッグ時にctl.Value = nullが強調表示されます。私はこの仕事をするために何ができますか？

Dim ctl As Control 
    If Me.optPayDue = 2 Then 
     For Each ctl In Me.Controls 
      If ctl.Visible = False Then ctl.Value = Null 
     Next ctl 
    End If 

Answer 1

Controlsコレクションに含ま物事がValue性質を持っていないなどのサブフォーム、ラベル、EmptyCells、のようなものですので、あなたがこのエラーを取得している理由です。

値を設定しているものがValueプロパティを持っていることを確認してから、それに作用することを確認する必要があります。

Dim ValueControls As New Dictionary 
ValueControls.Add "TextBox", "TextBox" 
ValueControls.Add "CheckBox", "CheckBox" 
ValueControls.Add "ComboBox", "ComboBox" 
ValueControls.Add "ListBox", "ListBox" 
ValueControls.Add "OptionButton", "OptionButton" 

Dim ctl As Control 
If Me.optPayDue = 2 Then 
    For Each ctl In Me.Controls 
     If Not ctl.Visible and ValueControls.Exists(TypeName(ctl)) Then 
      ctl.Value = Null 
     End If 
    Next ctl 
End If 

あなたはMicrosoft Scripting Runtimeへの参照を追加する必要がありますDictionaryクラス（C：\ WINDOWS \ SYSWOW64 \のscrrun.dll）を使用するには、これを行うための別の方法を取り除くことです

Answer 2

をforループに.Valueを持たないコントロール。仮定すると、あなたが行うことができますテキストボックスだけされて、チェックボックスのようなもの制御タイプがacCheckBoxになり、値がそう私は多分Accessで