フィールド名をコンボボックスのテーブルに

テーブル「tb1」にある「フィールド名」を「tb2」のデータに移し、さらにコンボボックスで使おうという方法です。下記の関数を標準モジュールとして設定し、マクロで実行させています。 DAOを使っているので動かない場合は注意書きを読んでください。

Public Function fldName() As Variant Dim dbs As Database, tdf1 As TableDef, tdf2 As TableDef Dim fld As Field Dim strFldName As String Dim rs1 As Recordset Set dbs = CurrentDb Set tdf1 = dbs.TableDefs!tb1 Set tdf2 = dbs.TableDefs!tb2 Set rs1 = dbs.OpenRecordset("tb2") For Each fld In tdf1.Fields strFldName = fld.name rs1.AddNew rs1(0) = strFldName rs1.Update Next fld rs1.Close Set dbs = Nothing End Function '動かない場合は、ツールの参照設定でMicrosoft DAO3.6 ObjectsLibrary 'を最優先順位の方に上げてください。