こんにちは。

質問

こんにちは。
Access2000で見積書を作成しています。

通常は「別途消費税を御請求致します。」と記載しています。
ところが一社の出張費の場合のみ請求しないので今はその都度Accessをコピーして(なんとなく恐いのでコピーしています)データベース？を開き、「別途消費税を御請求致します。」の色を白くして印刷しています。
今後他の社員がすることも考えられるのでスムーズな方法を探しています。
一つの会社の出張費の場合のみの為に、「別途消費税を御請求致します。」と記載するこどうかを得意先テーブルに記憶させるのは大変なので、「別途消費税を御請求致します。」の色を白くする動作をワンクリック化できれば一番かなと考えています。
見積書メニューフォームに「消費税請求なし」コマンドボタンとかを作成してクリック時のイベントとかで字を白くする命令が出せたら・・・と取り組みましたが、コードからが進みません・・・

ご協力宜しくお願い致します！

回答No.1

nicotinism · ベストアンサー

>一つの会社の出張費の場合のみの為に、・・中略・・記憶させるのは大変なので

他の人が見積もりを作成して誤って消費税を請求してしまう可能性がある。
VBAやマクロでの対応は可能ですが今後の変更が起こった場合に
ご質問者以外には編集が出来ないと困ったことになりかねない。

以上2点を考えるとテーブルに保存して置いた方が今後のために宜しいかと
おもいますけどね。

それでも・・・というなら
そちらのフォームやレポートの内容がさっぱり分かりませんので
参考程度ですが
フォームにラベルを1個追加
キャプションを「別途消費税を御請求致します。」
ラベル名を、ラベル0 とします。
コマンドボタンを上記の隣あたりに追加
コマンドボタン名を、コマンド0 とします。
で、コマンド0 のクリック時イベントを下記のように

Private Sub コマンド1_Click()
Me!ラベル0.Visible = Not Me!ラベル0.Visible
End Sub

これでフォーム上ではコマンド0 をクリックする都度
ラベル0 が出たり消えたりするはずです。

つぎにレポート
レポートヘッダーになるかと思いますが（そちらの状況がまったく不明なので適当に考えました）
フォームと同様に、ラベル0 を追加してキャプションは「別途消費税を御請求致します。」
レポートのオープン時イベントに
Private Sub Report_Open(Cancel As Integer)
On Error GoTo err1
Me!ラベル0.Visible = Forms!フォーム1!ラベル0.Visible
Exit Sub
err1:
Select Case Err.Number
Case 2450
MsgBox "元となるフォームが開かれていません"
End Select
Cancel = True
End Sub

と記述
これでお望みのことが出来るかと思います。

追伸
フォームとレポートを二つ用意して
一方は一般社用、もう一方は消費税を請求しない会社用とする手もあり？

※質問タイトルは質問の内容が分かりやすいものにしましょう。

お礼

他の社員が「別途消費税を御請求致します。」という文章を消し忘れることはありえるので、
テーブルに記憶させた方が良い様な気もしてきました・・・

でも、追伸の方法がとても簡単なのでこ以下の様に進めてみます！
レポートを非課税用に用意して、
フォームのコマンドボタンも非課税用に用意しました。

題名が分かりにくくて申し訳ないです・・・
他の質問にも答えて下さったら嬉しいです！