Access VBA テキストボックスのエラー

Question

前提・実現したいこと

在庫システムを作成しています。
商品コード（テキストボックス）に値が入力されたら、商品名（テキストボックス）に入力された商品コードと一致する商品名を表示させたいです。

発生している問題・エラーメッセージ

繰り返し処理にて、入力された商品コードに一致する商品名を検索し、商品名（テキストボックス）に表示させようとしたところ、商品名は表示されているようですが、エラーメッセージが表示されてしまいました。
どこが原因でどのように修正すればよろしいでしょうか？

実行時エラー'2115'
"BeforeUpdate/更新前処理"プロパティまたはこのフィールドの"ValidationRule/入力規則"プロパティに設定したマクロまたは関数のために、このフィールドのデータを保存できません。

該当のソースコード

Private Sub 用度品コード_AfterUpdate()
  Dim s As String: Dim i As Integer: i = 0
  '用度品コードが入力された場合
  If Me.用度品コード.Text <> "" Then
    Me.商品コード.SetFocus
    s = Me.商品コード.Text
    Do While s <> Stock(i, 0)
      i = i + 1
    Loop
    Me.商品名.SetFocus
    Me.商品名.Text = CStr(Stock(i, 1))
End Sub

補足情報（FW/ツールのバージョンなど）

すべてのテキストボックスにおいて更新前処理や、入力規則の設定は致しておりません。

Comments

[sazi]

エラーメッセージにある、「更新前処理」や「入力規則」の内容も質問に追記して下さい。

Answer 1

商品名.value = 

に変更することで解決しました。ありがとうございました。

Comments

[sazi]

商品名のコントロールソースに
=DlookUP("商品名","商品マスタ","商品コード='" & 商品コード & "'")
のように連結指定するだけで、質問のコードは不要になります。
Accessの機能を生かすと、楽ができますよ。