|
いつも参考にさせていただいています。
掲題の件で教えて頂きたいのですが、あるクエリの抽出結果のレコード件数を
クエリを実行する前に取得するにはどうすれば良いでしょうか?クエリを実行させて画面表示をしないと言った方が正しいかもしれません。
実行後件数を取得する方法は何とか判るのですが、前に取得する方法が判りません。抽出したレコードをEXCELにエクスポートするところまで自動化したのですが、36656件以上の件数の場合条件を変更して件数を絞るようにしたいと思っています。
下はフォームのドルグボタンでクエリを実行して件数を取得するVBAです。
どの部分に変更が必要でしょうか?
宜しくお願いします。
Private Sub コマンド0_Click()
Dim rs As Recordset
Dim rsCount As Double
DoCmd.OpenQuery "入出金"
Set rs = CurrentDb.OpenRecordset("入出金")
rs.MoveLast
rsCount = rs.RecordCount
MsgBox "入出金の実行結果" & vbCrLf & _
rsCount & "件のレコードが抽出されました"
End Sub
|
|