• ベストアンサー

AcceccのVBAで教えて下さい

Accessのマクロ、VBAを独学で勉強している初心者です。 下記について教えて下さい。 レポートの印刷時に印刷するデータがないとき、レポートのイベントプロパティの「空データ時」に”印刷データがありません”とメッセージを出し、イベントのキャンセルのマクロを組み込みました。 このマクロを実行の後、「OpenReportアクションの実行はキャンセルされました。・・・・」のメッセージが出ます。 このメッセージを出さない様にするにはどうしたらよいでしょうか? よろしくお願いします。

質問者が選んだベストアンサー

  • ベストアンサー
  • sh-
  • ベストアンサー率29% (13/44)
回答No.1

こちらを参考にしてみてはいかがでしょうか。

参考URL:
http://www.accessclub.jp/bbs5/0008/vba1976.html
yjposhiete
質問者

お礼

早速回答をありがとうございました。 おかげさまで解決しました。 ありがとうございました。

関連するQ&A

  • レポートで空データ時に印刷しない

    教えてください。 VBA「Private Sub コマンドボタン_Click()」で 「Docmd.OpenReport "レポート名"」の1文があるのですが、レポートプロパティで空データの時は印刷しないようなマクロ「全マクロの中止」を組んであります。 確かに、空データ時は中止がかかり印刷はされないのですが、実行時エラー2001 直前の操作はキャンセルされました。とエラーメッセージが帰ってきます。デバックをクリックすると、「Docmd.OpenReport "レポート名"」の一文が黄色くなっています。 どうしたら、綺麗に処理を終了する事ができるのでしょうか?教えてください。

  • access イベントのキャンセル

    Accessの初心者です。よろしくお願いします。 レポートの印刷時に印刷データがない時、レポートのイベントの空データ時にマクロでイベントのキャンセルを設定しました。これでデータのない時の印刷は中止できますが その時「Open Reportの実行はキャンセルされました ・・・・」のメッセージが出てしまいます。 このメッセージを出さない様にする設定を教えて下さい。 よろしくお願いします。

  • VBA「レポートを開く、なおかつ印刷はしない」

    アクセス2007です。 レポート1を作って保存し閉じました。 標準モジュールに Sub test() DoCmd.OpenReport "レポート1", acViewNormal End Sub と記載して実行したら、レポートが印刷されてしまいます。 私は開きたいだけなので、 VBAで「レポートを開く、なおかつ印刷はしない」と言うコードををしえてください。 ご回答よろしくお願いします。

  • アクセスについてです(レポート)

    フォームからレポートを開く時に、 VBAでコントロールにコントロールソースを指定したいのですが どうやらエラーになってしまうようです。 フォームからではなく手動でレポートを開く場合は エラーにはなりません。 レポートのレコードソースは、T_testを指定していて、 その上にあるコントロールは非連結で指定したコントロールソースをvbaで入れたいです。 なので、レポートのLoadイベントで Private Sub Report_Load() Me.テキスト0.ControlSource = "8月" End Sub として、手動でレポートを開く分には問題ないのですが このコードのまま、フォームから Private Sub コマンド0_Click() DoCmd.OpenReport "レポート1", acViewPreview End Sub とすると、Me.テキスト0.ControlSource = "8月"で、 実行時エラー2191 印刷プレビュー時または印刷を開始した後は コントロールソースプロパティを設定できません。 のエラーが発生します。 フォームから Private Sub コマンド0_Click() DoCmd.OpenReport "レポート1", acViewDesign End Sub とすると、レポートのLoadイベントが発生しませんでした。 ご回答よろしくお願いします。

  • SQLステートメントで。

    Accessのイベントプロシージャで、SQLステートメントをかいて、実行させています。 一番最後の、 DoCmd.OpenReport "検索結果レポート", acNormal, , WhereCond というところなのですが、ここを上に書いたように、 「OpenReport」としてしまうと、レポートが印刷されてしまいます。 これをプレビューの状態にするには何と入力すればいいのでしょうか?

  • アクセス2002 VBA

    フォームを保存せずに閉じたいのですが、 当該フォームの「閉じる時」プロパティーにイベントプロシージャを設定し、 Private Sub Form_Close() DoCmd.Close acForm, "フォーム1", acSaveNo End Sub と記述しました。  ところが、実行すると 「Close アクションの実行はキャンセルされました。」とエラーになってしまいました。  間違いの指摘をお願いします。

  • 結合されたセルの移動 VBA

    「結合されたセルの一部を変更することはできません」と言うメッセージイベントでVBAを実行するにはどうしたらよいでしょうか? 結合されたセルあるいは複数の結合されたセルを選んで移動する場合、移動先が自分のセルに重なると、「結合されたセルの一部を変更することはできません」と言うメッセージが現れます。 これを回避するには一旦何も無い離れたところに移動し、それから再び目的の場所に移動します。 私の技能では以下のようなマクロになると思います。 最初に元の結合セルを選び、場所を覚えるマクロを実行しする。 次に移動先を指定し、「一旦何も無い離れたところに移動し、それから再び目的の場所に移動」するマクロを実行します。 これをワン・アクションで、「結合されたセルの一部を変更することはできません」と言うメッセージが出るタイミングで実行するにはどうしたらよいでしょうか。 よろしくお願い申し上げます。

  • マイクロソフトのVBAのエラーメッセージに関して教えていただければあり

    マイクロソフトのVBAのエラーメッセージに関して教えていただければありがたいです。 「実行時エラー1004 pointクラスのData Labelプロパティを取得できません。」と表示されます。 グラフを作る際に、データ範囲の設定等をマクロでしているのですが、このエラーの意味がよくわかりません。 自分で作ったマクロではなく、作られた方も不明な状況です。ある程度意味がわかったら、試行錯誤でなんとかいけそうな感じなので、意味をおしえていただけますか?

  • VBAではなく、マクロでのフィルターのかけ方を教え

    accessのVBAではなく、マクロでのフィルターのかけ方を教えてください。 テーブル1には フィールド名:moji データ:テキスト型 文字列1 文字列2 ・ ・ ・ というデータがあります。 テーブル1を基にしたフォームには 画像のように、 コントロールソースにmojiを紐付けたテキストボックスを配置しました。 その際、マクロを実行して「文字列1」を抽出するフィルタの実行をしたいのですが マクロの作り方がわかりません。 マクロのアクションは「フィルタの実行」にしたのですが フィルタ名には何を入れればいいのでしょうか? とりあえずtestと入れました。 次に、Where条件式には [Forms]![フォーム1]![moji]="文字列1" といれました。 この時点ではエラーにならないのですが フォームを開いて、マクロ1を実行すると 「このウィンドウでは"ApplyFilter/フィルタの実行"アクションを実行できません。」 となってしまいます。 マクロの作り方を教えてください。

  • [ACCESS]マクロを中止した際のエラー回避

    お知恵を拝借したいです。 フォームに、コマンドボタンを作成しています。 クリックすると、「クエリA」が開いてくるマクロを登録していますが、クエリAはパラメータを聞いてきます。 パラメータ入力画面を[キャンセル]した場合、「アクションの実行エラー」が出てしまうのですが、VBAを使わずに、このエラーを回避する事は可能でしょうか? [クエリを開く]アクションの後に、[イベントのキャンセル]や[マクロの中止]を設定しても、無意味でした。 やはり、VBAを使わないと無理な処理なのでしょうか。

専門家に質問してみよう