フォーム上にレポートのプレビューボタンをつけました。
複数のスタッフがデータ入力をしていて、自分が現在入力したデータをプリン
トアウトしたいと思っています。
テーブルに『プレビュー』というチェック項目を作り、そこにチェックがはい
っているデータをレポートに表示させるようにしていて、プレビューボタンを
クリックした時のイベントを以下のように設定していますが、『コマンドまた
はアクション'レコードの保存'は無効です。』というエラー表示が出てしまい
ます。
どのように書き換えればよいかご存知の方がいたらお教えください。
また、他に『現在自分がフォームを使って入力しているデータのみをプリント
する』良い方法をご存知の方がいらっしゃったらお教えください。
Private Sub レポートのプレビュー_Click()
On Error GoTo Err_レポートのプレビュー_Click
Me!プレビュー = True
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Dim stDocName As String
stDocName = ChrW(12463) & ChrW(12524) & ChrW(12540) & ChrW(12512) & ChrW(20966) & ChrW(29702) & ChrW(31080) & ChrW(40) & ChrW(12503) & ChrW(12524) & ChrW(12499) & ChrW(12517) & ChrW(12540) & ChrW(41)
DoCmd.OpenReport stDocName, acPreview
Exit_レポートのプレビュー_Click:
Me!プレビュー = False
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Exit Sub
Err_レポートのプレビュー_Click:
MsgBox Err.Description
Resume Exit_レポートのプレビュー_Click
End Sub
No.3ベストアンサー
- 回答日時:
>フォーム上で自分が今開いているデータだけプレビューさせる方法はないものでしょうか
簡単にやるにはフォーム上にある主キーなど一意のキーでOpenReportのWhereConditionに抽出条件を設定すれば出来ます。
例えばIDというキーがありそのレコードだけレポートに表示する場合は
IDの値がテキストの場合は
DoCmd.OpenReport stDocName, acPreview, , ,"ID ='" & Me!ID & "'"
IDの値が数値の場合は
DoCmd.OpenReport stDocName, acPreview, , ,"ID =" & Me!ID
とすればフォームに表示されているレコードだけプレビューすることが出来ます。(IDの部分は該当するフィールド名とコントロール名に変更してください。)
または
もっと簡単ですがボタンのイベントはそのままでレポートに抽出条件を入れてしまう。
クレーム処理票(プレビュー)がフォーム上のレコードしか表示しないのであればプロパティのレコードソースでSQLステートメントを開きキーになるフィールドの抽出条件に
=Forms!フォーム名!コントロール名
とすれば出来ます。
ありがとうございます!お勧め(?)の『もっと簡単な方法』で無事解決しました^^!
今まで悩んでいたのがうそのように完璧に解決です!!
No.2
- 回答日時:
下記の記述だけで行けませんか。
Private Sub レポートのプレビュー_Click()
On Error GoTo Err_レポートのプレビュー_Click
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Dim stDocName As String
stDocName = "クレーム処理票(プレビュー)"
DoCmd.OpenReport stDocName, acPreview
Exit_レポートのプレビュー_Click:
Exit Sub
Err_レポートのプレビュー_Click:
MsgBox Err.Description
Resume Exit_レポートのプレビュー_Click
End Sub
ちなみにstDocNameにセットされるのが クレーム処理票(プレビュー) となっていますが()付きでレポート名にしているのですか?
この回答への補足
ご回答ありがとうございます。
でも、うまくいきませんでした・・・。
プレビューボタンを押したら、データ全てが表示されて数百ページのプレビューになってしまいました・・・。
フォーム上で自分が今開いているデータだけプレビューさせる方法はないものでしょうか・・・?
それで今は以下のような方法でトライしています。
テーブル『クレーム処理票』に『プレビュー』項目(Yes/No型)を作り、フォーム『クレーム処理票』にも表示させる。
レポート『クレーム処理票(プレビュー)』の表示(抽出)条件を、『プレビュー』項目が『True』のものだけ表示させるように設定。
スタッフはプレビューしたい時、『プレビュー』項目にチェックを入れて、保存ボタンを押した後プレビューさせる。
これだと面倒なので、プレビューボタンを押した時に自動で上記作業をしてくれるコードを組みたいと思っています・・・。
No.1
- 回答日時:
複数のスタッフが使用しているということは、アクセスのデータがサーバー上にあるということですか。
アクセスで共有する場合、テーブルのみサーバー上に置き、クライアントにはクエリー・レポートなどを置きます。
参考URL:http://www.mahoutsukaino.com/ac/ac2000/ac2000/ga …
この回答への補足
ご丁寧にURL付で教えてくださってありがとうございますm(_ _)m
見てみたのですが、あまり理解できませんでした^^;
下のほうの『メニューバー[ファイル]→[外部データの取り込み]→[テーブルのリンク]』のところでしょうか?
この作業は無事できました。ありがとうございます!
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルのVBAでダブルクリックでチェックを入れたあと 1 2022/10/26 20:30
- Excel(エクセル) 【マクロ】フォルダAからダBへファイルを、ファイルの更新日時の条件で、1つづつ移動するには? 3 2022/08/25 09:56
- Excel(エクセル) 【VBAファイル移動】2つのマクロを順に実行。1つ目のマクロが実行不可⇒2つ目が実行不可となる件 2 2022/07/29 12:17
- Excel(エクセル) 【VBA】環境文字を含んだVBAのフォルダパスの書き方について 1 2022/07/28 11:47
- Visual Basic(VBA) 【マクロ】フォルダにファイルが1つも無い時に、ファイルがありませんとメッセージを表示する 4 2022/08/28 08:48
- Excel(エクセル) 【VBA】ファイルパスに半角スペースが入ると、VBAが動かない 5 2022/08/04 20:52
- Visual Basic(VBA) Accessフォームで全レコードを指定のExcelのセルへ転送し印刷する方法について 2 2022/09/08 18:23
- Access(アクセス) access レポート 請求書について 2 2022/07/04 22:52
- Excel(エクセル) エクセルシートのPDFでの保存 2 2022/09/06 13:05
- Excel(エクセル) 2つのVBAを一緒にしたら機能しなくなりました(エクセル) 7 2022/06/02 12:41
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
アクセスのレポートで同ページ...
-
Accessのレポート機能でソート...
-
エクセルをACCESSのレポ...
-
Accessレポートのチェックボッ...
-
禁則処理の方法がわかりません。
-
Accessのレポートの2段組した...
-
アクセスのレポートをマクロでE...
-
複数のクエリーを一枚のレポー...
-
Accessレポートで質問です
-
アクセスでレポートの使いまわ...
-
ACCESSグラフ
-
医療専門用語がスラスラ出てく...
-
Accessのレポートで再読み込み
-
accessのフィールドの数
-
ビシソワーズはなぜ冷たいのか?
-
MS Access でのテーブル名等の...
-
Accessでフォームの検索結果を...
-
Excel ピボットレポート セル...
-
アクセス レポート デザイン...
-
PDF変換後、線が表示されない
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルをACCESSのレポ...
-
Accessレポートのチェックボッ...
-
アクセスのレポートで同ページ...
-
Accessのレポートで印刷プレビ...
-
Accessのレポート機能でソート...
-
複数のクエリーを一枚のレポー...
-
Accessのレポートで再読み込み
-
アクセスのレポートをマクロでE...
-
Accessのレポートの2段組した...
-
Accessでグループフッターの非表示
-
ACCESSでフォーム入力→レポート...
-
Access2007サブレポートの絞り...
-
アクセスのレポート起動時のウ...
-
accessのフィールドの数
-
禁則処理の方法がわかりません。
-
Accessレポートで質問です
-
Access2000のレポートで目次(...
-
AccessVBAでのカラー印刷モード
-
Accessでフォームの検索結果を...
-
AccessレポートでのVBAを使用し...
おすすめ情報