チェックボタンを利用した印刷の問題と解決法
- MS Accessでチェックボタンを利用した印刷の問題が発生しています。A氏のチェックボタンの動作が正しくなく、表示がうまく行われません。解決法を教えてください。
- 印刷フォームにはX支店とY支店のチェックボタンがあり、各氏の印刷を選択できます。しかし、A氏のチェックボタンを外すと、その列が正しく表示されません。どのように設定すれば解決できるでしょうか？
- A氏のチェックボタンをはずすと、その列の表示が正しくされません。現在の設定では、A氏のX支店とY支店の表示がうまく行われません。解決法をお教えください。
- ベストアンサー
チェックボタンを利用した印刷をしたい。
チェックボタンを利用した印刷をしたい。 MS Accessでの質問です。 宜しくお願いします。 (印刷フォーム) X支店 Y支店 A氏 □ □ B氏 □ □ C氏 □ □ ・ ・ ・ ・ ・ ・ ・ ・ ・ [印刷]←コマンドボタン チェックボタンを利用した印刷ですが、コードは Private Sub コマンド14_Click() Me.Requery If X支店.Value = -1 Then DoCmd.OpenReport "R_個人データ1", acViewPreview End If If Y支店.Value = -1 Then DoCmd.OpenReport "R_個人データ2", acViewPreview End If End Sub としてあります。レポートはX支店用とY支店用の個人データ(書式が違う)の2種類があります。 印刷のボタンでそれぞれのレポートの印刷をしたいのです。 ただ問題がありまして、A氏のチェックボタンをはずとその列がうまく表示出きません。 (印刷フォーム) X支店 Y支店 A氏 ■ ■ B氏 ■ □ C氏 □ ■ ・ ・ ・ ・ ・ ・ ・ ・ ・ [印刷]←コマンドボタン この状態だと、A氏(X支店,Y支店)、B氏(X支店)、C支店(Y支店)の表示がされますが、 (印刷フォーム) X支店 Y支店 A氏 □ ■ B氏 ■ □ C氏 □ ■ ・ ・ ・ ・ ・ ・ ・ ・ ・ [印刷]←コマンドボタン この状態だと、A氏(Y支店)、C支店(Y支店)の表示がされ、B氏のX支店は表示されない。 (印刷フォーム) X支店 Y支店 A氏 □ □ B氏 ■ □ C氏 □ ■ ・ ・ ・ ・ ・ ・ ・ ・ ・ [印刷]←コマンドボタン この状態だと、何も表示されません。 良き解決法を教えて頂けないでしょうか？
- midori-makibao
- お礼率68% (99/145)
- その他MS Office製品
- 回答数1
- ありがとう数1
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
なかなかレスがつかないようですが、少し質問を させてください。 >If X支店.Value = -1 Then および、 >If Y支店.Value = -1 Then で設定しているX支店、Y支店はチェックボックスの 名前だと思いますが、これはA氏に関するチェック ボックスの名前でしょうか。 また、他のチェックすボックスには どのような名前がついているのでしょうか。
関連するQ&A
- エクセルでチェックボタンを使って
エクセルで、フォームにあるチェックボタンを使います。で、チェックの入ったものだけについて合計を出したいのですが・・・ 例を書きます。 Ａ Ｂ Ｃ １ 品名 チェック欄 数量 ２ あ ○ １０ ３ い ２０ ４ う ○ ３０ ５ え ４０ ６ お ○ ５０ ７ ９０ ここであ，う，おにチェックが入っているので １０＋３０＋５０＝９０の計算をさせたいのですが。 チェックのあるものだけの合計をＣ７に表示させたいのです。 チェックボタンでＩＦ関数を使うにはどうしたらよいのでしょうか？
- 締切済み
- オフィス系ソフト
- ＡＣＣＥＳＳ チェックしたものを 印刷したい
ＡＣＣＥＳＳ初心者です テーブルでデータ型をＹＥＳ/ＮＯ型にし、様々な項目とともに、フォームで表示しています。 フォーム上に印刷ボタンコマンドを作成し、チェックしたもののみ印刷したいのですが、よく分かりません。 コマンドボタンを右クリックして、イベントのビルドを開けて・・・そこからどのように入力すればいいのでしょうか。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- access2003フォームの指定表示のみ印刷プレビューしたいのですが・・・？
Access2003初心者なので詳しく教えていただきたいのです。 フォームで詳細に「請求月」とあり、コンボボックスでフィルターを かける様にしています。 （請求月（H20.5月と書式設定）している） フォーム上では、ちゃんとフィルターがかかり 指定データだけが詳細に表記しているのです。 フォーム上に「印刷ボタン」を作りイベントでクリックしたら フォームの情報のみレポートプレビューしたいのですが レポートに移動するとすべて表示されるのです。 指定したレコードだけレポートに表示したいのですが どうしたらよいのでしょうか？ Private Sub BTN_印刷_Click() DoCmd.OpenReport "RPT_●●請求済", acViewPreview End Sub 上記ステートメントまではわかるのですが・・・？ 申し訳ないのです、よい方法を教えていただけませんか。 説明不足かもしれませんがよろしくお願いいたします。
- 締切済み
- オフィス系ソフト
- Access フォームで条件抽出したものを印刷プレビューしたい
条件抽出したフォームを印刷プレビューしたいのですが、プレビューすると 全データが表示されてしまいます。 出来ればフォームのままプレビューしたいのですが、この場合は、 別にレポートを作成しないとダメでしょうか？ 1．メインフォームにサブフォームを組み込んであります。 2．サブフォームはクエリに関連させています。 3．コマンドボタン[印刷]で印刷プレビューを表示させたい。 メインフォーム：商品 サブフォーム：取引商品 クエリ：商品リスト -----コマンド［印刷］のイベント----- Private Sub cmdPrint_Click() '商品取引記録を印刷プレビューで開く DoCmd.OpenForm "商品", acViewPreview, Me.Filter End Sub
- ベストアンサー
- オフィス系ソフト
- Ａｃｃｅｓｓ2003レポートの連続印刷方法
以下のような仕様にて、Access2003で取引案件管理データベースをつくっています。 一案件ごとにA,B,Cと三種類のレポートがあり、それを順番に印刷する機能を追加しようとしているのですが、方法がわからず、アドバイスをお願い致します。 *仕様* ・ユーザはアクセスオープン時に、自身のIDとパスワードを入力 ・認証が通ると、総合メニュー画面が起動される。 総合メニューには「入力フォーム起動ボタン」と「レポート印刷ボタン」がある ・DB内部でIDとユーザの所属部署の紐付けを行っており、入力フォームを起動すると、自分の所属部署の担当案件だけが表示される （フォームのコードで、グループごとにフィルタをかけている） ・レポートは案件ごとにA,B,Cと三枚に分かれている ・入力フォーム内にも、印刷ボタンがあり、それを押すと表示されている案件のレポートがA、B、Cの順番で出力される。 コードは以下の通り DoCmd.OpenReport "レポートA", acViewNormal, WhereCondition:="[案件名] ='" & Me.案件名 & "'" DoCmd.OpenReport "レポートB", acViewNormal, WhereCondition:="[案件名] ='" & Me.案件名 & "'" DoCmd.OpenReport "レポートC", acViewNormal, WhereCondition:="[案件名] ='" & Me.案件名 & "'" *今回つくりたい機能* 総合メニューの「レポート印刷ボタン」の中身を実装したいと考えています。 これを押すと、案件ID「001」のレポートA→B→C→案件ID「002」のレポートA→B→C→案件ID「003」・・というように、案件ごとにレポートA,B,Cがセット（連続）で印刷できるようにしたいのです。 上の構文と、レコード送りを組み合わせればいいのではないかと予想はついているのですが…緊急対応で、自分でコードを試行錯誤している時間がないもので、コードを上のような機能を実現できるコードを教えて頂けますと幸いです。宜しくお願い致します。
- ベストアンサー
- オフィス系ソフト
- ボタンが押されたときの反応 Basic
Active Basicでゲームプログラムを書いています。 ボタンを押したときの反応で、上下左右に画像を動かしたいのですが、 ボタンを押すと、いったん静止してから、連打処理（？）のように動きます。 やりたいことは、ボタンを押すとすぐに上下左右に一定間隔で画像を動かすことです。 Sub MainWnd_KeyDown(KeyCode As Long, flags As Long) If KeyCode=37 Then If x<=3 Then Exit Sub End If MyBmpInfo=2 x=x-5 Else If KeyCode=38 Then If y<=0 Then Exit Sub End If MyBmpInfo=1 y=y-5 Else If KeyCode=39 Then If x>=600 Then Exit Sub End If MyBmpInfo=3 x=x+5 Else If KeyCode=40 Then If y>=400 Then Exit Sub End If y=y+5 End If InvalidateRect(hMainWnd,ByVal 0,TRUE) End Sub と書きました。 すみませんが、どなたかご存知の方がいらっしゃいましたら、ご教授ください。 お願いします。
- ベストアンサー
- その他（プログラミング・開発）
- Accessのレポート印刷について教えて下さい。
Accessのフォームでフィルタを使い絞り込んだデータをレポートで 印刷する場合について教えて下さい。 DoCmd.OpenReport "レポート名", acViewPreview, , Me.Filter では、フォームとレポートが同じレコードソースだと使えるという事ですが、 フォームとレポートのレコードソースが別の場合はどのようにすると フィルタで絞り込んだ条件のレポートを印刷できますか？ 教えて下さい。よろしくお願いします。
- 締切済み
- その他MS Office製品
- オプションボタンにチェックが入れば・・
いつもお世話になっております。 今回もご指導のほど宜しくお願い致します。 Excel2002を使っておりますが 例えば Ａ１に フォームのオプションボタンを挿入し、ボタンにチェックが入れば Ｂ１に“ｃ”と表示させるには どのような方法がありますでしょうか・・ 説明が悪いようでしたら ご指摘下さいませ。 宜しくお願い致します。
- ベストアンサー
- オフィス系ソフト
- ボタンをクリックしたときへこませたい
Access2000のデータベースの見た目を改善したいのですが、自作のボタンを(自分でラベルを作り「クリック時のイベントプロージャ」で実行させる)クリックしたときに、見た目上へこませたいのですが、(ボタンウィザードで作られるような、クリックするとへこんで、離すとVBAが実行される）どのようなVBAを追加したらよいでしょうか？ ボタンウィザードで作ると背景の色が変えられないので、上記のようにしています。もしへこますのが難しいようなら、クリックしたときに背景色が変わるような設定でも良いかと思っていますが如何なものでしょうか。 ちなみに自作の抽出ボタンの一例です。 *抽出した結果を印刷するボタン[cmb抽出データを 毛筆書体で横書印刷プレビュー] ～～～～～～～～～～～～～～～～～～～～～～～～～～ Private Sub cmb抽出データを毛筆書体で横書印刷プレビュー_Click() If Me.FilterOn = True Then DoCmd.OpenReport "R葉書HGP祥南行書体横書",_ acViewPreview, , Me.Filter End If End Sub ～～～～～～～～～～～～～～～～～～～～～～～～～～ 汎用性があり、どのボタンにも追加できるようなVBAコードがあればればよいのですが...よろしくお願い致します。 データベースはAccess2000、OSはWindows98SEです。
- ベストアンサー
- その他(データベース)
- Access コマンドボタンからの印刷
Access2003を使用し、フォームにコマンドボタンを追加して、そのボタンからレポートの印刷を行なおうとしています。 印刷ダイアログボックスを表示し、直前で印刷のキャンセルもできるようにと下記のように記述しました。 Private Sub 印刷1_Click() On Error GoTo Err_印刷1_Click '[印刷]ダイアログボックスを表示した後、印刷 DoCmd.SelectObject acReport, "レポート1", True DoCmd.RunCommand acCmdPrint DoCmd.OpenReport "レポート1", acViewNormal '正常終了処理 Exit_印刷1_Click: Exit Sub 'エラー発生時 Err_印刷1_Click: Select Case Err.Number Case 2501 Exit Sub Case Else End Select End Sub しかし、これを実行し、印刷すると、なぜか2部印刷されます。 どうやら2回処理が実行されているようです。 また、試しに印刷ダイアログボックスで通常使用しないプリンタを選択してみたら、選択したプリンタから1部、通常使用のプリンタから1部出力されてしまいました。 初心者なもので原因がわからず困惑しております。 どなたか解決方法のご教授お願い致します。
- 締切済み
- オフィス系ソフト
