レポートを開くためのクエリパラメータの参照の仕方が分かりません

前提・実現したいこと

Accessのレポートを開く際にクエリのパラメータ(Between)を使ってレコードを抽出しています。どんなパラメータが指定されたかでヘッダ部分とフッター部分のコントロールの表示・非表示をVBAで指定したいのですが、パラメータの値を参照する方法が分かりません。また、どのイベント発生時に書けばよいのかも分かりません。

該当のソースコード

Private Sub Report_Activate()

Dim RS1 As Recordset
Set RS1 = Me.RecordSource
 
        RS1.MoveFirst
        RS1.FindFirst "[Grupo] Like '*09'"
            If Not RS.NoMatch Then
             Me.[titlePA].Visible = True 'ヘッダのコントロールです
             Me.[E1-7].Visible = False　'フッターのコントロールです
            End If
    　　RS1.Close: Set RS1 = Nothing

End Sub

試したこと

コントロールは両方ともプロパティでVisibleになっています。
クエリの[Grupo]のパラメータで、例えば101から109を選択するとグループ名が101、102…　109のレコードまで出て来ます。　パラメータは必ず入力するので Do Until EOFやLoopは省きました。
Report_Open、Report_Load、Report_Activateで試してみましたが、いずれも同じエラーが出てきます。

ちなみにエラーは（外国語なのでどう説明すればいいかよく分かりませんが）恐らく「このイベントでは実行できない」というようなことを言っているのだと思います。　表示・非表示が思い通りにならない以外は要求したレコードが抽出されています。

手探りで独学中なのでどのイベントが発生する際のプロシージャとすればいいのかも分からず、質問も不明瞭かも知れませんがお許しください。　よろしくお願い致します。

補足情報（FW/ツールのバージョンなど）

Microsoft Office Professional Plus 2013 を使っています。
またOSは外国語版ですが、Unicodeではないプログラムに使用するのは日本語になっています。

sazi

2018/06/10 02:46

エラーメッセージが英語であってもそのまま質問に記述してください。

sazi

2018/06/10 02:48

パラメータはパラメータ定義ですか？実際にパラメータを与えている部分の情報も追記して下さい

infini55

2018/06/10 07:19

投稿の不備のご指摘ありがとうございました。　エラーメッセージが実はスペイン語なので、貼り付けても良いのかどうか分からず省略させていただいた次第です。やはり記述した方が良いでしょうか。　　またパラメータはレポートのクエリのデザインビューでGrupoフィールドの抽出条件に Between [desde] And [hasta] と記述しています。

sazi

2018/06/10 08:04

エラーコードなどもあるでしょうし、発生しているエラーの情報は取り敢えずは記述した方が良いかと思います。

行動規範の内容に同意します

回答1件

『クエリのパラメータ(Between) ・・・どんなパラメータが指定されたか』という説明とコードのRS1.FindFirst "[Grupo] Like '*09'"の整合性が疑問です。コードの条件は固定ですよね。（コードには他にもいろいろ間違いがありますが。）

とりあえずレコードソースのクエリのパラメータは、フィールドと同じ扱いになりますので、例えば、[値を入力してください] というようなパラメータを設定していたら、レポート上のテキストボックスのコントロールソースに、
=[値を入力してください]
というように設定すれば表示させることができます。

さらに表示/非表示なら、コントロールソースを

=IIf(表示する場合の条件式,"表示したいテキスト","")

と設定して「印刷時縮小」プロパティを「はい」に設定すると条件に合致しない場合は非表示になります。（印刷時縮小「はい」で "" のときは高さ0で非表示になる。）

実際のパラメータや条件が不明なので具体的な式は提示出ませんが、
上記のことを応用すれば希望の条件で表示/非表示を切り替えることができるはずです。
追記

とりあえず現状のコードをエラーなく動作するようにするには、下記のコードで。
ただし、これが質問者さんの希望する結果かどうかは分かりません。

vba
1Private Sub Report_Open()
2    Dim RS1 As DAO.Recordset
3
4    Set RS1 = CurrentDB.OpenRecordSet(Me.RecordSource)
5
6    RS1.FindFirst "[Grupo] Like '*09'"
7    If Not RS.NoMatch Then
8             Me.[titlePA].Visible = True 'ヘッダのコントロールです
9             Me.[E1-7].Visible = False　'フッターのコントロールです
10    End If
11　　RS1.Close: Set RS1 = Nothing
12End Sub