Private Sub Combo0_NotInList(NewData As String, Response As Integer)
Me.Combo0 = ""
Response = acDataErrContinue
End Sub
复制代码
这表示当数据不在列表中时,先清空数据,然后继续执行,但不会弹出错误提示。 作者: Henry D. Sy 时间: 2012-3-21 09:37
也可以由你自己决定是否将不在列表中的值加入值列表或表中作者: clsabc 时间: 2012-3-21 20:33
万分感谢大家,可是本人实在笨的可以,楼上两位指点的办法我居然没找到怎么设置!