- ベストアンサー
ACCESS97で単表フォーム上からレポート印刷をする。
ACCESS97でマクロを使用しています。 単表フォーム上にコマンドボタン(レポートを開くマクロを使用し、単表フォームのIDを入力し印刷しています。)を配置しています。 レポートを印刷するのに、IDの入力を省略したい、どうすれば良いでしょうか。 マクロまたはVisual Basicでお願いします。
- sos7
- お礼率66% (2/3)
- その他(データベース)
- 回答数2
- ありがとう数3
- みんなの回答 (2)
- 専門家の回答
質問者が選んだベストアンサー
私も経験者様と同じで下記のように記述致しました。 初心者なので下手な記述でスミマセン! 参考にもならないかもしれませんが、よかったらドウゾ! '------------------------------------------------------------ ' 【概 要】From2 レコード更新・印刷・終了 ' 【所 在】From2「更新」クリック時イベント ' 【戻 値】 ' 【作 成】pooh200x 2001.5.21 '------------------------------------------------------------ Private Sub cmdKousin_Click() Dim kosyin As Integer Dim lngID As Long Dim tojiru As Integer kosyin = MsgBox("更新しますか?", vbYesNo) If kosyin = vbNo Then 'Noだったら Exit Sub '閉じる End If DoCmd.RunCommand acCmdSaveRecord '保存する lngID = MsgBox("印刷を行いますか?", vbYesNo) If lngID = vbNo Then Exit Sub End If lngID = Me.txt1.Value ’txt1というTxtBoxに[=id]と入力しておきそれをキーにして印刷 DoCmd.OpenReport "印刷", acViewNormal, , "id=" & lngID 'レポート名「印刷」を「id」というオートNOをキーに出力 'acViewPreview を選択するとプレビュー tojiru = MsgBox("画面を閉じます(^O^)/~~", vbYesNo) If tojiru = vbNo Then Exit Sub End If DoCmd.Close DoCmd.OpenForm "メインフォーム" End Sub
その他の回答 (1)
- ARC
- ベストアンサー率46% (643/1383)
Private Sub コマンド0_Click() DoCmd.OpenReport "レポート名", acViewPreview, , "フィールド名 = " & Me.IDコントロール名 End Sub ってするのが楽な方法でしょうね。 不明点とかあったら、補足してください。
お礼
ACCESS97は非常に難しいので次回もアドバイスよろしくお願いします。
補足
早速の回答有難うございます。 IDがテキストだったので8月11日までかかりました。有難うございました。
関連するQ&A
- ACCESSで表示されているフォームだけをレポートに出したい
アクセスで、入力したフォーム内容をすぐにレポートで印刷できるよう、コマンドボタン作成ウィザードで、レポートの操作→レポートのプレビューを行ったのですが、IDが1のものが表示されてしまいます。。 これを、表示されているフォームIDのものをプレビューさせることはできますでしょうか? 色々調べてみたのですが、分からなかったので。。 宜しくお願いします!
- ベストアンサー
- オフィス系ソフト
- Accessで今記入されたデータ―をすぐにレポートで印刷したいのですが
よろしくお願いします。Win98でAccess2000を使用しています。 毎日提出する売上日報を作っていますが、パソコンに不慣れな人でも使えるようにしたいと思っています。 その日の売上データ―をフォームから記入し、クエリを通して集計や細かな計算をさせた物をレポート化することまでは出来ています。 ただ、フォーム上にコマンドボタンをつくり、それでマクロを実行させたいのですが、レポートを開かせて印刷まではできました。 ただ、最後の(つまり今、フォームに記入したばかりの)データ―をだけを印刷させたいのですが最後のデータを [Forms]![売上データ―]![ID]=[Reports]![売上日報]![ID] のようにIDでページ指定をすると、印刷されたレポート内のデータが白紙になります。 記入されたページを指定しないと、すべてのレポートが印刷されてしまいます。 今フォームに記入されたデータをフォーム上のコマンドボタンからレポートで印刷させるには、どのようにしたら良いのでしょうか?
- 締切済み
- オフィス系ソフト
- アクセス2000でレポート印刷
アクセス2000でレポート印刷 レポートを印刷するとき、フォームで表示しているレコードだけを印刷したいのですが・・・ フォーム上でコマンドボタンを作ってレポートを印刷すると、関連するレコードが全て印刷されてしまいます。 フォームでレコードを指定して、そのレコードだけを印刷・・・ 教えてください!!!!
- ベストアンサー
- その他([技術者向] コンピューター)
- ACCESSのフォームでの入力について
ACCESS2000を使用しています。初心者のほうです。住所録のテーブルを作って、作業用のフォームを表形式で作りました。そのフォームに宛名印刷するためのコマンドボタンを配置しています。フォーム上で一件入力し、そのコマンドボタンを実行するのですが、その時点ではレコードとして入力されていないようで、実行できません。フォームを一度閉じて、また開くと出来るようになります。1件のレコードをフォームから入力すると同時にテーブルへも保存されていくようにしたいのですが、簡単にやる方法はないでしょうか?
- ベストアンサー
- オフィス系ソフト
- アクセス2003 フォーム→レポート?
アクセス2003です。 アクセスのフォームから、住所や名前を入力すると、 封筒印刷ができるようになっています。 それが、いつ頃からか同じ物が2度ずつレポートにあがってくるようになりました。 1件だけの印刷なら、印刷ページを~1にすればすむのですが、 続けて2件3件と印刷したいときは、~1、3~3、5~5みたいにしないと いけなくなり、大変不便をしています。 修正したいのですが、どこをみればいいのでしょうか? (マクロ、モジュールなどのどの部分と詳しく教えていただけると助かります) 当方、テーブルからレポートまで一通りはいじれますが、 マクロ、モジュールになるとさっぱりです(>_<)
- ベストアンサー
- オフィス系ソフト
- レポート印刷
アクセス2000使用ですが、フォームで表示されている情報だけをコマンドボタンでレポート印刷するためにはどうすればいいのか教えてください。印刷ダイアログでページの指定をするのではなく、ボタンで一発印刷ができるといいんですが。
- 締切済み
- その他(データベース)
- アクセスについて(コマンドボタン、レポート)
フォームFOにコマンドボタンを配置しマクロを登録しました。で、中の文字は前景色で変えられますが、ボタン自体の色を変更できませんか? また、レポートを閉じるマクロを実行してレポートを閉じたあと、また、そのフォームFOに戻ることはできないでしょうか?
- 締切済み
- オフィス系ソフト
- ACCESSでフォーム入力→レポート出力したい
ACCESSでフォーム入力→レポート出力したい OS:XP,ACCESS2000 フォームのテキストボックスに入力した文字をレポートのテキストボックスに表示したい。 フォーム: ファイル名は「フォーム1」で、その中に作ったテキストボックス名は「入力データ」 コマンドボタン名は「レポート出力」 レポート: ファイル名は「レポート1」で、その中に作ったテキストボックス名は「出力データ」 フォーム1とレポート1を立ち上げてフォームのテキストボックスにデータを入力した後、 コマンドボタンを押してもレポート1のテキストボックスに入力したデータが表示されません。 レポート1を選択した後にデザインボタンを押し、その後にもう一度立ち上げると、 なぜかデータが書き込まれています。 コマンドボタンを押したのと同時にレポート1にデータが表示されるようにするには どうすれば良いですか? プログラムは以下の様になっております。 (1)クラスオブジェクト下 Private Sub コマンドボタン_Click() Call レポート書き出し() End Sub (2)標準モジュール下 Public Function レポート書き出し() Dim F As Form Dim R As Report Set F = Forms![フォーム1] Set R = Reports![レポート1] R![出力データ] = F![入力データ] End Function
- ベストアンサー
- その他MS Office製品
- アクセス2010 マクロ 印刷ダイアログを表示
アクセス2010でテーブルに連結した取引台帳を入力フォームがあります。 そのフォームで入力後、コマンドボタンで印刷を実行します。 コマンドボタンには、マクロで レポートを開く レポート名 請求書発行レポート ビュー 印刷 フィルター名 なし Where条件式 =[契約NO]=[Forms]![取引台帳入力フォーム]![契約NO] ウィンドウモード 標準 と、開いているフォームのページがレポート印刷されるようにしました。 ですが、モノクロ・カラー印刷と印刷の都度設定したいので、印刷が実行される前に 印刷ダイアログを表示させたいのです。 この方法を、どうぞ教えていただきたくお願いいたします。
- 締切済み
- その他MS Office製品
- アクセスのレポート印刷時にフォームを使ってデータ抽出がうまくいきません
アクセスで簡単な生産管理を行おうと思っています。 生産した商品の数量などが生産した日付別にデータ として入力してあります。レポートのもとになるクエリー を作って、(集計クエリー) レポートを開くときにマクロを使ってフォームを開き、 そこで、商品CDの指定と日付範囲の指定をしています。 最初は、マクロでアクション「レポートを開く」の WHERE条件式で[商品CD]=FROMS![印刷フォーム]![商品CD] でうまく商品CDの指定はできたのですが、日付範囲はどうマクロを 組んでやればよいのかわかりません。WHERE条件式を入力するところは 一箇所しかありませんので、マクロでもうひとつアクション 「レポートを開く」のWHERE条件式で [年月日]between Forms![印刷フォーム]![開始日] and Forms![印刷フォーム]![終了日]と入力しましたがうまくゆきません。 どうすればよいでしょうか?初心者でよくわかりません。
- ベストアンサー
- オフィス系ソフト
お礼
有難うございました。初心者なので良くわかりました。次回またアドバイスよろしくお願いします。