Access VBAでコンボボックスに複数列で値を設定する

Question

AccessでVBAでコンボボックスに複数列で値を設定しようとしていますが、
うまくいきません。どのようにすればよいでしょうか。
よろしくお願いします。

コンボボックスA.ColumnCount = 2
コンボボックスA.AddItem 1
コンボボックスA.List(コンボボックスA.ListCount - 1, 1) = "a"

３行目が「コンパイル エラー:メソッドまたはデータ メンバーが見つかりません。」となります。

Answer 1

エクセルのユーザーフォームのコンボボックス（リストボックス）とアクセスのコンボボックス（リストボックス）は別物ですので、エクセルのコードは参考になりません。

複数列の値はセミコロンで区切ってAddItemすればOKです。

Private Sub コマンド1_Click()
    With Me.リスト2
       .ColumnCount = 2
       .RowSourceType = "Value List"
       .AddItem "1;a"
    End With
End Sub

Accessの場合、通常はコンボボックスやリストボックスの「値集合ソース」にテーブルを設定する場合が多いです。その方が管理しやすいので。

Comments

[mnbwqz]

ありがとうございます。
ExcelとAccessのVBAは違う部分があるのですね。
無事動作しました。

[hatena19]

Accessだと、例えば、商品マスターとか社員マスターとか、マスターテーブルを作成しますよね。
それをコンボボックスやリストボックスとリンクさせてリストに表示することが多いです。
VBAで一つずつAddItemすることはめったにありません。
私自身、いろいろAccessのシステムを作成してきましたが、AddItemを使う機会はなかったです。