[原创]一段代码:输入数据不在列表中,自动增加列表的例子

gdfsslec

谢谢版主分享！
我原来也是用两个窗体，代码只在一个窗体
Private Sub 出货客户_NotInList(NewData As String, Response As Integer)
On Error Resume Next

    If MsgBox("没有这个客户，是否要立即添加？", 4) = 6 Then
       DoCmd.OpenForm "客户录入", , , , acFormAdd
       Forms![客户录入]![客户名称] = Me![出货客户].Text
       Response = acDataErrContinue
      
       DoCmd.RunCommand acCmdSaveRecord
       Forms![出货录入]![出货客户].Undo
       Forms![出货录入]![出货客户].Requery
       Forms![出货录入]![出货客户] = Forms![客户录入]![客户名称]
       DoCmd.Close
    Else
       SendKeys "{escape}"
    End If
   
End Sub
但是弊端是如果要直接加入不做修改，“客户录入”窗体会一闪而过，不爽！用docmd.echo false无效。用您的办法就没有这个问题了，只要不要打开“客户档案”窗体就是了