Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1526 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【6668】レコード件数の取得について NK 05/10/29(土) 19:36 質問[未読]
【6673】Re:レコード件数の取得について 小僧 05/10/29(土) 23:30 回答[未読]
【6684】Re:レコード件数の取得について [名前なし] 05/10/31(月) 3:06 質問[未読]
【6685】Re:レコード件数の取得について NK 05/10/31(月) 4:27 発言[未読]
【6688】Re:レコード件数の取得について 小僧 05/10/31(月) 9:40 発言[未読]
【6740】Re:レコード件数の取得について NK 05/11/5(土) 0:43 お礼[未読]
【6668】レコード件数の取得について
質問  NK  - 05/10/29(土) 19:36 -
引用なし
パスワード
   いつも参考にさせて頂いております。
題名の件について、どなたかご教授願います。

レコード件数を取得する際、これまでは
　件数格納用変数 = Me.RecordsetClone.RecordCount
とやっていました。

今回は『サブフォームにフィルタをかけた後、その件数を取得する』
という事をやりたいのですが、上記コードではうまく動きません。
エラーにはならないのですが、フィルタ結果180件に対し、1が取得されます。
コードはこんな感じです。

　Me.Form.Filter = "区分 = 'A'"
　Me.Form.FilterOn = True　 ←※ここまでは問題なく動いてます
　Me.テキスト1 = Me.RecordsetClone.RecordCount
【6673】Re:レコード件数の取得について
回答  小僧  - 05/10/29(土) 23:30 -
引用なし
パスワード
   ▼NK さん：
こんばんは。

>Me.Form.Filter = "区分 = 'A'"

メインフォームにフィルタを掛けているようなのですが…。

Private Sub cmdフィルタ_Click()
'要参照 Microsoft DAO x.x Object Library
Dim RS As DAO.Recordset
　　Me.埋め込み0.Form.Filter = "区分 = 'A'"
　　Me.埋め込み0.Form.FilterOn = True
　　
　　Set RS = Me.埋め込み0.Form.RecordsetClone
　　　　RS.MoveLast
　　　　Me.テキスト1 = RS.RecordCount
　　RS.Close: Set RS = Nothing
End Sub

参考になりましたら幸いです。
【6684】Re:レコード件数の取得について
質問  [名前なし]  - 05/10/31(月) 3:06 -
引用なし
パスワード
   ▼小僧 さん：
こんばんは。ありがとうございました。
記載したコードはサブフォームのLOAD時のコードです。
という事を書くのを忘れていました。すみません。

教えていただいたコードで上手くいきました。

ところで、よろしければもう１つ教えていただけないでしょうか？
　 Me.RecordsetClone.RecordCount
なのですが、『今開いているレコードのNo』を返す場合と
『開いているテ−ブルのレコード総数』を返す場合があります。
（最初の質問に書いたように、他のデータベースでは
　Movelastを使わずとも総数が返ってきていました）
どちらもコードは同じ上記の１文なのですが・・・
どういった場合に違いが発生するのでしょうか？
【6685】Re:レコード件数の取得について
発言  NK  - 05/10/31(月) 4:27 -
引用なし
パスワード
   投稿者名が漏れていました。すみません。
【6688】Re:レコード件数の取得について
発言  小僧  - 05/10/31(月) 9:40 -
引用なし
パスワード
   ▼NK さん：
おはようございます。

>『今開いているレコードのNo』を返す場合と
>『開いているテ−ブルのレコード総数』を返す場合があります。

Help で、RecordCount プロパティ を確認されてみて下さい。


機械翻訳のためちょっと読みづらいのですが、MS の技術情報にも載っています。

http://support.microsoft.com/default.aspx?scid=kb;ja;207652
【6740】Re:レコード件数の取得について
お礼  NK  - 05/11/5(土) 0:43 -
引用なし
パスワード
   ▼小僧 さん：
>▼NK さん：
>おはようございます。
>
>>『今開いているレコードのNo』を返す場合と
>>『開いているテ−ブルのレコード総数』を返す場合があります。
>
>Help で、RecordCount プロパティ を確認されてみて下さい。
>
>
>機械翻訳のためちょっと読みづらいのですが、MS の技術情報にも載っています。
>
>http://support.microsoft.com/default.aspx?scid=kb;ja;207652

返信が遅れてしまい申し訳ありません。
ありがとうございました。
参考にさせていただきます。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1526 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
1078229
(SS)C-BOARD v3.8 is Free