Accessで作る請求書16~入金の管理 コマンドボタンの切り替え③

Pocket

それ以外にも、コマンドボタンで操作が被る箇所があるので、修正します。
見積書と請求書とも、サブフォームから商品フォームを開きますが、まだその設定をしていません。

最初に商品フォームにテキストボックスを配置して、
2608251
コマンドボタンのVBAコードを変更します。

Private Sub コマンド9_Click()
If Me!テキスト10 = 1 Then
Forms!請求書メイン.請求明細!商品CD = Me!商品CD
Forms!請求書メイン.請求明細!単価 = Me!単価
DoCmd.Close
Exit Sub
End If

Forms!見積書メイン.見積明細!商品CD = Me!商品CD
Forms!見積書メイン.見積明細!単価 = Me!単価
DoCmd.Close
End Sub

そして、請求書フォームから商品フォームを開いた際にテキスト10に1を代入するようにします。
Private Sub コマンド13_Click()
DoCmd.OpenForm “商品”
Forms!商品!テキスト10 = 1
End Sub

これで商品フォームのコマンドボタンについても解決しました。

あと、入金伝票から請求一覧を開いたときに請求書NOをフォームから選択できるようにします。
コマンドボタンを一つ配置して、
2608252
次のVBAコードを入力します。
Private Sub コマンド16_Click()
DoCmd.OpenForm “請求一覧”
Forms!請求一覧!テキスト12 = 1
End Sub
テキスト12は新たに配置したテキストボックスの名前です。

次に請求一覧フォームのコマンドボタンのVBAコードを変更します。
2608253

Private Sub コマンド11_Click()
If Me!テキスト12 = 1 Then
Forms!入金伝票!請求書NO = Me!請求書NO
DoCmd.Close
Exit Sub
End If

DoCmd.OpenForm “請求書メイン”, , , “請求書NO=” & Me!請求書NO & “”
End Sub

これで現在考えられるコマンドボタンの操作のダブりは解消しました。

昨日一昨日は家族で下呂温泉に行ってきました。
刺激も優しく、上品な温泉でした。
また行ってみたいです。

本日も最後までお読みいただきありがとうございました。