大家还得帮帮忙！

roych

1、设置为“仅限于列表”
2、加上“不在列表中”事件。例如：

1. Private Sub Combo0_NotInList(NewData As String, Response As Integer)
   
2. Me.Combo0 = ""
   
3. Response = acDataErrContinue
   
4. End Sub

复制代码

这表示当数据不在列表中时，先清空数据，然后继续执行，但不会弹出错误提示。