アクセスのフォームの、フォームヘッダーに検索用テキストボックスとコンボボックスがあり、
詳細エリアにレコードソース(コントロールソース)に紐付いたテキストボックスが複数あります。
フォームヘッダーのフィルタを解除するコマンドを実行して、
フォームヘッダーのテキストボックスとコンボボックスを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も見ています
-
新NISA制度は今までと何が変わる?非課税枠の拡大や投資対象の変更などを解説!
少額から投資を行う人のための非課税制度であるNISAが、2024年に改正される。おすすめの銘柄や投資額の目安について教えてもらった。
-
コントロールの存在確認
Visual Basic(VBA)
-
レコードを保存するコード アクセスvba
その他(Microsoft Office)
-
Accessでフィールド名を変数(文字列)で・・・
Access(アクセス)
-
-
4
AccessVBA SetFocusとGoToControlが正常に作動しない
Access(アクセス)
-
5
Access サブフォームでの選択行の取得
その他(データベース)
-
6
ACCESSでVBAから選択クエリの抽出条件を指定したい
Access(アクセス)
-
7
ACCESSでコントロールソースの変更
Access(アクセス)
-
8
VBAでループ内で使う変数名を可変にできないか。
Visual Basic(VBA)
-
9
Accessのレポート上のテキストボックス値を設定したい
その他(データベース)
-
10
エラー(型が一致しません。)の対処方法
Visual Basic(VBA)
-
11
サブフォームに対してGoToRecordするには?
その他(Microsoft Office)
-
12
どこにもフォーカスを当てたくない
Access(アクセス)
-
13
ACCSESS2013VBA フォームのレコードソースを変更する
その他(データベース)
-
14
Accessのマクロでモジュールを実行させたい。
Access(アクセス)
-
15
ACCESSで、DMax関数の条件の書き方
Access(アクセス)
-
16
フォームを開くときに、コンボボックスの値を選択(アクセスVBA)
Visual Basic(VBA)
-
17
アクセスで#エラーを表示させない方法は?
Access(アクセス)
-
18
ACCESSフォーム入力後の確定
Access(アクセス)
-
19
ADO オブジェクトの渡し方
Visual Basic(VBA)
-
20
アクセスVBAで既に開いているエクセルを閉じたい
Yahoo!ショッピング
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
フォーム上の現在アクティブな...
-
コンボボックスの文字によるif...
-
VBA ユーザーフォームの Keypre...
-
VBA_カレンダーコントロールの...
-
VB.NETで、DataGridのヘッダー...
-
'ckbl' コントロールは作成され...
-
カメラスクロールするのを動画...
-
VB6.0 実行時エラー 374について
-
With~EndWithの省略部分と引数...
-
エクセルVBAユーザーフォーム・...
-
全てのオブジェクトのプロパテ...
-
カレンダーコントロールの使用...
-
asp.netでToolTipコントロール...
-
エクセル・VBA CheckBoxのオブ...
-
ExcelにてListviewが表示できない
-
エクセルVBAでオプションボタン...
-
間違えて配置してしまったコン...
-
C#で角が丸いテキストボックス
-
VB6のユーザーコントロールの受...
-
EXCELでactivexコントロールを...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
カメラスクロールするのを動画...
-
エクセル・VBA CheckBoxのオブ...
-
vb.netで画面のコントロールId...
-
EXCELでactivexコントロールを...
-
ExcelVBAでListViewが使用できない
-
(VBA)スピンボタンの大量...
-
エクセルVBAでオプションボタン...
-
C#で角が丸いテキストボックス
-
ユーザーフォームで動的(Me.Con...
-
アクセス特有の書き方?
-
間違えて配置してしまったコン...
-
VBAのエラーについて、”実行時...
-
コンボボックスの文字によるif...
-
変数をコントロール型で使用す...
-
chr関数の呼び出しで「プロ...
-
With~EndWithの省略部分と引数...
-
C#で自分のウインド・ハンド...
-
excelのリストボックスで選択し...
-
'ckbl' コントロールは作成され...
-
フォーム上の現在アクティブな...
おすすめ情報