vba - MicrosoftAccessの編集可能なComboBox

Question

編集可能なコンボボックスに近いものをAccessフォームに追加しようとしています。このフォームでは、ユーザーが必要なものを入力するか、使用可能なエントリのリストから選択できます。私はアクセスするのが初めてで、これを行う方法についての情報をいただければ幸いです。

以下のコードをテストしても何も起こりません。

コード

Private Sub ddlUNS1_NotInList(NewData As String, Response As Integer)
    Dim ctl As Control

    ' Return Control object that points to combo box.
    Set ctl = Me!ddlUNSC1

    If MsgBox("Value is not in list. Add it?", vbOKCancel) = vbOK Then

        MsgBox ("ddlUNSLEVEL NOT LISTED FIRED ")
    Else 
        'ctl.Undo
        MsgBox ("ddlUNSLEVEL  LISTED FIRED ")
    End If
End Sub

Answer 1

さまざまなオプションがあります。バインドされたフィールドを参照できます。

Row Source: SELECT DISTINCT AddressType FROM ThisTable
Control Source : AddressType

これは用途が限定されており、おそらく短期間のデータベースにのみ役立ちます。

NotInList と LimitToListを使用して、新しい値を追加できます。