当输入的记录不在组合框选项里时，这段代码有什么问题？

goto2008

我想实现的是，当有时在“类别”这个字段里输入的名称不在组合框选项里。

会自动弹出来一个对话框询问。“您输入的某某不在选项里，是否添加进去？”

然后回答，是或否

不知我这段代码哪里错了，实现不了？？？

Private Sub 类别_NotInList(NewData As String, Response As Integer)
    Dim intSelect As Integer
    Dim strSQL As String

    '用户选择是否把新值加入列表
    intSelect = MsgBox("你是否希望把“" + NewData + "”加入列表中？", vbYesNo + vbQuestion, "提示")

    If intSelect = vbYes Then
        DoCmd.SetWarnings False
        strSQL = "INSERT INTO [产品表](类别) VALUES('" + NewData + "')"
        DoCmd.RunSQL strSQL
        Response = acDataErrAdded
        DoCmd.SetWarnings True
    Else
        Response = acDataErrContinue
        Me.类别.Undo
    End If
End Sub

ytf123

不知这是不是你想要的结果

goto2008

ytf123

你好，不是这样的。。。。我的意思是，

若输入新的类别，它也会自动保存在“类别表”里

ytf123

goto2008

谢谢！！就是要这个效果