Access VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

3682 / 9994

←次へ　｜　前へ→


	【9570】抽出結果をレポートへ表示

いっちゃん

- 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

393 hits

▼

【9570】抽出結果をレポートへ表示 いっちゃん 07/6/13(水) 9:42