ms-access - コンボボックスからのテキストボックスの自動入力

Question

アクセスで新しい作業指示を入力するためのフォームを作成しました。フォームのテキストボックスに、コンボボックスの選択内容を反映させたいと考えています。

コンボボックスには機器のシリアル番号が一覧表示されます。シリアル番号を選択したら、CompanyName、PurchDate、LastMaintenanceDate、および ModelNo を入力します。

dlookup の例を見て、会社名のテキストボックスで次の式を試しました。

=DLookUp("[会社名]","SerialNoInfo","[SerialNoInfo].SerialNo= " & Str([Combo341].[テキスト]))

私が何をしているかに応じて、ボックスにエラー #Type または #Error が表示され続けます。更新時にイベントのコードを作成しようとしても、何も起こりません。何が間違っているのかわかりません。

score 0 · Accepted Answer

代わりに次を使用できます。

Private Sub COMBOBOX_Change()

me.TEXTBOXNAME.Text = me.COMBOBOX.Column(X)

End Sub

ここで、TEXTBOXNAME は入力するテキストボックスです。COMBOBOX はデータを取得するコンボボックスで、X はデータを含む列の数です (0 から開始)。

ms-access - コンボ ボックスからのテキスト ボックスの自動入力