No.1ベストアンサー
- 回答日時:
> 色々調べてみたのですが、分からなかったので
調べ方が良くなかったのでしょうね
ウィザードで作成すると
Private Sub コマンド61_Click()
On Error GoTo Err_コマンド61_Click
Dim stDocName As String
stDocName = "フォーム名"
DoCmd.OpenReport stDocName, acPreview
Exit_コマンド61_Click:
Exit Sub
Err_コマンド61_Click:
MsgBox err.Description
Resume Exit_コマンド61_Click
End Sub
こんなコードが出来ていると思います。
それぞれの単語の上にカーソルを持っていって、F1 キーを押すとそれぞれのヘルプが
現れます。
でAccess2002の場合ですが、OpenReportのヘルプで
WhereCondition で何かを指定すると何とかなりそうなのが分かります。
関連項目を見ると「"OpenReport/レポートを開く" アクション」が有ります。
ここに貴方の望むものが載っています。
ヘルプより抜粋
-------------------------
レポートを開き、レポートのコントロールの値を使ってレコードを制限するには、次の構文を使用します。
['(フィールド名)'] = Forms!['(フォーム名)']!['(フォームのコントロール名)']
'(フィールド名)' には、開くレポートの基になるテーブルまたはクエリにあるフィールド名を指定します。
<フォームのコントロール名> には、レポートのレコードを制限するための値を持つ、フォームのコントロール名を指定します。
--------------------------
なので
DoCmd.OpenReport stDocName, acPreview
を
DoCmd.OpenReport stDocName, acPreview, , "[ID]=" & Forms![フォーム名]![ID]
にすれば良いのが分かるかと思います。なお、下記の書き方もあります
DoCmd.OpenReport stDocName, acPreview, , "[ID]=" & Me!ID
> 調べ方が良くなかったのでしょうね
申し訳ありません‥。
こんな至らない私にも、長文のご回答で応えてくだすって嬉しいです。
で、結果ですが‥
>DoCmd.OpenReport stDocName, acPreview, , "[ID]=" & Forms![フォーム名]![ID]
の入力で完璧にいけました!!すごい!!!
これって基本的なことなのかもしれませんが、実は2時間弱迷い続けていたんです‥。
この先思いやられますが、こうやってひとつひとつ(できれば一人で)解決していければと思います!
ありがとうございました!
No.2
- 回答日時:
フォームで表示されているものだけをレポートに出力したい場合には
フォームでどのように絞り込んでいるかによって方法が変わります
フィルタで絞り込んでいるのなら、
レポートのフィルタにフォームのフィルタをコピーしてやります
Private Sub Report_Open(Cancel As Integer)
Me.Filter = Forms![フォーム名].Filter
Me.FilterOn = True
End Sub
フォームのソースをクエリにし、抽出条件で絞っているのなら
同じ抽出条件のクエリをレポートのソースにします
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Access(アクセス) access レポート 請求書について 2 2022/07/04 22:52
- その他(データベース) Accessフォームからパラメーターで表示したレコードを指定のExcelのセルへ転送する方法について 2 2022/08/22 18:04
- Access(アクセス) Access 登録ボタンからサブフォームの更新 1 2022/07/22 10:23
- Access(アクセス) Accessの参照フィールドの列がずれてしまいます 1 2023/07/19 15:00
- JavaScript 入力フォームの javascript で メールアドレスの正規チェックをを行い、ボタンをクリックして 2 2022/04/27 16:06
- JavaScript ラジオボタンによるフォームの開閉を行いたい 3 2022/03/31 21:30
- JavaScript フォームが空欄の時にフォームの外をクリックすると、エラーが出るコードを調べています。 1 2023/06/25 11:51
- Access(アクセス) Dlookupにエラーがでてしまう 1 2022/10/31 14:35
- Access(アクセス) 【アクセス】レポート テキスト枠線が消えた 1 2022/07/02 17:40
- HTML・CSS ボタンをクリックした時に、入力フォームのすぐ下部に、「入力欄が空白です」というテキストメッセージが表 1 2022/04/27 16:25
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Accessレポートのチェックボッ...
-
エクセルをACCESSのレポ...
-
Accessのレポートのデザインに...
-
アクセスにおいて、ドキュメン...
-
複数のクエリーを一枚のレポー...
-
Accessのレポートで印刷プレビ...
-
Accessレポートで質問です
-
AccessレポートでのVBAを使用し...
-
アクティブレポートで複数のレ...
-
Accessのレポート機能でソート...
-
ACCESSのレポートで別のレポー...
-
AccessVBAでのカラー印刷モード
-
Access2000でモーダルフ...
-
Accessのレポートで再読み込み
-
Accessでグループフッターの非表示
-
ACCESSで表示されているフォー...
-
Access レポート印刷するときに...
-
YahooのIDがロックされてしまい...
-
データベースのINT型項目にNULL...
-
「フォームを作成できませんで...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルをACCESSのレポ...
-
Accessレポートのチェックボッ...
-
アクセスのレポートで同ページ...
-
複数のクエリーを一枚のレポー...
-
アクセスのレポート起動時のウ...
-
Accessのレポート機能でソート...
-
アクセスのレポートをマクロでE...
-
Accessのレポートで印刷プレビ...
-
accessのフィールドの数
-
PDF変換後、線が表示されない
-
Accessのレポートのデザインに...
-
アクセスでレポートの使いまわ...
-
AccessVBAでのカラー印刷モード
-
Accessでグループフッターの非表示
-
Access2007サブレポートの絞り...
-
禁則処理の方法がわかりません。
-
Accessのレポートで再読み込み
-
AccessレポートでのVBAを使用し...
-
ビシソワーズはなぜ冷たいのか?
-
Access2000のレポートで目次(...
おすすめ情報