ACCSESS2000での検索

[顧客]というテーブルに、[登録日付]というフィールドがあるとします。
検索フォームを作成し、そこに人数を入力するためのテキストボックスを配置します。
そして、この人数の数値（a）を使って、
[登録日付]の新しい方から a人を抽出するよい方法はありませんか。
出来れば、SQL文で作り、クエリーを作ってレポートを開いたり、
テキストなどにエクスポートしたいのですが。
なるべくコードがすっきりするようなものがいいのです。
よろしくお願いします。

No.3 ベストアンサー 回答者： stork 回答日時： 2001/08/24 10:43

select TOP 10 ...

の10の部分を可変にしたいんですよね。

私の力不足かもしれませんが、この部分はパラメータやフォームの値の参照が使えないと思います。

そこで、フォームにコマンドボタンを配置し、ＶＢＡで一時テーブルを作成するとよいと思います。
その後のレポートやエクスポートはこの一時テーブルを参照するようにします。

コマンドはしたのような感じですかね。
---------------------------------
Dim Ninzuu As Long
Dim strSQL As String

Ninzuu = Me![人数]

strSQL = "select top " & nunzuu & " * "
strSQL = strSQL & "Into [一時テーブル] "
strSQL = strSQL & "from [顧客] "
strSQL = strSQL & "ORDER BY [登録日付] DESC "

DoCmd.SetWarnings False
DoCmd.RunSQL strSQL
-----------------------------------------

この回答へのお礼

"TOP"というキーワードがあることは、知りませんでした。ありがとうございました。

お礼日時：2001/08/28 14:49

No.2 回答者： ojinojin 回答日時： 2001/08/23 18:27

テーブル、クエリー、フォームは既知とします。

ポイントは下の３つです。
(1) フォームをコントロールソースを消します。
テキストも同じです。
(2)フォームウィザードでクエリーを開くボタンを作ります。
(2) クエリーの「登録日」ほ降順とし、「人数」の抽出条件を
(3) =[Forms]![F_顧客]![人数]とします。

この回答へのお礼

ありがとうございました。

お礼日時：2001/08/28 14:42

No.1 回答者： yanmaa 回答日時： 2001/08/23 18:15

例えば１０人の顧客テーブルの内容を出すなら下記のSQLかな？

SELECT_TOP_10_[顧客].*_FROM_[顧客]_ORDER_BY_[顧客].[登録日付]_DESC

注意：_はスペースの意味

なお、AccessのSQLのヘルプに記載されてますよ。

この回答へのお礼

"TOP"というキーワードがあることは、知りませんでした。ありがとうございました。

お礼日時：2001/08/28 14:49