帳票フォームの全件のレポート出力

質問

OS:XP
Access Version:2007

抽出されたレコードが帳票フォームで表示されているのですが、
その複数抽出のレコードすべてをレポート出力したいのですが。。。どうすばいいわからなくて
どなたかいい方法をおしえてください。
抽出条件コードはこれです。
Private Sub btnSearch_Click()
Dim strWhere As String
Dim strAndOr As String

strWhere = vbNullString

If Me.optAndOr.Value = cAnd Then
strAndOr = " AND "
Else
strAndOr = " OR "
End If

If Me.txtYear.Value <> vbNullString Then
strWhere = strWhere & strAndOr & " 年度 LIKE '*" & Me.txtYear.Value & "*'"
End If

If Me.txtName.Value <> vbNullString Then
strWhere = strWhere & strAndOr & " 営業担当 LIKE '*" & Me.txtName.Value & "*'"
End If

'WHERE句編集
strWhere = Replace(strWhere, strAndOr, "WHERE", , 1)

'レコードソース書き換えと再クエリ
Me.RecordSource = cBaseQuery & " " & strWhere
Me.Requery
End Sub

回答No.2

hatena1989 · ベストアンサー

フォームヘッダーかフッターにコマンドボタン(btnPreview)を配置して、
コマンドボタンのクリック時のイベントプロシージャに

Private Sub btnPreview_Click()
Dim strFilter As String

strFilter = Me.RecordSource
strFilter = Mid(strFilter, InStr(strFilter, " WHERE ") + 7)
DoCmd.OpenReport "レポート名", acViewPreview, , stFilter
End Sub

でどうですか。

あと、抽出ボタンで RecordSource を書きかえてますが、
Filterプロパティを設定する方がシンプルになります。
コード例

Private Sub btnSearch_Click()
Dim strWhere As String
Dim strAndOr As String

strWhere = vbNullString

If Me.optAndOr.Value = cAnd Then
strAndOr = " AND "
Else
strAndOr = " OR "
End If

If Me.txtYear.Value <> vbNullString Then
strWhere = strWhere & strAndOr & " 年度 LIKE '*" & Me.txtYear.Value & "*'"
End If

If Me.txtName.Value <> vbNullString Then
strWhere = strWhere & strAndOr & " 営業担当 LIKE '*" & Me.txtName.Value & "*'"
End If

'WHERE句編集
strWhere = Replace(strWhere, strAndOr, "", , 1)

'レコードソース書き換えと再クエリ
Me.Filter = strWhere
Me.FilterOn = True
End Sub

Private Sub btnPreview_Click()

DoCmd.OpenReport "レポート名", acViewPreview, , Me.Filter

End Sub

回答No.1

piroin654

レポートには必要なコントロールを設定しておいて、

'レコードソース書き換えと再クエリ
Me.RecordSource = cBaseQuery & " " & strWhere

の右の　cBaseQuery & " " & strWhere　でクエリ
を設定し、これをレポートのフォーマット時に
レポートのレコードソースにすればいいのでは
と思いますが。