Accessで作る請求書8~見積書フォームから請求書フォームへ

Pocket

見積書フォームと請求書フォームを作ったので、見積書から請求書ができるよに
します。
最初に見積書メインフォームの「請求書」のコマンドボタンのVBAコードを追加します。
Private Sub コマンド5_Click()の次に上記のVBAコードを追加します。

Dim a As String
a = MsgBox(“請求書に転記しますか?”, vbOKCancel)
If a = vbCancel Then
Exit Sub
End If

これは、見積書から請求書にデータを移すときに、コマンドボタンクリック→即転記
では少し心配なので、一応確認画面を表示させ、Cancelのときは、プログラムを
終了させます。
aは文字列(String)として定義して、aにVBOKかVBCancelのどちらかの値を代入します。
もしVBCancelならExit Subでコードを途中で終わらせます。
2608011

そして最後のEnd Sub の前に次のコードを追加して請求書フォームを表示します。
DoCmd.OpenForm “請求書メイン”, , , “請求書NO=” & DMax(“請求書NO”, “請求書”) & “”
この前も解説しましたが、オートナンバーは必ず一つ大きい数字を取っていくので、
請求書NOで一番大きい数字の請求書=今回新規で追加した請求書NO
となります。
実行結果です。
2608012
ADOでデータを移しただけでは分かりにくいですが、フォームで表示させると
データがしっかり移せたことがわかります。

今日は日帰りで福島出張。
お客さんが郡山で会社を作ったので、今後の経理処理方法を説明してきました。
そこでいきなり弥生給与の操作方法を教えてくれと言われました。
前いた事務所でインストラクターを取らせてもらったので、弥生給与は今でも
お手の物。まさに芸は身を助ける、ですね。

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