※上記の広告は60日以上更新のないWIKIに表示されています。更新することで広告が下部へ移動します。

Option Compare Database
Option Explicit

Dim Combo1 as new clsDb
Dim strSQL as string

Private Sub Form_Load()

strSQL="select * From tblコンボボックステスト" where cmbID='002' order by cmbOrder asc"
If Combo1.ExecSelect(strSQL)=True then
Set Me.ComboBox1.Recordset=Combo1.GetRS
End if

End Sub
コンボボックスの設定
  • 値集合タイプ:テーブル/クエリ
  • 列数:任意
  • 列幅:2列の例)1cm,1cm