ACCESS 条件に応じて、レコードを書き換える方法

Question

Accessにて、下記の様なデータベースへ登録するフォームを作成しています。

在庫数以外は、データベースへ連結しているのですが、
在庫数だけは、非連結にしてあります。

【やりたいこと】
登録ボタンを押すと、
データベースの在庫数フィールドに対して、
《入庫》であれば、[データベースの在庫数]+[数量]
《出庫》であれば、[データベースの在庫数]-[数量]
と、レコードが更新されるようにしたいです。
下記のコードを試してみましが、下記の様なエラーメッセージが出てきました。
何が原因になりますでしょうか？

Private Sub btn_inout_1_Click()

    Dim Rst As DAO.Recordset
    Set Rst = CurrentDb.OpenRecordset("PartsList", dbOpenTable)

    If MetxtIn_out = "入庫" Then
       Rst!Stock = Rst! + MetxtIn_out
    Else
       Rst!Stock = Rst! - MetxtIn_out
    End If
    
    Me.BeforeUpdate = ""
    DoCmd.RunCommand acCmdSaveRecord
    Me.BeforeUpdate = "[イベント プロシージャ]"
    MsgBox "登録が完了しました"
    
End Sub

エラーメッセージ

ご教授よろしくお願いします。

Answer 1

まずは入門書で基本から学習しましょう。
テーブルの設計、フォームの使い方、レポートの使い方などの基本を習得しましょう。

連結フォームはテーブルと連結している、つまり、テーブルは既に開いています。OpenRecordsetする必要はありません。

やりたいことは、現在表示されているレコード(カレントレコード)の在庫数(Stockフィールド)を更新したいということですよね。
カレントレコードのフィールドは、Me.フィールド名で参照できます。
ご希望のことは下記のコードで可能です。

Private Sub btn_inout_1_Click()

    If Me.In_out = "入庫" Then
       Me.Stock = Me.Stock + Me.非連結テキストボックス名
    Else
        Me.Stock = Me.Stock - Me.非連結テキストボックス名
    End If

    DoCmd.RunCommand acCmdSaveRecord
    MsgBox "登録が完了しました"

End Sub

蛇足のアドバイス

在庫管理なら、テーブル設計としては、
入出庫履歴テーブルを作成して、入庫、出庫の履歴を逐一保存しておくという設計にすべきだと思います。
現在在庫数は、入出庫履歴テーブルより集計クエリとして計算で求めるようにするのがセオリーです。

現状の在庫数を直接加減する設計だと、入力間違いをしたとき（例えば、数量を一桁間違えた、入庫と出庫を間違えた、、、などいうことはよくありますよね。）、間違いの原因を特定して元に戻すことが困難になります。

Comments

[YISS]

やりたかったことは、まさにこれでした。
　>現在表示されているレコード(カレントレコード)の在庫数(Stockフィールド)を更新したい

教えて頂いたコードで在庫数の差し引きができましたが、
アドバイス頂いた様に、集計クエリとして計算した方がよいと考え直し、そちらの方法で無事完成することができました。

クエリで集計した方がよいのか、テーブルで在庫数管理した方がよいのか、迷走しながら作成していたので、大変助かりました。ありがとうございました。

Answer 2

一体そのコードは何を元に作成されましたか。
前にも言いましたが、ここは教育サイトではありませんよ。
別な言い方をすれば、適当に作って丸投げしているように見えます。

質問のコードは、レコードセットを更新する基本にすらなっていません。
※レコードセットが何なのかを理解されていません。
「access recordset 更新」あたりで検索すれば参考にするものが見つかります。

Rst!Stock = Rst! + MetxtIn_out

上記は全然ダメです。
少なくとも以下だし、updateメッソドなども無いと結果が反映すらされません。

Rst!Stock = Rst!Stock + MetxtIn_out

※別にレコードセットじゃなくても、updateするだけの方が簡単です。

Comments

[YISS]

一応、自分なりに色々検索しつつ、以前使用したコードなんかも参考にして、
コードを作成したのですが、見当違いなものを投稿してしまったようで申し訳ありません。
また、調べてみます。

[sazi]

なにもやっていないとは思ってませんよ。
ただ、分からなくなる内容が、基礎学習を行っていないレベルなので、先ずは学習をと申し上げています。
誰でも右か左かも分からない状態というのはありますけど、過去に幾つか質問をされていて、その変遷をみて、その経験が生かされていないと感じます。
分からない状態で、コードを貰っても、結局コピペする状態になって身に付かない事にしかなりません。