Access VBA質問箱 IV

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

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


2486 / 9994 ←次へ | 前へ→

【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()

こちらは、このままで大丈夫だと思います。
306 hits

【10779】レポート出力について 08/11/21(金) 9:15 質問[未読]
【10781】Re:レポート出力について Gin_II 08/11/21(金) 11:08 回答[未読]
【10782】Re:レポート出力について 08/11/21(金) 11:24 お礼[未読]

2486 / 9994 ←次へ | 前へ→
ページ:  ┃  記事番号:
1078199
(SS)C-BOARD v3.8 is Free