Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
646 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【10779】レポート出力について 波 08/11/21(金) 9:15 質問[未読]
【10781】Re:レポート出力について Gin_II 08/11/21(金) 11:08 回答[未読]
【10782】Re:レポート出力について 波 08/11/21(金) 11:24 お礼[未読]
【10779】レポート出力について
質問  波  - 08/11/21(金) 9:15 -
引用なし
パスワード
   ＞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
----------------------------------
というところだけです。その後のコマンドが実行されていないようです。
【10781】Re:レポート出力について
回答  Gin_II E-MAIL  - 08/11/21(金) 11:08 -
引用なし
パスワード
   あ。ちょっと前回のレスで間違いが ^^;

フォームのレコードソースプロパティを、

SELECT * from Sheet1_2クエリ

に変更して、Private Sub cmd1_Click() 内の、

> If Len(strWhere) > 0 Then
> 　Me.RecordSource = strSql & "WHERE " & Mid(strWhere, 5)
> 　Debug.Print strSql & "WHERE " & Mid(strWhere, 5)
> Else
> 　　Me.RecordSource = strSql
> End If

を

If Len(strWhere) > 0 Then
　Me.Filter = Mid(strWhere, 5)
　Me.FilterOn = True
Else
　　Me.Filter = ""
　　Me.FilterOn = False
End If

に変更してみてください。


>Private Sub cmd3_Click()

こちらは、このままで大丈夫だと思います。
【10782】Re:レポート出力について
お礼  波  - 08/11/21(金) 11:24 -
引用なし
パスワード
   有難うございました。やっと思い通りの仕上がりになりました。
長々とお付き合いいただいて、根気よく教えてくださり、本当に有難うございました。（＾＾）
以後研鑽いたします。<（_ _）>
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
646 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
1078197
(SS)C-BOARD v3.8 is Free