No.1
- 回答日時:
Text1.Text = Combo1.Text
ただ、これだと[1]等も入ってしまいます。left,rightを使って
商品名のみを表示させれば良いのではないでしょうか ?
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.3
- 回答日時:
こんにちは
コンボボックスにはIDのみが表示されるのでしょうか?
そうだとすれば
商品名を配列で持っておいて
IDをインデックスに商品名をとってくればよいのではないでしょうか?
ただしIDが跳んでいれば無駄な領域を使用します。
又、コンボ内の並びが変わらないのであれば選択した項目のインデックスでも
同じ様に配列から取れます。
この回答への補足
言葉がたらなかったようで申し訳ありません。
コンボボックスにはIDのみが表示されます。
IDと商品名をそれぞれ配列としてテーブルで持っており
今コンボボックスでIDを選択しlostfocus時にテキストボックスに商品名を表示させたいと思っています。
IDをインデックスに商品名をとってくるというのはどういう方法になるか教えていただければ助かります。
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.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
度重なる回答ありがとうございます。
上記の方法でなんとかかんとか表示させることはできるようになりました。
後はまた試行錯誤してみます。
お探しの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も見ています
-
風水の観点で選ぶ観葉植物とは?置き場所や上げたい運気ごとの注意点を紹介!
観葉植物で運気をアップするコツを、風水デザイン1級建築士の福島昌彦さんに伺った。
-
VB.NET)コンボボックスの連動について
Visual Basic(VBA)
-
VB.NETで DataRow()を利用して、値からコードを取得したい。
Visual Basic(VBA)
-
【VB】タブ切り替え時のイベント
Visual Basic(VBA)
-
-
4
VB.NETでコンボボックスの1行目を空白にしたい
Visual Basic(VBA)
-
5
【VB】コンボボックスにデータベースから取り出した値を入れたい
Visual Basic(VBA)
-
6
VB.NETで他のプロジェクトで作成したフォームを使う方法
Visual Basic(VBA)
-
7
コンボボックスの文字によるif文の作成
Visual Basic(VBA)
-
8
String"から型'Double'への変換は無効です。 とエラーが出ます。
Visual Basic(VBA)
-
9
DataGridViewに空白がある場合はエラーにしたい
Visual Basic(VBA)
-
10
VBA 複数列コンボボックス 値の取り出し
Visual Basic(VBA)
-
11
VBA コンボボックスとテキストボックスを連結させたい
Visual Basic(VBA)
-
12
VB.netでメソッドからコントロールを取得
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBとアクセスでSQL文に変...
-
Excel複数シートをaccessへ一括...
-
DataGridの中身をDataSetにテー...
-
手動または分散トランザクショ...
-
WORD VBA プログラム修正をお願...
-
MDBテーブルへの追加変更を教え...
-
HTMLのテーブルの行数が多くな...
-
C# OleDbDataAdapter.Fillメソ...
-
SELECT文 複数のテーブル参照...
-
★クリスタルレポートの元になる...
-
SQL同時実行違反
-
[C#] DataGridViewでコンボボッ...
-
ロケールに対応するストリング...
-
SQLを発行とは?クエリの作成と...
-
.net 複数の主キーを設定する方法
-
AccessVBAコミットとロールバッ...
-
DataGridViewに複数テーブルの...
-
VisualBasic6.0 と SQLServer ...
-
『列名 '担当者CD' があいま...
-
アクセステーブル、リンクとロ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
WORD VBA プログラム修正をお願...
-
VBとアクセスでSQL文に変...
-
Accessで別mdbのテーブルをコピー
-
『列名 '担当者CD' があいま...
-
ExcelVBAからAccessMDB内のテー...
-
他のMDBのテーブルに追加したい
-
手動または分散トランザクショ...
-
SQLを発行とは?クエリの作成と...
-
DataGridViewに複数テーブルの...
-
CSVファイルのエクスポートでソ...
-
AccessからExcelへエクスポート...
-
エクセルのテーブルを解除する...
-
Excel複数シートをaccessへ一括...
-
HTMLのテーブルの行数が多くな...
-
COBOLのINVALID KEYが理解でき...
-
アクセステーブル、リンクとロ...
-
ACCESSのテーブル名をリストに...
-
ACCESS2010 実行時エラー 2766
-
DataGridの中身をDataSetにテー...
-
【ADO】「Execute」を使うと...
おすすめ情報