コンボリストにないものを追加

コンボボックスのリストにない項目を入力し、同時にその項目をテーブルに保存させる方法です。値集合タイプにはテーブル/クエリーを用いており、「項目」という名前のテーブルを参照しています。

フォームにあるコンボボックスのプロパティの「リスト外入力時イベント」に次のようにプロシージャを書き込むとともに、コンボボックスのプロパティの「入力チェック」を「はい」に「自動拡張」を「いいえ」に設定します。

Private Sub コンボ0_NotInList(NewData As String, Response As Integer) Dim cnt As ADODB.Connection Dim rst As ADODB.Recordset Dim tuika As Integer Response = acDataErrContinue tuika = MsgBox("リストにない項目です。追加しますか？", vbYesNo + vbQuestion, "追加") If tuika = vbNo Then Me!コンボ0 = Null Exit Sub Else Set cnt = CurrentProject.Connection Set rst = New ADODB.Recordset rst.Open "項目", cnt, adOpenKeyset, adLockOptimistic rst.AddNew "項目", NewData rst.Close: Set rst = Nothing cnt.Close: Set cnt = Nothing Me!コンボ0 = Null Me!コンボ0.Requery End If End Sub