レコード件数を取得する

レコード件数を取得する

連結フォームのデータソース（テーブルやクエリ）に含まれているレコード総件数を参照・取得する方法です。フォームのRecordset.RecordCountプロパティを使います。

Recordset.RecordCountの使用例

次のサンプルは、Recordset.RecordCountプロパティを使って、フォームのレコードソースに含まれているレコード件数をMsgBox関数で表示する例です。このサンプルでは、ボタンのイベント「クリック時」に記述しています。

なお、Recordset.RecordCountプロパティで取得・参照できる値は、フォームのレコードセレクタに表示されているレコード総件数と同じです。

Private Sub コマンド4_Click()

'レコード総件数を表示します
MsgBox Me.Recordset.RecordCount

End Sub

[PR]管理人が書いたVBAプログラミング本

■最速攻略 Access VBA サンプル大全集
■Access クエリスパテク209
■ここが知りたかった! Access VBA 500の技※
◆最速攻略 Excel VBA サンプル大全集
◆苦手なコードもこれで安心!Excel VBA超入門講座
◆Excel VBAゲーム大作戦はじめて編※ 実践編※

（アマゾンへジャンプします。※は共著作品）

Access VBA Tips+α

フォーム・サブフォーム編

◆フォーム/サブフォームを扱う基本
  1 VBAでフォームを扱う基本
   ・Me、Forms、Screen.ActiveForm
  2 VBAでサブフォームを扱う基本
   ・Form、Parent
  3 VBAでフォームを開く
   ・DoCmd.OpenForm の基本
  4 VBAでフォームを閉じる
   ・DoCmd.Close

◆フォームの外観・体裁を整える
  1 移動ボタン/区切り線/レコードセレクタ
   ・表示/非表示の切り替え方法
   ・VBAで切り替えを行うときの方法も！

◆表示内容の更新・再描画を制御する
  1 フォーム再描画のON/OFF切り替え
   ・Paintingプロパティ
  2 フォームを再描画する
   ・Repaintメソッド

◆フォームの情報を参照・取得する
  1 レコード件数を取得する
   ・Recordset.Countプロパティ
  2 何件目のレコードを選択しているかを調べる
   ・CurrentRecordプロパティ

◆その他のフォーム関連応用テクニック
1 レコードセットの内容をレコードソースにする
・CursorLocation, adUseClient

■DAOデータアクセス編
■ADOデータアクセス編
■クエリー(SQL)編
■フォーム・サブフォーム編
■コントロール編
■メニューバー・ツールバー編
■マクロ（DoCmd）編
■レポート編
■応用テク・その他の機能編
■プログラミングサンプル編
■番外編1.HTTPやFTPを使うには

Happy! Happy! Islandその他のコンテンツ

■VBAプログラミング、その他
　Access VBAプログラミング＆Tips
　Excel VBA(エクセルマクロ)プログラミング＆Tips
　VBScript＆JScriptプログラミング＆Tips for WSH
　プログラミング基礎・入門
　HTMLの書き方
■ダウンロードコーナー
　AccessとExcelのフリーソフト
■コミュニティー
　VBA質問掲示板
■その他
　オレの話を聞けぇ♪（仮称／コラム）
　管理人プロフィール
　管理人へメール
■別館(海外向けサイト)
　SAMURAI Game Center - Freeware games for Microsoft ACCESS and EXCEL!

VBAプログラミング＆Tips集の
"Happy! Happy! Island"トップページへ

[リンク]IT関連情報サイトなど

gihyo.jp
技術評論社提供のIT関連コンテンツサイト

[リンク]一番クリックした国が優勝

ClickClickClick.com
クリッカー＆認証人募集！日本を1位にしよう！もちろん、おいらも参加中！各種情報の入手はClickJapanオフィシャルサイトで。

[PR]証券会社・投資運用関連サイト

カブドットコム証券
逆指値・W指値等の自動売買でリスク管理追求型の投資が可能！引け後のIRやニュースを見てからでも間に合う夜間取引も魅力！

マネックス証券
オンライントレード・自動売買の最先端！「逆指値・ツイン指値」でリスクコントロール！デイトレードなら片道手数料無料！

Ｅ＊トレード証券
オンライン専業証券№１の口座数！業界最低水準の手数料体系と充実のサービスラインナップ！

楽天証券のマーケットスピード
ネット証券最強のトレーディングツール「マーケットスピード」でプロ水準の投資環境がご自宅のパソコンに！

オンライン証券徹底比較
価格．ｃｏｍで証券徹底比較！手数料、取引商品、信用取引金利、逆指値などの注文方法や提供情報などを徹底比較！