MSAccess-コンボボックスの値に基づいてタグ付きコントロールを無効にします
バーバラ
コンボボックスに入れた値に基づいて、「hideme」とタグ付けされたすべてのフィールドを有効/無効にしたい。
comboxoxがyesの場合、フィールドを有効にする必要があり、フィールドを無効にする必要はありません。
これが実際に動作する例であり、これが私のコードですが、現時点では機能しません。
Private Sub myAction_AfterUpdate()
Dim frm As Form
Dim ctl As Control
Set frm = Forms!frmMyForm
For Each ctl In frm.Controls
If ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox Then
If ctl.Tag = "hideMe" Then
If Me.myAction = yes Then
ctl.Enabled = True
End If
Else
ctl.Enabled = False
End If
End If
Next
End Sub
サントッシュ
コントロールタグには、hideMeタグとともに不要な文字列（下の画像を参照）が含まれていました。
下の画像はDebug.Print ctl.Tag、クイックリファレンスのために即時ウィンドウに出力されています。
制御タグをとして設定し、hideMeこのコードを実行します。
Option Compare Database
Private Sub myAction_AfterUpdate()
Dim frm As Form
Dim ctl As Control
Set frm = Forms!frmMyForm
For Each ctl In frm.Controls
If ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox Then
If ctl.Tag = "hideMe" Then
If Me.myAction = "yes" Then
ctl.Enabled = True
Else
ctl.Enabled = False
End If
End If
End If
Next
End Sub
hideMeと一緒に誤ってコピーされたコード 
この記事はインターネットから収集されたものであり、転載の際にはソースを示してください。
侵害の場合は、連絡してください[email protected]
編集
関連記事
Related 関連記事
- 1
Javascriptは、テキストボックスの値に基づいてMSAccessから値を取得します
- 2
フォームでのコンボボックスの選択に基づいて特定のクエリを実行するためのMSAccess VBAコード
- 3
MSAccessのテキストボックスにクエリレコードをカウントします
- 4
MSAccessへのpostgres
- 5
vba msaccessを介して複数値の列のデータをコンボボックスにバインドする
- 6
ソート順に基づいて文字で値列をランク付けするMSAccessのSQLクエリ
- 7
MSAccessのフィルター付き/フィルターなしおよびフィルターボタンの切り替えを無効にする
- 8
MSAccessのフォームにボタンをコーディングする
- 9
MSAccessトグルボタンの背景
- 10
MSAccess-値の追加
- 11
MSAccessのテキストボックスとコンボボックスのリストとして2つのdimの配列を挿入します
- 12
ループを使用してテーブルから複数のレコードを選択し、MSAccessのバインドされていないテキストボックスに入力します
- 13
MSAccessの動的WHERE句
- 14
MSAccessで同等のCONCAT
- 15
MSAccessの不要なBreakPoint
- 16
MsAccess-コンボボックス列からの画像の更新
- 17
MSAccess-コンボボックス行の事前選択
- 18
MSAccessコンボボックスは選択されたアイテム値を取得します
- 19
コントロール/フィールドが表示されているタブにあるかどうかをテストしますmsAccess
- 20
開くときにコードを使用してMSAccessフォームをフィルタリングする
- 21
ReDimPreserveを使用してMSAccess VBAを使用し、必要に応じて配列のサイズを大きくします（ボタンクリックイベントハンドラーメソッド内またはループ内など）
- 22
MSAccessをPostgreSQLに移行する
- 23
更新後のMSAccessコンボボックスサブフォームフィルター
- 24
MSAccess-VBAを使用してさまざまなコンボボックスでサブフォームをフィルタリングするモジュールを作成する
- 25
条件付き左結合MSAccess
- 26
ADODBコマンドを使用してMSAccessデータベースのエントリを実際に削除する
- 27
フォームのコンボボックスからのパラメータを使用したMSAccessクエリは結果を返しません
- 28
MSAccessクエリの集約
- 29
次の番号のMSAccessを取得
コメントを追加