静的な値とテーブルのレコードをVBAのコンボボックスにリストアイテムとして追加する方法

Question

クエリからリストアイテムを取得するコンボボックスがあります。しかし、これらの項目に加えて、私はすべての場合にそこにある静的なオプションが必要です。

私は素朴な方法でこれをやってみました：

Private Sub Form_Open(Cancel As Integer) 
    Set rst = CurrentDb.OpenRecordset("SELECT ESDNodes.Description, ESDNodes.Sort FROM ESDNodes WHERE (((ESDNodes.parentID) =" & parentID & ")) ORDER BY ESDNodes.Sort") 
    Set nextSiblingSelect.Recordset = rst 
    nextSiblingSelect.AddItem Item:="Make Last", Index:=0 
End Sub 

が、値集合タイププロパティは、このメソッドを使用するために「値リスト」に設定されている必要があり

この実行時エラーで終わります。

これは私が期待していたものです。

この周りにはどんなトリックがありますか？テーブルセットにダミーレコードを追加してクエリを変更することはできますが、それはむしろ醜くなり、私はそれを好まないでしょう。

Answer 1

コンボボックスのRowSourceとしてUNIONクエリを試してください。多分好き：

SELECT Description, Sort FROM ESDNodes UNION SELECT "Make Last", 0 FROM ESDNodes ORDER BY Sort;