Access VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
907 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【9570】抽出結果をレポートへ表示 いっちゃん 07/6/13(水) 9:42 質問[未読]
【9573】Re:抽出結果をレポートへ表示 Gin_II 07/6/13(水) 11:16 回答[未読]
【9574】Re:抽出結果をレポートへ表示 いっちゃん 07/6/13(水) 12:03 質問[未読]
【9575】Re:抽出結果をレポートへ表示 Gin_II 07/6/13(水) 12:13 回答[未読]
【9576】Re:抽出結果をレポートへ表示 いっちゃん 07/6/13(水) 12:36 質問[未読]
【9577】Re:抽出結果をレポートへ表示 Gin_II 07/6/13(水) 13:15 回答[未読]
【9578】Re:抽出結果をレポートへ表示 いっちゃん 07/6/13(水) 13:54 お礼[未読]
【9570】抽出結果をレポートへ表示
質問  いっちゃん E-MAIL  - 07/6/13(水) 9:42 -
引用なし
パスワード
   フォーム上でレコードの抽出を検索ボタンをクリック時にできるようになっています。

抽出はＶＢＡを使用しており

Private Sub コマンド13_Click()
Dim varSpt As Variant, strWhare As String

varSpt = Split(Nz(Me!内容, ""), , , vbTextCompare) '検索条件をSpaceで分割。

strWhare = "職務内容 Like '" & Join(varSpt, "*' OR 職務内容 Like '") & "*'"

Me.Filter = strWhare
Me.FilterOn = IsNull(Me!内容) = False

End Sub

というコードが入力されています。


これを使用し抽出したレコードを、フォーム上のプレビューボタンをクリックしたときに

レポートに表示できるようにしたいのですが・・・(-_-;)


ＶＢＡ初心者なので過去ログを参考に作ろうにもどの部分を使用してよいのかわかりません。

教えてください。お願いしますm(__)m
【9573】Re:抽出結果をレポートへ表示
回答  Gin_II  - 07/6/13(水) 11:16 -
引用なし
パスワード
   >これを使用し抽出したレコードを、フォーム上のプレビューボタンをクリックしたときに
>
>レポートに表示できるようにしたいのですが・・・(-_-;)

OpenReport メソッドを使う予定ですか？
そうであれば、その中に、WhereCondition 引数がありますので、そこに、

Me.Filter
と指定してみてください。
【9574】Re:抽出結果をレポートへ表示
質問  いっちゃん E-MAIL  - 07/6/13(水) 12:03 -
引用なし
パスワード
   >OpenReport メソッドを使う予定ですか？
>そうであれば、その中に、WhereCondition 引数がありますので、そこに、
>
>Me.Filter
>と指定してみてください。

してみたのですが、

DoCmd.OpenReport R_スタッフ検索2, acViewNormal, Q_スタッフ(検索2), Me.Filter

と入力したところ、

コンパイルエラー
変数が定義されていません。

と出てしまいレポート名が青く表示されてしまいます。(-_-;)
【9575】Re:抽出結果をレポートへ表示
回答  Gin_II  - 07/6/13(水) 12:13 -
引用なし
パスワード
   >DoCmd.OpenReport R_スタッフ検索2, acViewNormal, Q_スタッフ(検索2), Me.Filter
>
>と入力したところ、
>
>コンパイルエラー
>変数が定義されていません。
>
>と出てしまいレポート名が青く表示されてしまいます。(-_-;)

R_スタッフ検索2
Q_スタッフ(検索2)

ここは、引用符("")でくくってやる必要があると思いますけど。
【9576】Re:抽出結果をレポートへ表示
質問  いっちゃん E-MAIL  - 07/6/13(水) 12:36 -
引用なし
パスワード
   ▼Gin_II さん：
>>DoCmd.OpenReport R_スタッフ検索2, acViewNormal, Q_スタッフ(検索2), Me.Filter
>>
>>と入力したところ、
>>
>>コンパイルエラー
>>変数が定義されていません。
>>
>>と出てしまいレポート名が青く表示されてしまいます。(-_-;)
>
>R_スタッフ検索2
>Q_スタッフ(検索2)
>
>ここは、引用符("")でくくってやる必要があると思いますけど。

引用符をつけたら解決できました＼(^o^)／

でも直接印刷されてしまうのですが、どうしたらいいのでしょう！？(-_-;)
【9577】Re:抽出結果をレポートへ表示
回答  Gin_II  - 07/6/13(水) 13:15 -
引用なし
パスワード
   >でも直接印刷されてしまうのですが、どうしたらいいのでしょう！？(-_-;)

そのように指定されているからです ^^;

> DoCmd.OpenReport R_スタッフ検索2, acViewNormal, Q_スタッフ(検索2), Me.Filter

OpenReport の部分で、F1を押すと、OpenReport メソッドのヘルプが表示されますので、
各引数の内容を、確認してください。
【9578】Re:抽出結果をレポートへ表示
お礼  いっちゃん E-MAIL  - 07/6/13(水) 13:54 -
引用なし
パスワード
   Gin_II さんありがとうございました（●＾o＾●）

無事解決できました！！＼(^o^)／
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
907 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
1078201
(SS)C-BOARD v3.8 is Free