ACCESS VBA コンボボックス 初期表示について。質問します。m(__)m
教えてください。 VBAのフォームロードでコンボボックスに初期表示
させたいのですが、初期表示させいたい内容というのが、テーブルにある例えば列名AAA、列名BBBがあるとして
列名AAAの中で「3」を持っている、列名BBBの名前を初期表示させたいのです。
テーブル名 CCC
AAA...BBB.
...1 ......あ....
...2.......い....
...3.......う....
...4 ......え...
このテーブル「CCC」でいえば3を指定して、「う」をフォームロードでコンボボックスに初期表示させたいのですがどうやればいいのでしょうか?
いまの状態はコンボボックスに「あ・い・う・え」の順番で取っきていて「あ」が初期表示になっています。
コードの書き方がわかりません。教えてください
テーブルCCCはフォームのプロパティのコントロールソースでつなげてあります。
↑という風に質問させていただいて
回答していただいた内容は
//何番目のデータを初期表示したいか決め、FORM LOAD時にその値をLISTINDEXにセットすれば良いのでは?
//即ち
//Private Sub Form_Load()
//Combo1.ListIndex = 2
//End Sub
//のようにプログラムを書けば良いと思います。但し、初期値は”0”なので注意が必要です。
としていただいたのですが、私の質問が説明が足りていなくて改めて質問させていただきます。
テーブルの中身はそのときそのときで入れ替わります。
テーブル名 CCC
AAA...BBB..........................................AAA..BBB
...1 ......あ....左の並びのときもあれば.......3.......か
...2.......い....右のように並びが変わる.......1.......け
...3.......う......時があります。....................2.......さ
...4 ......え................................................4.......な
このときに「3」を指定して、3に対応するBBBの行をフォームロードでコンボボックスに初期表示させたいのですがどうやればいいのでしょうか?
No.1ベストアンサー
- 回答日時:
データを値集合ソースにて接続します
SELECT AAA,BBB FROM CCC
コンボボックスの書式の 列数と列幅を
列数 : 2
列幅 : 0,3
# 後ろの3は プロパティ幅に合わせます
FormのLoadイベントに
dim n as integer
for n = 0 to コンボ0.ListCount -1
if コンボ0.ItemData(n) = 3 then
コンボ0.SetFocus
コンボ0.ListIndex = n
Exit for
end if
next
といった記述で良いと思います
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- SQL Server ACCESSで表が作りたく、そのためのSQL文や設定方法を教えてください。 1 2022/08/15 12:28
- SQL Server ACCESSで3ファイルを結合して、表を作成するやり方を教えて下さい。 17 2022/08/15 20:34
- SQL Server ACCESSで複数テーブルを結合して、リストを作る方法を教えてください。 2 2022/08/12 19:32
- Access(アクセス) Accessにインポートした複数のテーブルを表示させる方法が分かりません。 1 2023/01/30 20:22
- Access(アクセス) Accessの参照フィールドの列がずれてしまいます 1 2023/07/19 15:00
- Access(アクセス) AccessVBAで降順にするテーブル作成クエリを使用して作成したテーブルを削除し同一のテーブル作成 1 2023/01/06 11:17
- JavaScript 指定したパスが現URLに含まれていたら特定要素を削除するJavascriptのコードを教えてください 2 2023/04/27 17:58
- Access(アクセス) Access 登録ボタンからサブフォームの更新 1 2022/07/22 10:23
- Visual Basic(VBA) ユーザーフォーム「frm_基本❶」を立ち上げると新規で入力する行数を右下のNoとして表示しています。 1 2023/03/16 19:02
- Visual Basic(VBA) VBA。複数のChangeイベントをまとめる方法 2 2022/03/31 12:03
このQ&Aを見た人はこんなQ&Aも見ています
-
「環境が人を育てる」って本当?環境によって人格や生き方は本当に変わるのか
環境が人生に与える影響は実際どれほどのものなのか、専門家の田宮由美さんに伺った。
-
フォームを開くときに、コンボボックスの値を選択(アクセスVBA)
Visual Basic(VBA)
-
Accessのコンボボックスのデフォルト表示
その他(データベース)
-
Access コンボボックスの値をクリアしたい。
PowerPoint(パワーポイント)
-
-
4
Access サブフォームでの選択行の取得
その他(データベース)
-
5
MS Accessでフォームの「開く時」と「読込み時」のイベントの違い
Access(アクセス)
-
6
どこにもフォーカスを当てたくない
Access(アクセス)
-
7
ACCESSのコンボボックスで入力した値がTABLEに反映されずに数字がでます
Access(アクセス)
-
8
Accessで、フォームからフォームへ値を引き継ぐやり方
Access(アクセス)
-
9
Access VBAでタブコントロールで選択するタブをしていするには。
Access(アクセス)
-
10
アクセスで追加した項目に全て同じ値を一発で入れたい
Access(アクセス)
-
11
コンボボックスで選択したものをクリアーしたい(アクセス VBA)
Access(アクセス)
-
12
Accessのフォーム上にレコード数とレコード番号の表示
その他(データベース)
-
13
サブフォームに対してGoToRecordするには?
その他(Microsoft Office)
-
14
サブフォームを非表示させる方法を教えて下さい
その他(Microsoft Office)
-
15
Accessでフィールド名を変数(文字列)で・・・
Access(アクセス)
-
16
Access・VBAで、Controlsを使用した条件式(書き方)
Access(アクセス)
-
17
アクセスのコンボボックスの重複をなくすには?
Access(アクセス)
-
18
他のフォームから別のフォームのサブルーチンを呼び出す
Visual Basic(VBA)
-
19
ACCESSで値を代入できないとは?
Visual Basic(VBA)
-
20
コンボボックスにキー入力をさせない方法(ACCESS VBA)
その他(プログラミング・Web制作)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Delphi BDE 複数ユーザによる...
-
ASPとAccessとの接続について
-
並べ替えについて
-
Excelのプルダウンで2列分の情...
-
特定のセルが空白だったら、そ...
-
i=cells(Rows.Count, 1)とi=cel...
-
VBAでセルをクリックする回...
-
TODAY()で設定したセルの日付...
-
VB.NETで DataRow()を利用して...
-
DataGridViewの各セル幅を自由...
-
【Excel VBA】指定行以降をクリ...
-
テキストボックスのvalueとtext...
-
データ数をカウントしたいのですが
-
ListView 項目の選択/選択解除...
-
Excel VBAでいくつか質問があり...
-
【Excel VBA】セルの色によって...
-
ExcelVBAを使って、値...
-
Webクエリで”次の10件”も自動で...
-
配列がとびとびである場合の書き方
-
JAVAでIPアドレス表示さしたい!
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Windows formアプリで データグ...
-
【ACCESS】リレーションを組ん...
-
select文の戻り値を変数に格納...
-
SQL文(テーブル項目名が特殊文...
-
ACCESSテーブルを RecordSet以...
-
DBの読み込み順について
-
外部キーのリレーションが設定...
-
access コンボボックス初期表示...
-
Perlで変数内の日本語が文字コ...
-
VBとACCESSを接続したい
-
テーブルというグローバル変数
-
C# 型名に変数が使えますか?
-
ASP.NET:複数結合テーブルのデ...
-
ASPとAccessとの接続について
-
accessのフォームを使ってテー...
-
Delphi BDE 複数ユーザによる...
-
DataGridViewで編集した内容を...
-
SQLで最新の3件分の統計をとりたい
-
モデルクラスの数は?テーブル...
-
教えてアクセス2007!「在...
おすすめ情報