カテゴリー別アーカイブ: 見積書

Accessで作る請求書20～入金の管理　未収入金フォームの作成

未収入金集計クエリに得意先名を表示させます。

方法は他にもありますが、今回はDlookup関数を使います。
得意先CDはどのテーブル・クエリにも存在しているので、今回は請求書テーブルの得意先CDを
参照します。（どれを参照しても結果は同じです）
続きを読む →

請求金額と入金額を集計したクエリを使い、次のようにクエリを設定します。

このようにクエリを材料にクエリを作ることができます。

実行結果です。
続きを読む →

未収入金を計算するには、請求金額と入金額の合計を集計し、それを差引します。

以下の入金情報を請求書NO毎にまとめます。

続きを読む →

請求書NOを選択する場合、その前に得意先CDを選択しているので、請求書も
その得意先に対応する請求書のみ表示させた方が、効率よく入力できます。

そのために、請求書一覧を呼び出すときのコードを少し手直しします。

続きを読む →

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

最初に商品フォームにテキストボックスを配置して、

コマンドボタンのVBAコードを変更します。
続きを読む →

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

続きを読む →

最初に請求書の一覧を表示させるフォームを作るので、そのクエリを作成します。

図のようにフィールドの設定をし、「請求一覧」で保存します。」

続きを読む →

見積書一覧フォームから、請求書にまだ転記されていない見積書を抽出できるようにします。
図のようにコマンドボタンを配置します。

続きを読む →

見積書から請求書に転記したら、転記済の見積書とそうでない見積書を区別するために
見積の履歴に請求書NOを表示できるようにします。
続きを読む →

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

Dim a As String
a = MsgBox(“請求書に転記しますか？”, vbOKCancel)
If a = vbCancel Then
Exit Sub
End If
続きを読む →