|
>Gin_IIさん
----------------------------------
Private Sub cmd3_Click()
DoCmd.OpenReport ReportName:="REPORT1", View:=acViewPreview, WhereCondition:=Me.Filter
Debug.Print Me.Filter
End Sub
----------------------------------
がcmd3_Click()のコード全部ですので、
> フォーム側の
>
> Me.RecordSource = なんちゃら
>
> になっている部分を、
>
> Me.Filter = なんちゃら
> Me.FilterOn = True
に直すというのは、
> Reports!REPORT_1.Filter = Me.Filter
> Reports!REPORT_1.FilterOn = True
の部分で書き直してあるという認識だったのですが...。
ともかく、イミディエイトウィンドウに表示されているのは、
----------------------------------
SELECT * from Sheet1_2クエリ WHERE アルファベット = 'X' AND 数値 BETWEEN 2 AND 6
----------------------------------
というところだけです。その後のコマンドが実行されていないようです。
|
|