ACCESS2000でのActiveXのコンボボックスの使い方について

ACCESS2000で、今まで使用していたコンボボックスをActiveXコントロール（Microsoft Forms2.0）のコンボボックスに変更しようとしています。今までは値集合ソースでクエリを使って「商品名」「商品コード」を表示させ、選択後に商品コードを取得して、他で利用しています。
これをActiveXコントロールでは、どのように行ったらよいのでしょう？
アドバイスをどうか、よろしくお願いします。

No.2 ベストアンサー 回答者： noname#22222 回答日時： 2006/03/10 15:39

AxtiveX コントロールの ComboBox を利用した場合、＜値集合ソース＞が利用出来ないことが難点です。

ですから、ListBox を配置して利用する手もあります。

Private Sub Form_Load()
　　Me.ListBox.Requery
　　SetComboBox Me, "ComboBox", "ListBox"
End Sub

Public Function SetComboBox(ByVal frm As Form, _
　　　　　　　　　　　　　　ByVal cmbBox As String, _
　　　　　　　　　　　　　　ByVal lstBox As String) As Boolean
　　Dim I As Integer
　　Dim N As Integer
　　
　　N = frm.Controls(lstBox).ListCount
　　frm.Controls(cmbBox).Clear
　　For I = 1 To N
　　　　frm.Controls(cmbBox).AddItem frm.Controls(lstBox).ItemData(I - 1)
　　Next I
End Function

これで、事実上、従来通りに＜値集合ソース＞を利用してAxtiveX コントロールの ComboBox の値を設定することが可能です。

※参考になれば幸いです。

この回答へのお礼

まさにズバリとも言うべき回答を有り難うございます。とても助かりました。感謝しております。

お礼日時：2006/03/10 17:29

No.3 回答者： o_chi_chi 回答日時： 2006/03/10 15:42

配列に格納してListプロパティで設定するという

方法もあります。
---
Dim data(1,1) As String
data(0,0) = ""
data(0,1) = ""
data(1,0) = "商品名"
data(1,1) = "商品コード"
With Me.CBBOX
.ColumnCount = 2
.ListWidth = 200
.ColumnWidths = "100pt;100pt"
.List = data()
.ListIndex = 0
End With

この回答へのお礼

こんなやり方もあるんですね。とても参考になりました。別件で悩んでいたことで、使えそうな感じで助かりました。有り難うございました。

お礼日時：2006/03/10 17:35

No.1 回答者： CHRONOS_0 回答日時： 2006/03/10 14:26

AddItemメソッド使います

これだけでは情報不足でしょうから
fm20.chmを探してみてください

Microsoft Forms2.0のヘルプファイルです

この回答へのお礼

ご回答ありがとうございました。参考になりました。
ヘルプを探してみます。

お礼日時：2006/03/10 17:26