ちょっと気になったので。
参照設定のDAOのバージョンは3.6ではないかも知れません。
とにかく自分が使っているのが、2000で97が手元にないので確認してませんが。
では。

投稿日時 - 2002-03-08 18:52:02

せっかくの回答に水を差すようで申し訳ありませんが、Access97は、ＡＤＯをサポートしていません。（ＡＤＯが使えるのは Access2000からです。）

いま、ちょっと時間を取れなくて、自分では具体的なアドバイスをできないのに、こんなことを申し上げるのは恐縮なのですが・・・。

投稿日時 - 2002-03-08 12:14:25

再びmaruru01です。

ADOのレコードセットを使用しましょう。
元のテーブルを[顧客テーブル]、その中にフィールド[顧客ID](数値型)、[日付](日付型)があるとします。
[印刷]ボタンのクリックイベントに、

Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim condHiduke As String
Dim condKyakuID As String
Dim criteria As String

'抽出条件の設定
condHiduke = "(日付 BETWEEN #" & [Forms]![条件フォーム]![開始日] & "# AND #" & [Forms]![条件フォーム]![終了日] & "#)"
condKyakuID = "(顧客ID BETWEEN " & [Forms]![条件フォーム]![開始客先] & " AND " & [Forms]![条件フォーム]![終了客先] & ")"
criteria = condHiduke & " AND " & condKyakuID

'レコードセットの作成
Set cn = CurrentProject.Connection
Set rs = New ADODB.Recordset
rs.Open "顧客テーブル", cn, adOpenKeyset, adLockReadOnly

'1回目の検索
rs.Find criteria, 0, adSearchForward
If rs.EOF Then
　　'終了
　　Exit Sub
Else
　　Do Until rs.EOF
　　　　*** ここに印刷処理を書く（Forループの中身だけ） ***
　　　　Filterの抽出条件は、"顧客ID = " & rs!顧客ID
　　　　(印刷処理)
　　　　************************************************
　　　　'2回目以降の検索
　　　　rs.Find criteria, 1, adSearchForward
　　Loop
End If

rs.Close: Set rs = Nothing
cn.Close: Set cn = Nothing

レコードセットのOpenやFindメソッドについては、ヘルプを参照して下さい。
なお、私はAccess2000で、しかも試していないので、動作するかどうかはわかりません。
では。

投稿日時 - 2002-03-07 12:07:12

こんにちは。maruru01です。

毎回客一人だけを抽出してレポートのソースに設定して、Forループで回せばいいと思います。

客総数をAllCountとして、

For i = 1 To AllCount
　　1枚目用レポート名.Filter = "(抽出条件)"
　　1枚目用レポート名.FilterOn = True
　　DoCmd.OpenReport 1枚目用レポート名, acViewNormal
　　2枚目用レポート名.Filter = "(抽出条件)"
　　2枚目用レポート名.FilterOn = True
　　DoCmd.OpenReport 2枚目用レポート名, acViewNormal
　　3枚目用レポート名.Filter = "(抽出条件)"
　　3枚目用レポート名.FilterOn = True
　　DoCmd.OpenReport 3枚目用レポート名, acViewNormal
Next i

このままだと、紙は3枚目が一番上になると思うので、プリンタのオプションで変えるなり、上のコードの順番を変えるなりして下さい。
では。

投稿日時 - 2002-03-06 18:32:43