No.5ベストアンサー
- 回答日時:
データコンボ cmbData
テキスト txtData
として、cmbDataがレコードとリンクしているものと仮定しています。
1.cmbData.BoundColumnが商品名、cmbData.DataFieldがID とする
2.Clickイベントに、以下を設定する
Private Sub cmbData_Click(Area As Integer)
txtData.Text = cmbData.BoundText
End Sub
3.商品名がテキストに表示されます。
P.S
フォーカス取得時も、処理を入れておくと起動時も商品名が表示されるよ。
Private Sub cmbData_GotFocus()
txtData.Text = cmbData.BoundText
End Sub
度重なる回答ありがとうございます。
上記の方法でなんとかかんとか表示させることはできるようになりました。
後はまた試行錯誤してみます。
No.4
- 回答日時:
#2のものです。
テーブルに格納されているとすると、以下のように格納されているのでしょうか。
IDテーブル(0)="1"
IDテーブル(1)="2"
IDテーブル(2)="3"
商品テーブル(0)="みかん"
商品テーブル(1)="ばなな"
商品テーブル(2)="りんご"
もし、そうなら、コンボボックスのStyleプロパティがドロップダウンリストになっているものとすると、ListIndexが現在表示されているコンボのインデックス番号を返すので、
Private Sub cmbData_LostFocus()
txtData.text = 商品テーブル(cmbData.ListIndex)
End Sub
で表示されます。
この回答への補足
ありがとうございます。
テーブルは、一つの「商品」というテーブルにフィールドとして、「ID」と「商品名」が入っています。
また、コンボボックスでなくデータコンボボックスを用いてつくっており、ListIndexなどのプロパティがないのですが、コンボボックでないと無理なのでしょうか?
No.3
- 回答日時:
こんにちは
コンボボックスにはIDのみが表示されるのでしょうか?
そうだとすれば
商品名を配列で持っておいて
IDをインデックスに商品名をとってくればよいのではないでしょうか?
ただしIDが跳んでいれば無駄な領域を使用します。
又、コンボ内の並びが変わらないのであれば選択した項目のインデックスでも
同じ様に配列から取れます。
この回答への補足
言葉がたらなかったようで申し訳ありません。
コンボボックスにはIDのみが表示されます。
IDと商品名をそれぞれ配列としてテーブルで持っており
今コンボボックスでIDを選択しlostfocus時にテキストボックスに商品名を表示させたいと思っています。
IDをインデックスに商品名をとってくるというのはどういう方法になるか教えていただければ助かります。
No.2
- 回答日時:
コンボをcmbData、テキストをtxtDataとしています。
AddItemなどで、コンボに
1 みかん
2 ばなな
3 りんご
と設定し、cmbDataのClickメソッドにて、
txtData.Text = Mid(cmbData.List(cmbData.ListIndex), 3)
cmbData.Text = Left(cmbData.List(cmbData.ListIndex), 1)
とすれば、コンボに数字が表示され、テキストに文字が表示されるようになりますよ。
No.1
- 回答日時:
Text1.Text = Combo1.Text
ただ、これだと[1]等も入ってしまいます。left,rightを使って
商品名のみを表示させれば良いのではないでしょうか ?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Access(アクセス) Accessの参照フィールドの列がずれてしまいます 1 2023/07/19 15:00
- SQL Server DBのテーブルの設計ができず困っています。 2 2023/06/29 16:43
- Visual Basic(VBA) ユーザーフォームの書き出しで追加のご相談 ユーザーフォームの値をシートに書き出す際、コードが表示され 2 2022/08/05 10:58
- Access(アクセス) Accessにインポートした複数のテーブルを表示させる方法が分かりません。 1 2023/01/30 20:22
- Access(アクセス) Dlookupにエラーがでてしまう 1 2022/10/31 14:35
- Visual Basic(VBA) EXCEL VBA データベースの内容をユーザーフォームに表示したい。 5 2023/02/14 11:40
- Visual Basic(VBA) ExcelVBAでユーザーフォームでテキストボックスなどからセルに連続して入力するコーディングの際の 2 2022/06/29 22:51
- Access(アクセス) Access DTPickerの初期表示月を変えたい 1 2022/08/02 08:55
- Visual Basic(VBA) Excel VBA 複数選択したリストボックスからテキストボックスに転記したいです。 3 2023/03/19 18:31
- Visual Basic(VBA) VBA ComboBoxについて 2 2022/10/21 12:15
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
VB.NETで DataRow()を利用して、値からコードを取得したい。
Visual Basic(VBA)
-
【VB】コンボボックスにデータベースから取り出した値を入れたい
Visual Basic(VBA)
-
VB.NET)コンボボックスの連動について
Visual Basic(VBA)
-
-
4
VB.NETでコンボボックスの1行目を空白にしたい
Visual Basic(VBA)
-
5
DataGridViewに空白がある場合はエラーにしたい
Visual Basic(VBA)
-
6
String"から型'Double'への変換は無効です。 とエラーが出ます。
Visual Basic(VBA)
-
7
VB2005 TextBoxに何も入力しない場合のエラー
Visual Basic(VBA)
-
8
VBA コンボボックスとテキストボックスを連結させたい
Visual Basic(VBA)
-
9
テキストボックスを空白にする方法
Visual Basic(VBA)
-
10
データセットのレコード更新がしたい
Visual Basic(VBA)
-
11
VBでグローバル変数を宣言するには
Visual Basic(VBA)
-
12
【VB】タブ切り替え時のイベント
Visual Basic(VBA)
-
13
VB.NETでアクティブなformを知りたい
Visual Basic(VBA)
-
14
DataGridViewの、選択されている行を取り出したい
Visual Basic(VBA)
-
15
VB.NET2003 テキストボックスに半角英数字以外入力させない
Visual Basic(VBA)
-
16
<VB.NET>INSERT文でDBにデータを入れたい
Visual Basic(VBA)
-
17
VB.net、テキストボックス入力制限、全角のみ
Visual Basic(VBA)
-
18
イベントにAddHandlerされているか判断
Visual Basic(VBA)
-
19
VB.netでメソッドからコントロールを取得
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
『列名 '担当者CD' があいま...
-
VBとアクセスでSQL文に変...
-
AccessからExcelへエクスポート...
-
VB.NETからAccess内のデータベ...
-
MDBテーブルへの追加変更を教え...
-
Accessで別mdbのテーブルをコピー
-
他のMDBのテーブルに追加したい
-
Access2007でアプリケーション...
-
リストボックスに複数列表示し...
-
VBでコンボボックスとテキスト...
-
SQLを発行とは?クエリの作成と...
-
エクセルのテーブルを解除する...
-
[C#] DataGridViewでコンボボッ...
-
ワークテーブルの作成について
-
ADO.NETのOleDbAdapterに設定す...
-
ダイナセットタイプのレコード...
-
ACCESS クエリで 昇(または降...
-
コミットとは何でしょうか?
-
手動または分散トランザクショ...
-
access2007 「#Deleted」
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBとアクセスでSQL文に変...
-
Accessで別mdbのテーブルをコピー
-
『列名 '担当者CD' があいま...
-
CSVファイルのエクスポートでソ...
-
AccessからExcelへエクスポート...
-
エクセルのテーブルを解除する...
-
手動または分散トランザクショ...
-
他のMDBのテーブルに追加したい
-
HTMLのテーブルの行数が多くな...
-
SQLを発行とは?クエリの作成と...
-
WORD VBA プログラム修正をお願...
-
ACCESS2010 実行時エラー 2766
-
Excel複数シートをaccessへ一括...
-
ACCESSのテーブル名をリストに...
-
アクセステーブル、リンクとロ...
-
.net 複数の主キーを設定する方法
-
MDBテーブルへの追加変更を教え...
-
Accessで宛名ラベルに同一宛先...
-
DataGridの中身をDataSetにテー...
-
COBOLのINVALID KEYが理解でき...
おすすめ情報