MsAccessの質問です。

http://www.moug.net/tech/acopr/index.htm

テーブルを一個用意し、商品名フィールドと金額フィールドを設けます。

フォームを用意し、コンボボックスを設けます。

コンボボックスのウィザードで、テーブルの商品名フィールドを表示するようにします。

クエリを用意し、テーブルのそれぞれのフィールドを配置します。

商品名フィールドの抽出条件に、フォームのコンボボックスを当てはめます。

フォームのデータソースをクエリにし、金額のテキストボックスを貼り付けます。

コンボボックスのプロパティを表示し、イベントの変更時を選択し、コードビルダを選択する。VBAエディタが

Private Sub コンボ0_Change()

End Sub

とか表示されているので、

Private Sub コンボ0_Change()

Me.Requery

End Sub

と書き加えて閉じます。

フォームを表示させればOKのはずです。