*

Access VBA フォーム コンボボックスの作成

公開日: : 最終更新日:2014/05/07 フォーム内操作

フォーム コンボボックスの作成

フォーム内にコンボボックス「コンボ3」(非連結)を作成しておきます。
フォームのLoadイベントに以下のプログラムを記述します。

スポンサーリンク

プログラムの例

Private Sub Form_Load()

Dim CN As ADODB.Connection
Dim RS As ADODB.Recordset

Set CN = CurrentProject.Connection
Set RS = New ADODB.Recordset

Me.コンボ3.ColumnCount = 3                                ‘*1
Me.コンボ3.ColumnWidths = “3.0cm;3.0cm;3.0cm”   ‘*2
Me.コンボ3.RowSource = “社員コード;名前;性別”     ‘*3
Me.コンボ3.RowSourceType = “値リスト”                ‘4

RS.Open “T_社員マスタ2013”, CN, adOpenStatic, adLockOptimistic    ‘*5

Do Until RS.EOF       ‘*6

Me.コンボ3.RowSource = Me.コンボ3.RowSource & “;” & RS!社員コード & “;” & RS!名前 & “;” & RS!性別     ‘*7

RS.MoveNext
Loop

RS.Close: Set RS = Nothing
CN.Close: Set CN = Nothing

End Sub

プログラムの説明

*1 コンボボックスの列数を設定します(3列)。

*2 コンボボックスの列幅を設定します(各3cm)。

*3 コンボボックスの列見出しを設定します。

*4 コンボボックスの値集合タイプを設定します。

*5 テーブル「T_社員マスタ2013」を開きます。

*6 Do Loop処理を使用します。

*7 コンボボックスの値集合ソースを設定します(開いたテーブルのデータ)。

↓フォームのデザインビューの状態です。

cbox01

↓フォームを開くとコンボボックスにデータが表示されます。

cbox02

VBAで記述すれば、同じコンボボックスを使用して中身のデータを入れ替えることも出来ます。

スポンサーリンク

ad-pc

ad-pc

関連記事

listbox03

Access VBA リストボックスに値を追加

リストボックスに値を追加 フォーム内に設置した非連結のリストボックス内に値(データ)を追加するプロ

記事を読む

listbox02

Access VBA フォーム リストボックスの作成

フォーム リストボックスの作成 フォーム内にリストボックス「リスト0」(非連結)を作成しておきます

記事を読む

pass01

Access VBA フォームをパスワードで制限

フォームをパスワードで制限 Accessで作成したデータベース使用時に一般ユーザーと管理者レベルで

記事を読む

listbox04

Access VBA リストボックス内の値をテーブルへ追加

リストボックス内の値をテーブルへ追加 フォーム内に設置したリストボックス内のデータをテーブルへ追加

記事を読む

merror01

Access VBA フォーム 未入力エラー回避

フォーム 未入力エラー回避 データ入力フォームなどで、データの未入力エラーを回避するプログラム例で

記事を読む

Message

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です

転職01
初心者がAccess VBAの仕事に就く為には

初心者がAccess VBAを使った仕事に就く 私はSEやITエンジ

sound01
Access VBA 音を鳴らす PlaySound

音を鳴らす PlaySound Access上で効果音を鳴らすプログ

pass01
Access VBA フォームをパスワードで制限

フォームをパスワードで制限 Accessで作成したデータベース使用時

prg01
Access VBA 処理の進行状況を表示するプログレスバー(ProgressBar)

処理の進行状況を表示するプログレスバー Accessで処理に時間のか

excel03
Access VBA AccessのデータをExcel(エクセル)へ変換

AccessのデータをExcel(エクセル)へ変換 Accessで使

→もっと見る

PAGE TOP ↑