如何让我的不在列表事件起作用？

第一步：

将数据来源的“限于列表”改成是

第二步：

Private Sub 姓名_NotInList(NewData As String, Response As Integer)
    Dim intSelect As Integer, strSQL As String
    intSelect = MsgBox("你是否希望把“" + NewData + "”加入列表中？", vbYesNo + vbQuestion, "提示")
    If intSelect = vbYes Then
        DoCmd.SetWarnings False
        strSQL = "INSERT INTO xinmin ( 姓名 ) SELECT '" & NewData & "'" & " AS a;"
        DoCmd.RunSQL strSQL
        Response = acDataErrAdded
        DoCmd.SetWarnings True
    Else
        Response = acDataErrContinue
        Me.姓名.Undo
    End If
End Sub