ACCESSVBAでの (ID:82516)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 動きとしてはこんなのでいいのかな？ フォームのプロパティの 削除の許可、追加の許可をいいえにする。 コンボボックスのにして フォームでコンボボックスのプロパティの 名前をcmb_syuruiにする。 （名前は何でもいいですがコードで使っているので、変えた場合はそちらも変えて下さい。） 値集合タイプをテーブル/クエリにする。 値集合ソースを SELECT テーブル1.種類 FROM テーブル1 GROUP BY テーブル1.種類; にする。 商品名テキストボックスの コントロールソースを商品名にする。 値段テキストボックスの コントロールソースを値段にする。 商品名テキストボックス、値段テキストボックスのプロパティの 編集ロックをはいにする。 フォームのコード Private Sub cmb_syurui_Click() Dim strSql As String strSql = "SELECT * FROM テーブル1" strSql = strSql & " WHERE 種類 = '" & Me.cmb_syurui.Text & "'" Me.RecordSource = strSql End Sub Private Sub Form_Load() Me.cmb_syurui.SetFocus Me.cmb_syurui.ListIndex = 0 End Sub これでどうでしょう？