＞やろうと思ってモジュールに同じようなプロシージャをしてみて ＞モジュールを実行しようとしたらメインスイッチボード自体に ＞エラーが出てしまいました。 どのようなエラーが出たのでしょうか？ 「メインスイッチボード」と言っても普通のいわゆる 「メインフォーム」でボタンなどを設定している のでしょうから、フォームにボタンを一つ設定して、 Private Sub cmdReShowReport_Click()　の中身をコピーして貼り付けて 実行するだけだと思いますが。どうでしょうか。

No7に追加です。 何らかの拍子に「チェック」をすべてはずしてしまった ことに気が付かずレポートを再表示しようとしたときの エラー処理を、 　　　　Do Until rs.EOF 　　　　　　If rs!チェック = True Then 　　　　　　　　strFilter = strFilter & "," & "'" & rs!品名 & "'" 　　　　　　End If 　　　　　　rs.MoveNext 　　　　Loop 　　　　If strFilter = "" Then 　　　　　　MsgBox ("チェックがすべてはずれています。レポートを表示できません。") 　　　　　　Exit Sub 　　　　End If 　　　　strFilter = Right(strFilter, Len(strFilter) - 1) 　　　　strFilter = "品名 In(" & strFilter & ")" 　　　　DoCmd.OpenReport "Rカタログ", acViewPreview, , strFilter のように、 　　　　If strFilter = "" Then 　　　　　　MsgBox ("チェックがすべてはずれています。レポートを表示できません。") 　　　　　　Exit Sub 　　　　End If を、 Loop と strFilter = Right(strFilter, Len(strFilter) - 1) の間にいれておいてください。

＞なお、フォームでチェックをいれてもレコードの ＞左側に「鉛筆マーク」が出ている間にcmdMakeList ＞をクリックしても、・・・・・・・・ に準拠しているのだろうと思いますが。 レコードを強制的に確定させるために、 '品名リストへの登録 Private Sub cmdMakeList_Click() 　　Dim rs As DAO.Recordset 　　Set rs = Me.RecordsetClone 　　DoCmd.RunCommand acCmdSaveRecord 　　rs.MoveFirst 　　Do Until rs.EOF のように、 DoCmd.RunCommand acCmdSaveRecord を追加してください。 なお、「品名リストへの登録」フォームで、データを 誤って書き換えないようにするには、「チェック」 以外はプロパティで「編集ロック」を「はい」に しておきます。

DAOはAccess2000ならば、Microsoft DAO 3.6 Object Librayです。 作成して確認してみてください。提案に必要な部分です。 質問ですが。 「チェック」というフィールドは、「テーブル1」に設定して いるのですか、あるいは「テーブル2」ですか？さらに 「チェック」はテキスト型ですか、あるいはYes/No型ですか。 また、 ＞チェックのコントロールソースに ＞=InStr([品名リスト] & ",","," & [品名] & ",") ＞の式が入っています。 のところが不可思議なのですが、これからすると 「チェック」はテキストボックスですか？ ＞チェックを入れて選んだ商品がレパートに出るまでは上手くいくのですが チェックはフォームでいれることができるのですか？ ＞クエリで品名をグループ化サイズと重量などののそれぞれの平均、 ＞最小、最大をクエリで ならば、このクエリは更新できないのでは、と思うのですが。 提案として。 ＞クエリで品名をグループ化サイズと重量などののそれぞれの平均、最小、 ＞最大をクエリで計算しています。 ＞クエリを元にフォームを作成しています。 この部分を、クエリを基にレポートを作成し、 フォームは「テーブル2」にYes/No型のフィールドを 設定し、それを基に作成するようにしたらどうですか。 作成方法はNo3での方法です。

No3です。もし、チェックを入れない場合に すべて表示するならば、以下のように。 'レポートの表示 Private Sub cmdShowReport_Click() Dim strFilter As String If Me!品名リスト <> "" Then 　　strFilter = "品名 In(" & Me!品名リスト & ")" 　　DoCmd.OpenReport "RRR", acViewPreview, , strFilter Else 　　'ここを変更 　　MsgBox "すべて表示します。" 　　DoCmd.OpenReport "RRR", acViewPreview End If End Sub

