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も見ています
-
風水の観点で選ぶ観葉植物とは?置き場所や上げたい運気ごとの注意点を紹介!
観葉植物で運気をアップするコツを、風水デザイン1級建築士の福島昌彦さんに伺った。
-
フォームを開くときに、コンボボックスの値を選択(アクセスVBA)
Visual Basic(VBA)
-
Accessのコンボボックスのデフォルト表示
その他(データベース)
-
MS Accessでフォームの「開く時」と「読込み時」のイベントの違い
Access(アクセス)
-
-
4
Access コンボボックスの値をクリアしたい。
PowerPoint(パワーポイント)
-
5
Access サブフォームでの選択行の取得
その他(データベース)
-
6
入力した値をコンボボックスにすぐに反映させる方法
Excel(エクセル)
-
7
ACCESSのコンボボックスで入力した値がTABLEに反映されずに数字がでます
Access(アクセス)
-
8
コンボボックスで選択したものをクリアーしたい(アクセス VBA)
Access(アクセス)
-
9
Accessで、フォームからフォームへ値を引き継ぐやり方
Access(アクセス)
-
10
Accessのフォーム上にレコード数とレコード番号の表示
その他(データベース)
-
11
Access VBAでタブコントロールで選択するタブをしていするには。
Access(アクセス)
-
12
どこにもフォーカスを当てたくない
Access(アクセス)
-
13
AccessのRefresh・Requery・Repaintの違い
Access(アクセス)
-
14
Accessでフィールド名を変数(文字列)で・・・
Access(アクセス)
-
15
Accessチェックボックス 一度で複数のチェックを入力
Access(アクセス)
-
16
アクセスで追加した項目に全て同じ値を一発で入れたい
Access(アクセス)
-
17
Access フォームのテキストボックスに半角英字のみで入力する設定は
Access(アクセス)
-
18
Accessのレポート上のテキストボックス値を設定したい
その他(データベース)
-
19
Accessで別テーブルの値をフォームに表示したい
その他(データベース)
-
20
サブフォームを非表示させる方法を教えて下さい
その他(Microsoft Office)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【ACCESS】リレーションを組ん...
-
ACCESSテーブルを RecordSet以...
-
Windows formアプリで データグ...
-
SQL文(テーブル項目名が特殊文...
-
select文の戻り値を変数に格納...
-
ASPとAccessとの接続について
-
テーブルというグローバル変数
-
DataGridViewで編集した内容を...
-
DBの読み込み順について
-
VBとACCESSを接続したい
-
Perlで変数内の日本語が文字コ...
-
外部キーのリレーションが設定...
-
金額の割り振り方について(A...
-
【Excel VBA】指定行以降をクリ...
-
ExcelVBAを使って、値...
-
count(*)で取得した値をJAVAの...
-
特定のセルが空白だったら、そ...
-
VBAでActiveDirectoryのユーザ...
-
i=cells(Rows.Count, 1)とi=cel...
-
”戻り値”が変化したときに、マ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
SQL文(テーブル項目名が特殊文...
-
select文の戻り値を変数に格納...
-
【ACCESS】リレーションを組ん...
-
ACCESSテーブルを RecordSet以...
-
VBとACCESSを接続したい
-
テーブルというグローバル変数
-
DBの読み込み順について
-
access コンボボックス初期表示...
-
accessのフォームを使ってテー...
-
DataGridViewで編集した内容を...
-
外部キーのリレーションが設定...
-
HTML&CSS Javascriptによる動...
-
ASP(VBScript)で自動連番
-
Perlで変数内の日本語が文字コ...
-
EF(コードファースト)のコン...
-
ASP.NET:複数結合テーブルのデ...
-
フラッシュの画像を合わせるパ...
-
テーブルへのデータ投入について。
-
教えてアクセス2007!「在...
-
ExcelVBAを使って、値...
おすすめ情報