组合框快速输入（二）

HI，手机边亲爱的你还好吗？

今天我们接着讲一下组合框快速输入的方法二。

之前，我们讲了第一个方法，是直接调用一个新增窗体来添加数据，这个方式的好处是可以把基础数据添加的比较完整，但比较麻烦，所以，今天给大家分享一个简单的方法。

01、建表

这里新建的表我们还是与之前讲的文章一样。

 

 

02、创建窗体

这里，我们只要在窗体里需要添加一个组合框

03、添加代码

这次我们在组合框的“不在列表中”这个事件里添加代码

Private Sub 客户_NotInList(NewData As String, Response As Integer)
    If MsgBox("输入的数据不在列表中，是否快速添加", vbExclamation + vbOKCancel) = vbOK Then
        selectcomb = NewData
        CurrentDb.Execute "insert  into tbl客户表(客户名称) values ('" & selectcomb & "')"
        MsgBox "添加成功", vbInformation, "提示"
    Else
        Exit Sub
    End If
    Response = acDataErrAdded    '不为用户显示消息
    Me.客户.Undo    '或者，Cancel=True则表示中止
    Me.客户.Requery
    Me.客户.SetFocus
    Me.客户 = selectcomb
End Sub

 

其中有一个全局变量名：selectcomb，这个需要定义在通用模块中。这个变量主要是用于在添加新数据后，组合框能默认显示新添加的数据。

04、运行测试

在组合框输入不存在的数据后，需要移动焦点，来触发事件，触发事件后就可以将数据添加了。

 

这个方法虽然方便，但有个坏处，就是当在组合框中输入了错误的数据，也会有提示添加数据，这样会有些不方便。

那么，我们学了这两个方法，大家可以找一个适合自己的方法来应用。