＞チェックを入れた品名だけをレポートに出すようにしたくて ということであれば、Private Sub コマンド_Click()　の 中身から変更する必要があるのでは、と思いますが。 質問に出てくる「品名リスト」、「品名」が何者なのか あるいはフォームがどのような構造なのか「チェック」 ってどこに・・・・？ 一切情報がないので話を追っていった感じから、一度 以下のような要領でフォームを作ってみてください。 その上で、質問の内容にフォームやレポートの レコードソースなどを変更しても遅くはないと思います。 (1) テーブルを一つ作成します。名前を「テーブル100」とします。 ID　　オートナンバー 品名　テキスト型 チェック　Yes/No型 品名に適当にデータを入力してください。 （これは補足にあるテーブル2でいいのでは） (2) 「テーブル100」をレコードソースとして、「フォームの新規作成」 から、「表形式」を選択し、適当な名前で保存します。 (3) 保存したフォームをデザインビューで開き、「詳細」部分に カーソルを当て下にずイーーっと引き下げ、ついでに ラベルも引き下げておきます。 (4) フォームに出来たスペースにボタンを三つ、大き目の テキストボックスを一つ設定します。 テキストボックスの名前を「品名リスト」とします。 (5) 三つのボタンの名前をそれぞれ、cmdMakeList、 cmdShowReport、cmdCheckRefreshとします。 それぞれのボタンのクリックイベントに 以下を設定してください。 なお、DAOをシヨウしているので、コード表で DAOへのチェックを確認しておいてください。 Microsoft DAO XX Object Libray のようなものです。 (6) '品名リストへの登録 Private Sub cmdMakeList_Click() 　　Dim rs As DAO.Recordset 　　Set rs = Me.RecordsetClone 　　rs.MoveFirst 　　Do Until rs.EOF 　　　　'チェックがされているレコードがあった場合 　　　　If rs!チェック = True Then 　　　　　　'品名リストにデータが登録されている場合 　　　　　　If Not IsNull(Me!品名リスト) Then 　　　　　　　　Me!品名リスト = Me!品名リスト & "," & "'" & rs!品名 & "'" 　　　　　　'品名リストにデータが登録されていない場合 　　　　　　Else 　　　　　　　　Me!品名リスト = "'" & rs!品名 & "'" 　　　　　　End If 　　　　End If 　　　　rs.MoveNext 　　Loop rs.Close: Set rs = Nothing End Sub (7) 'レポートの表示 Private Sub cmdShowReport_Click() Dim strFilter As String If Me!品名リスト <> "" Then 　　strFilter = "品名 In(" & Me!品名リスト & ")" 　　DoCmd.OpenReport "RRR", acViewPreview, , strFilter Else 　　MsgBox "選択されたデータはありません。" End If End Sub (8) 'チェックの初期化(チェックをはずします） 'SQL文を投げてもいいのですが、このままで。 Private Sub cmdCheckRefresh_Click() 　　Dim rs As DAO.Recordset 　　Set rs = Me.RecordsetClone 　　rs.MoveFirst 　　Do Until rs.EOF 　　　　rs.Edit 　　　　rs!チェック = False 　　　　rs.Update 　　　　rs.MoveNext 　　Loop 　　'これはいれなくても大丈夫だと思いますが、念のために Me.Requery 　　rs.Close: Set rs = Nothing End Sub (9) レポートを作成します。便宜上レポートの レコードソースは「テーブル100」とします。 レポートの新規作成で、「表形式」を選択し、 レコードソースを「テーブル100」を選択し、 名前を「RRR」としてください。レポートを 表示するコードの中でレポート名を「RRR」 としています。 以上で、質問の意図に沿ったものが出来るか 確認してみてください。 なお、フォームでチェックをいれてもレコードの 左側に「鉛筆マーク」が出ている間にcmdMakeList をクリックしても、鉛筆マークのついたレコードは 確定したものとは見なされないので、どこか別の レコードのフィールドをクリックして「鉛筆マーク」 を消して、レコードを確定してください。

#1です。何度か補足を読み返してみたのですが。。。 「チェック」フィールド？の説明が無いのですが、 パラメータの入力を促されるのは、「R_カタログ」レポートのレコードソースになっている クエリ？に「チェック」フィールドが含まれていないためかと思います。 レポート内に配置する必要はありませんが、レコードソース中には入れて試してみてください。 私の勘違いならゴメン。

Private Sub 実行_Click() Dim strFilter As String If Me.品名リスト <> "" Then strFilter = "品名 In(" & Mid(Replace(Me.品名リスト, ",", "','"), 3) & "')" 'DoCmd.OpenReport "R_カタログ", acViewPreview, , strFilter 'を↓ DoCmd.OpenReport "R_カタログ", acViewPreview,wherecondition:= "[チェック] = true" 'で良さそうに思えますけど。 'そちらの状況が分かりづらいですね Else MsgBox "選択されたデータはありません。" End If End Sub