フォームにレコード数を表示したい

質問

こんばんは。
フォームに検索フィールドにパラメータを入力してもらい、
Me.Filter = "[氏名] like '*" & Me![氏名フィルタ] & "*'"
Me.FilterOn = True
で抽出させています。

同フォームにヒット件数を表示したいのですが、
DCount("受注ID", "Q_受注", "[氏名] like '*" & Me![F_氏名] & "*'")
でデータ数を表示させています。

もっとスマートな方法がないのかと思い、質問させていただきました。
よろしくお願いいたします。

回答No.2

noname#1296 · ベストアンサー

これはAccessですよね。そうだと過程して・・・

表示させたいテキストボックスなどのコントロールソースに
=Count([受注ID])
ではダメですか？

お礼

できました。。。
単純なことだったんですね。頭が固くて困ります。
本当にどうもありがとうございました。

回答No.1

DonChan777

SQL = "SELECT 氏名 FROM Q_受注 WHERE 氏名 like '*" & Me!氏名フィルタ & "*';"
Me.RecordSource = SQL
Set RRS = CurrentDb.OpenRecordset(SQL, dbOpenSnapshot)
RRS.MoveLast
ヒット件数 = RRS.RecordCount
RRS.Close

私は、こちらを使います。
どちらがスマートなのかはわかりませんが．．．。

お礼

またしても、お世話になります。。。
そんなやり方もあるんですか。勉強になりました。それにしても
DonChan777さんはなんでもお出来になるんですね。すごいです。
またよろしくお願いします。。。