質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
85.50%
VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

Access

Accessはマイクロソフトによるリレーショナルデータベース管理システムです。オブジェクト指向のアプリケーション作成に対応しており、テーブルや編集をはじめ、クエリ生成、入力フォーム作成、レポート作成など一通りの機能を備えています。

Q&A

解決済

1回答

8050閲覧

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

Yoshikun_0945

総合スコア224

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

Access

Accessはマイクロソフトによるリレーショナルデータベース管理システムです。オブジェクト指向のアプリケーション作成に対応しており、テーブルや編集をはじめ、クエリ生成、入力フォーム作成、レポート作成など一通りの機能を備えています。

0グッド

0クリップ

投稿2019/09/30 04:54

編集2019/09/30 04:57

前提・実現したいこと

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

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

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

VBA

1実行時エラー'2115' 2"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/ツールのバージョンなど)

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

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

sazi

2019/09/30 05:16

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

回答1

0

自己解決

VBA

1商品名.value =

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

投稿2019/09/30 05:38

Yoshikun_0945

総合スコア224

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

sazi

2019/09/30 07:14

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

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.50%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問