リストボックステーブルの列名を表示

Question

特定のテーブルで使用可能なすべての列（フィールド）のリストを表示するリストボックスを取得しようとしています。以下のコードではこれを実現していますが、msgboxを使用して、必要のない各フィールドを表示しています。

Dim rst As DAO.Recordset 
Dim fld As DAO.Field 
Set rst = CurrentDb.OpenRecordset("YourTableName") 
For Each fld In rst.Fields 
    MsgBox fld.Name 
Next fld 
rst.Close 
Set rst = Nothing 
Set fld = Nothing 

基本的に私は、コンボやリストボックスは、特定のテーブルからすべてのフィールドを表示したい - これは可能ですか？

Answer 1

あなたは自分のためにそれを難し​​くしています。リストボックスのプロパティ]ペインで

は、設定：

RowSource:  YourTableName 
RowSourceType: Field List