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

Pocket

得意先フォームのコマンドボタンのVBAコードを次のように変更します。
2608221

Private Sub コマンド7_Click()
If Me!テキスト8 = 1 Then
Forms!入金伝票!得意先CD = Me!得意先CD
DoCmd.Close
Exit Sub
End If

Forms!見積書メイン!得意先CD = Me!得意先CD
DoCmd.Close
End Sub

変更点は、If~End Ifの部分を追加しました。

つまりは、テキストボックスの値が1のときは入金伝票に得意先CDを代入し
Exit Sub でコードを終わらせます。

見積書テーブルから得意先フォームを開いたときは、テキストボックス8は空白
なので、そのまま見積書フォームに得意先CDを代入します。

実行結果です。
2608222

2608223

最後に、テキストボックスは見えない方がいいので、テキストボックスの
可視プロパティを「いいえ」に変更します。
2608224

今日は来年の確定申告期の広告代理店選定の会議でした。
広告代理店のプレゼンと期待してきましたが、正直イマイチ・・・
勉強会のプレゼンの方が、数段上でした。というか練習してきたのかな。
まあ、額がそんなに大きくないからそんなに気合い入っていなかった
のかもしれませんが、残念です。

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