アクセスのフォームの、フォームヘッダーに検索用テキストボックスとコンボボックスがあり、
詳細エリアにレコードソース(コントロールソース)に紐付いたテキストボックスが複数あります。
フォームヘッダーのフィルタを解除するコマンドを実行して、
フォームヘッダーのテキストボックスとコンボボックスをnullにしたいのですが、
vbaで「もしフォームヘッダーなら」ってするにはどうすればいいでしょうか?
フォームヘッダーのコントロール名も詳細エリアのコントロール名も
区別のないコントロール名でなのでコントロール名で条件分岐をすることは不可能です。
Private Sub フィルタを解除コマンド_Click()
Dim ctl As Control
For Each ctl In Me.Controls
If (ctl.ControlType = acTextBox) Or (ctl.ControlType = acComboBox) Then
'ここで、もしフォームヘッダーにコントロールがあるのならってしたい
Me.Controls(ctl.Name) = Null
End If
Next ctl
Me.Form.FilterOn = False
End Sub
このコードに付け加えてくれませんか?
Debug.Print ctl.Name
でコントロール名を取得するとフォームヘッダーも詳細もどちらのコントロール名も取得されてしまいます。
On Error Resume Next
以外でお願いします。
No.1ベストアンサー
- 回答日時:
> vbaで「もしフォームヘッダーなら」ってするにはどうすればいいでしょうか?
コントロールの「Section」プロパティを確認すればOkです。
Private Sub フィルタを解除コマンド_Click()
Dim ctl As Control
For Each ctl In Me.Controls
If (ctl.ControlType = acTextBox) Or (ctl.ControlType = acComboBox) Then
'フォーム ヘッダは「1」(『詳細』は「0」、フォームフッターは「2」)
If (ctl.Section = 1) Then
'Valueプロパティを使用して、直接入力できます
'(さらに、Valueプロパティは省略可能なので「ctl = Null」でもOk)
ctl.Value = Null
End If
End If
Next ctl
Me.Form.FilterOn = False
End Sub
なお、操作対象がフォームヘッダのみなのでしたら、ループ対象を「Me.Controls」と
する代わりに、「Me.Section(1).Controls」とした方が、ループを行うコントロールが
フォームヘッダ内のコントロールに限定される分、効率的です。
(コントロールのSectionプロパティによる分岐も不要化します)
Private Sub フィルタを解除コマンド_Click()
Dim ctl As Control
'「Me.Section(n)」の「n」は、上のコントロールのSectionプロパティの値と同じ
For Each ctl In Me.Section(1).Controls
If (ctl.ControlType = acTextBox) Or (ctl.ControlType = acComboBox) Then
ctl.Value = Null
End If
Next ctl
Me.Form.FilterOn = False
End Sub
・・・以上です。
For Each ctl In Me.Section(1).Controls
これにしちゃえば、無駄にループしなくていいですね。
いくつもの方法のご提示、ありがとうございます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) EXCEL VBAにて動的にCheckBOXを複数作成し、同BOXにイベントを追加したい 1 2023/03/16 07:05
- Visual Basic(VBA) 標準モジュール Public mOnTime As Date Sub sample() '実行プロシ 1 2023/02/22 15:44
- Visual Basic(VBA) ①ExcelVBAでカレンダーを作り、別のユザーフォームで日付を入力したいのですがエラーになります。 1 2023/02/17 18:39
- Access(アクセス) チェックボックスにチェックが入った後の挙動 1 2022/08/21 12:39
- Visual Basic(VBA) VBA初心者です。 VBAで行単位で条件付き書式の色をカウントしたいです。 大量のデータがあるExc 3 2022/06/08 10:00
- Visual Basic(VBA) VBA初心者です。 VBAで行単位で条件付き書式の色をカウントしたいです。 大量のデータがあるExc 3 2022/06/08 10:02
- Visual Basic(VBA) 【VBAエラー】Nextに対するForがありません 対策について 5 2022/11/21 21:26
- Visual Basic(VBA) VBA This Workbookモジュールを別ファイルにコピーする方法 1 2022/09/14 01:51
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/06 17:46
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
コントロールの存在確認
Visual Basic(VBA)
-
レコードを保存するコード アクセスvba
その他(Microsoft Office)
-
Accessでフィールド名を変数(文字列)で・・・
Access(アクセス)
-
-
4
AccessVBA SetFocusとGoToControlが正常に作動しない
Access(アクセス)
-
5
Access サブフォームでの選択行の取得
その他(データベース)
-
6
Accessのレポート上のテキストボックス値を設定したい
その他(データベース)
-
7
ACCESSでVBAから選択クエリの抽出条件を指定したい
Access(アクセス)
-
8
ACCESSでコントロールソースの変更
Access(アクセス)
-
9
[Access]帳票フォームにて連続する非連結コントロールに個々の値を入れるには
Access(アクセス)
-
10
VBAでループ内で使う変数名を可変にできないか。
Visual Basic(VBA)
-
11
エラー(型が一致しません。)の対処方法
Visual Basic(VBA)
-
12
どこにもフォーカスを当てたくない
Access(アクセス)
-
13
ACCSESS2013VBA フォームのレコードソースを変更する
その他(データベース)
-
14
サブフォームに対してGoToRecordするには?
その他(Microsoft Office)
-
15
ACCESSフォーム入力後の確定
Access(アクセス)
-
16
フォームを開くときに、コンボボックスの値を選択(アクセスVBA)
Visual Basic(VBA)
-
17
アクセスで#エラーを表示させない方法は?
Access(アクセス)
-
18
ADO オブジェクトの渡し方
Visual Basic(VBA)
-
19
アクセスVBAで既に開いているエクセルを閉じたい
Yahoo!ショッピング
-
20
日付型のフィールドに空白を入れる方法を教えてください
その他(データベース)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
JavaScriptからVBAの関数を呼び...
-
カメラスクロールするのを動画...
-
EXCELでactivexコントロールを...
-
ExcelVBAでListViewが使用できない
-
エクセル・VBA CheckBoxのオブ...
-
VB.NET開発。ラジオボタンとコ...
-
C# タブのコントロール取得
-
チェックボックスをオンにした...
-
With~EndWithの省略部分と引数...
-
エクセル コントロールツール...
-
vb.netで画面のコントロールId...
-
VBAのフォームでTextBoxがいっ...
-
Access2007 コントロールの削除
-
ACCESS2010のVBAでフォーム内ク...
-
行方不明になるコントロール
-
(VBA)スピンボタンの大量...
-
Labelコントロールの(左右)余...
-
Excelコマンドボタン名を変数に...
-
Validated イベントについて
-
他フォームのコントロールを直...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
カメラスクロールするのを動画...
-
エクセル・VBA CheckBoxのオブ...
-
vb.netで画面のコントロールId...
-
EXCELでactivexコントロールを...
-
ExcelVBAでListViewが使用できない
-
(VBA)スピンボタンの大量...
-
エクセルVBAでオプションボタン...
-
C#で角が丸いテキストボックス
-
ユーザーフォームで動的(Me.Con...
-
アクセス特有の書き方?
-
間違えて配置してしまったコン...
-
コンボボックスの文字によるif...
-
VBAのエラーについて、”実行時...
-
変数をコントロール型で使用す...
-
chr関数の呼び出しで「プロ...
-
With~EndWithの省略部分と引数...
-
C#で自分のウインド・ハンド...
-
excelのリストボックスで選択し...
-
'ckbl' コントロールは作成され...
-
フォーム上の現在アクティブな...
おすすめ情報