![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?8acaa2e)
Access 2003のフォームについてお教えください。
フォームデザインビューで、「Form1」にテキストボックスが1つ配置されています。
レコードソースは連結されているので、フォームビューで見ると現在10のテキストボックスが
フォームには表示されています。
やりたい事
フォームビューで見た時のコントロールの数をカウントしたい。ここでは、「10」という
結果が欲しいです。
そこで下記のコードを書き実行しましたが、「1」としか表示されません。
デザインビューで見ると、テキストボックスの数は1なので、それが表示
されている感じがします。
フォームビューで見た時のコントロールの数を数えるにはどのようにしたらよいでしょうか?
Private Sub Form_Load()
Dim ctl As Control
Dim counter As Integer
On Error Resume Next
counter = 0
For Each ctl In Me.Controls
'コントロールがチェックボックスか判別
If TypeOf ctl Is TextBox Then
counter = counter + 1
End If
Next ctl
msgbox counter
End Sub
No.1ベストアンサー
- 回答日時:
フォームで表示してるレコードのデータ数を元にして、コントロール数を計算するとか。
![「VBAでコントロールの数をカウント。結果」の回答画像1](http://oshiete.xgoo.jp/_/bucket/oshietegoo/images/media/d/64512_5497e195a28e0/M.jpg)
No.2
- 回答日時:
Form1は単独のフォームとします。
質問の内容からフォームは表形式であると仮定します。
フォームビューで表示されるのはフォームのレコードソースの
レコード数と同じですから、実際にはテキストボックスの数
とはなりません。もし表示されているレコードの数が知りたい
のならばボタンのクリック時のイベントで、
Private Sub コマンド0_Click()
Dim rs As DAO.Recordset
Set rs = Me.RecordsetClone
MsgBox rs.RecordCount
End Sub
のようにします。
上記はDAOを使っているのでコード表の
ツールバーのツールから参照設定を選択し、
Microsoft DAO xx Object Library の項目に
チェックを入れ、OKとします。なお、xx は3.6のような数字です。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) EXCEL VBAにて動的にCheckBOXを複数作成し、同BOXにイベントを追加したい 1 2023/03/16 07:05
- Visual Basic(VBA) ①ExcelVBAでカレンダーを作り、別のユザーフォームで日付を入力したいのですがエラーになります。 1 2023/02/17 18:39
- Excel(エクセル) B列に文字がはいったらA列に数字が入るマクロードを完成させたい 4 2023/04/21 01:58
- Visual Basic(VBA) 【VBAエラー】Nextに対するForがありません 対策について 5 2022/11/21 21:26
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Visual Basic(VBA) ユーザーフォームに2つのコンボボックス銀行名「ConboBox1」支店名を「ConboBox2」とし 4 2022/08/03 17:34
- Excel(エクセル) エクセル VBA For Next 繰り返しの書き方を教えてください 6 2022/09/01 14:11
- 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) ユーザーフォーム「frm_基本❶」を立ち上げると新規で入力する行数を右下のNoとして表示しています。 1 2023/03/16 19:02
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ユーザーフォームを表示中にシ...
-
Excelにて、ユーザーフォームで...
-
エクセルVBAのフォームを最...
-
テキストボックス入力データの...
-
MSGBOXのフォント大きさ変更
-
ブックをCloseまたはQuitで閉じ...
-
モーダルフォームとモードレス...
-
ユーザーフォームのテキストボ...
-
クリックイベントなのに、2回ク...
-
ExcelVBAのユーザーフォームの...
-
(Excel+VBA)ユーザーフォームの...
-
Microsoft Formsの「個人情報や...
-
【VBAユーザーフォームで閉じる...
-
指定の動作中ユーザーフォーム...
-
VBAでユーザーフォームを再表示...
-
[VB6] フォームを閉じる方法に...
-
VBAで画像を表示する方法
-
'ユーザーフォーム右上隅の[×...
-
ユーザーフォーム売上日報 別シ...
-
Form_Load と Form_Activate の...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ユーザーフォームを表示中にシ...
-
ExcelVBAのユーザーフォームの...
-
エクセルVBAのフォームを最...
-
ユーザーフォームのテキストボ...
-
クリックイベントなのに、2回ク...
-
モーダルフォームとモードレス...
-
Form_Load と Form_Activate の...
-
VBAでユーザーフォームを再表示...
-
Hideについて(.NET)
-
ACCESSのフォーム、開くんです...
-
MSGBOXのフォント大きさ変更
-
Excelにて、ユーザーフォームで...
-
【VBAユーザーフォームで閉じる...
-
ユーザーフォーム上に現在日時...
-
VBA(エクセル)のユーザー...
-
access2021 更新前に処理をしたい
-
Accessで、一つのフォーム画面...
-
コントロールの存在確認
-
Microsoft Formsの「個人情報や...
-
複数モニタ使用時のフォームの...
おすすめ情報