Accessの販売管理システム － 出庫登録の便利な使い方

Accessの販売管理システム－出庫登録の便利な使い方

販売管理システム（売上仕入在庫管理ソフト）の使い方

出庫登録について

2022.03.28 2022.03.13

Accessの販売管理システム－出庫登録とは
Accessの便利な使い方

Accessの販売管理システム－出庫登録とは

リリ

Accessで作成された販売管理システム（全体仕様）にある「出庫登録」って何？

売上以外の出庫を登録する画面だよ。例えば、商品が棄損して破棄した場合など、在庫数を現象させたい場合に利用する画面だよ。（メインメニューの[在庫]タブにある[出庫調整登録]ボタンから開くことができるよ。）

担当社員は必ず入力が必要だよ。

リリ

明細には、出庫した商品と数量、そして出庫先の倉庫を入力するんだね。

その通りだよ。倉庫は自社設定画面の[倉庫]タブで追加/編集ができるよ。

無料でも利用できる便利な販売管理システム（売上仕入在庫管理ソフト）は下記から取得できます。

無料売上管理ソフトフリーカスタマイズ対応型販売管理

標準利用無料で、納品書や請求書を簡単に作成できる売上管理ソフト（カスタマイズ対応型販売管理ソフト）を開発し提供しています。一括メール送信機能やRFM分析機能など、便利な機能もたくさんついています。カスタマイズ対応型販売管理ソフトなので、ソース公開版もあります。

Accessの便利な使い方

リリ

明細には[行複製]ボタンがあるけれど、どのようなプログラムで複製しているの？

DAOのRecordsSetオブジェクトを利用して、新規レコードに、複製元のレコードと同じ項目に同じ値を代入して、IDと順番だけ書き換えているんだ。

Function CopyRecord(TempID As Variant)
    Dim Rs As DAO.Recordset     '複製元のRecordSetオブジェクトを宣言
    Dim RsNew As DAO.Recordset  '複製先のRecordSetオブジェクトを宣言
    Dim i As Integer
    
On Error Resume Next

    Set Rs = CurrentDb.OpenRecordset("SELECT * FROM T_出庫明細 WHERE 出庫明細ID=" & TempID, dbOpenDynaset)  '複製元の明細をRecordSetオブジェクトに代入
    Set RsNew = CurrentDb.OpenRecordset("T_出庫明細", dbOpenDynaset)    '複製先（新規レコード）を代入するRecordSetオブジェクトを用意
    
    If Not (Rs.EOF And Rs.BOF) Then
        Rs.MoveFirst                                '複製元の行を明示的に指定
        
        RsNew.AddNew                                '複製先の新規レコードの追加
            For i = 1 To Rs.Fields.Count - 1        'テーブルのフィールド数だけループ（一番左は0からスタート）
                RsNew(i) = Rs(i)                    '新規レコードの対応するフィールドに値を代入
            Next i
            RsNew!順番 = Nz(DMax("順番", "T_出庫明細")) + 1 '最大の順番を代入
        RsNew.Update                                '複製先の新規レコードの保存
    End If
    
    Rs.Close: Set Rs = Nothing              '複製元のRecordSetオブジェクトを閉じる
    RsNew.Close: Set RsNew = Nothing        '複製先のRecordSetオブジェクトを閉じる
End Function