A 回答 (2件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
#1のsghです。
もっとシンプルな方法があったので、アップしておきます。
Private Sub コマンド1_Click()
Me.RecordsetClone.MoveLast
MsgBox Me.RecordsetClone.RecordCount
End Sub
#1の回答1と同じ考え方ですが、これだとDAOの参照も不要のようです。
コードの例は、開いているフォーム自身のレコードを参照しているので、
サブフォームを参照するように書き換えてください。
No.1
- 回答日時:
うろ覚えですが、最後のレコードまで移動しないと、直接カウントを取っても
ご質問の通り、正しい値は帰ってこないと思います。
私なら、以下の方法を使います。
1."RecordsetClone"を使って、下記の例のように"MoveLast"をかけてから、カウントを取る。
(例)
Private Sub コマンド1_Click()
Dim DB As DAO.Database
Dim RS As DAO.Recordset
Set DB = CurrentDb
Set RS = Me.RecordsetClone
RS.MoveLast
MsgBox RS.RecordCount
End Sub
2.直接SQL文で数える
(例)
Private Sub コマンド1_Click()
Dim DB As DAO.Database
Dim RS As DAO.Recordset
Dim StSQL As String
Set DB = CurrentDb
StSQL = "select count(*) as 件数 from テーブル1"
Set RS = DB.OpenRecordset(StSQL)
MsgBox RS!件数
End Sub
参考になれば幸いです。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(データベース) Accessフォームからパラメーターで表示したレコードを指定のExcelのセルへ転送する方法について 2 2022/08/22 18:04
- Visual Basic(VBA) access count数を変数に格納 2 2022/03/30 19:21
- Access(アクセス) アクセスの更新クエリでカレントレコードのみ更新したい 1 2022/06/02 23:32
- PHP php 確認表示画面で値をSESSIONから取り出す理由の解釈は正しいでしょうか? 1 2023/06/09 17:39
- Access(アクセス) accessについて(超初心者です) 1 2023/02/11 11:18
- JavaScript jqueryを使ったスムーススクロールのコードを書いたのですが、HTMLコード内にある、a butt 2 2022/04/14 10:59
- その他(データベース) 更新クエリをリンクデータベーステーブルに実行し実行時エラー3362固有インデックスに重複する値が含ま 1 2022/09/21 11:44
- PHP if(preg_match("/[^0-9]/",$gu_d)){意味を教えてください。 1 2022/05/06 05:37
- Access(アクセス) docmd.gotorecordを起動するには 5 2022/06/17 15:20
- PHP クエリObjectをforeachで回す時に、次のレコードへ移動せずに次のレコードを取得したい 2 2022/07/28 15:29
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
Access サブフォームでの選択行の取得
その他(データベース)
-
Accessのサブフォームから値を参照する方法について
その他(データベース)
-
Access2000 サブフォームのRecordSet取得法
Access(アクセス)
-
-
4
ACCESS──メインフォームでサブフォームのレコード件数をカウントしたい
Access(アクセス)
-
5
Accessのフォーム上にレコード数とレコード番号の表示
その他(データベース)
-
6
Accessで、フォームからフォームへ値を引き継ぐやり方
Access(アクセス)
-
7
サブフォームに対してGoToRecordするには?
その他(Microsoft Office)
-
8
「RunSQL」と「Execute」の違い
Access(アクセス)
-
9
ACCESSでVBAから選択クエリの抽出条件を指定したい
Access(アクセス)
-
10
Accessで別テーブルの値をフォームに表示したい
その他(データベース)
-
11
Access 最後のレコードに到達するまでループ処理を行う方法
Access(アクセス)
-
12
このオブジェクトに値を代入することはできません
その他(データベース)
-
13
レコードを保存するコード アクセスvba
その他(Microsoft Office)
-
14
親フォームからサブフォームのレコードソースを設定
Access(アクセス)
-
15
フィルタ後のフォームの件数の取得の仕方
Access(アクセス)
-
16
SQL文で パラメータが少なすぎます エラー
Access(アクセス)
-
17
2つ目のレコードの値を取得するには?
Access(アクセス)
-
18
アクセスVBAのMe!と[ ]
Access(アクセス)
-
19
サブフォームのコントロールの値を取得したい(VBA)
Access(アクセス)
-
20
AccessのRefresh・Requery・Repaintの違い
Access(アクセス)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Access サブフォームでの選択行...
-
ACCSESS2013VBA フォームのレコ...
-
サブフォームが見えなくなる。
-
(ACCESS)条件に応じて、テキ...
-
googleフォームでインストール...
-
Accessのサブフォーム上で常に...
-
Access VBA acCmdSelectRec...
-
複数項目でのサブフォームとの...
-
Access2000、これはいったい・...
-
2回目に画面のレコードセットの...
-
access サブフォームにリストを...
-
access 直前まで開いていたフォ...
-
ACCESS サブフォーム MAX関数...
-
アクセスでサブフォームのレコ...
-
ACCESS 削除 サブフォーム ta...
-
サブフォームでのダブルクリッ...
-
Access 複数フォームを...
-
AccessのFormのみをスクリーン...
-
Access レイアウト変更したサブ...
-
サブフォームでフィルタしたデ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Access サブフォームでの選択行...
-
ACCSESS2013VBA フォームのレコ...
-
(ACCESS)条件に応じて、テキ...
-
Access 複数フォームを...
-
Access2000、これはいったい・...
-
サブフォームが見えなくなる。
-
Accessのサブフォームから値を...
-
access サブフォームにリストを...
-
Accessで、一覧からクリックし...
-
サブフォームでのダブルクリッ...
-
2回目に画面のレコードセットの...
-
ACCESSでサブフォームの...
-
レコードセットで得た結果をサ...
-
サブフォームの切り替え方を教...
-
初心者です。accessで請求書を...
-
googleフォームでインストール...
-
別MDBのフォームを起動
-
Access2000 サブフォームのReco...
-
AccessのDoCmd.ApplyFilterの使...
-
アクセスでサブフォームのレコ...
おすすめ情報