AccessでVBAを使って入力フォームの値を更新したい

Question

Accessで入力フォームを作成しました。Excelのような表にレコードを入力し、確定ボタンをクリックすると、レコードがテーブルに登録される作りです。つまり、表にレコードを入力した段階では、まだ、テーブルに値は登録されません。

イメージ

商品コード	商品名	数量
A001	りんご
A002	青りんご
B001	ぶどう

上記のような表にレコードを入力するイメージです。

実装したいのは、もう一つボタンを設定し、ボタンが押されると商品コードがAから始まるレコードの数量を「10」に設定するという処理です。

Private Sub suryo_input_btn_Click()
    Dim rst As Recordset
    Dim sfrm As SubForm
    Dim record_num As Long
    Dim i As Long
    Dim item_cd As String
   
    Set sfrm = Me!商品入力サブフォーム
    Set rst = sfrm.Form.Recordset
    
    'サブフォームのレコード数を格納
    record_num = rst.RecordCount
    
    'レコードがない場合は終了
    If record_num = 0 Then
       Exit Sub
    End If
    
    '先頭レコードに移動
    rst.MoveFirst

    For i = 1 To record_num
        item_cd = rst.Fields("商品コード")
        If item_cd Like "A*" Then
            rst.Fields("数量").Value = 10
            rst.Update      
        End If
        rst.MoveNext
    Next i
End Sub

上記コードで商品コードは取得できるのですが、レコード更新部分であるrst.Fields("数量").Value = 10 rst.UpdateでUpdate または CancelUpdate メソッドには、対応する Addnew または Edit メソッドが必要です。とエラーが出力されます。

どのようにすれば、入力フォームの値を修正できるでしょうか？

テーブルを更新するサンプルは見つかるのですが、テーブルを更新したいのではなく、画面に表示されている入力フォームの値を変えたいということです。

ご教授のほど、よろしくお願いいたします。

Comments

[DreamTheater]

商品入力サブフォームに対してテーブルの関連付けはされてますか？

[Office2013]

はい。テーブルの関連付けは行っております。

[sazi]

> 表にレコードを入力した段階では、まだ、テーブルに値は登録されません。
> テーブルの関連付けは行っております。

テーブルの関連付け（連結フォーム）の状態であれば、項目内容を変更すると更新されますけど、現状どうやって、
「 表にレコードを入力した段階では、まだ、テーブルに値は登録されません。」の状態を実現しているのですか？

[Office2013]

すみません、Accessファイル自体は他の人が作ったもので、勘違いをしておりました。商品コード自体は手入力ではなく、コンボボックスになっていまして、商品マスタから値を引っ張ってきております。ですので、テーブルの関連付けがされていると思っていたのですが、確定ボタンを押さないと、テーブルに値が登録されないので、テーブルの関連付けはされていないというのが正しいと思います。不勉強で申し訳ありません。

[sazi]

じゃあ、確定ボタンの前にrecordsetを更新しても問題ないのでは？
エラーについては、メッセージどおりにeditメソッドが無いからです。

[kuma_kuma_]

質問者様
現在この意味と
> 実装したいのは、もう一つボタンを設定し、ボタンが押されると
>商品コードがAから始まるレコードの数量を「10」に設定するという処理です。

この意味が
>　テーブルを更新したいのではなく、
>画面に表示されている入力フォームの値を変えたいということです。

反している状態なんですね
「テーブルを更新しないとフォーム上の値(表示)も更新されない。
でもテーブルは更新したくない」...
回答がしたくてもできないのです。

せめてその辺りを修正追記お願いできますか？

Answer 1

DAO.Recordsetで値を変更する前にEditを呼べば出ない。

rst.Edit
rst.Fields("数量").Value = 10

ただやりたいことに対してのコードという風には見えないので
もう少し色々詰める必要があるかなと思います。

Answer 2

単にフォームを更新するだけなら　rst.Update　は不要です。

Comments

[Office2013]

早速のご回答、ありがとうございます！ご回答を受けて調べてみたところ、フォームを更新するだけですと、updateは必要なさそうです。しかし、rst.Updateを削除しても、まだ同じエラーが出る状況です。エラーの原因として考えられることがありましたら、教えていただけないでしょうか？よろしくお願いいたします。