[分享]列表框的妙用

kennyin

在使用企业信息软件时经常遇到一些字段是要操作者自行输入，由于这些数据不确定性，没办法用一个表去收集供操作者挑选。由于输入后的数据可能会重复使用，也可能只输入一次后就不会在用，或者输入的数据在某个季度经常使用到，其它季度不会用上的。有没有办法可以像Excel一样，输入一次后，第二次输入同样字符时能挑选而不用再输入，以提高操作者的输入的速度。


可以利用列表框达到这个功能





在设计窗体时要将列表框的设置可以输入列表以外的数据


代码如下


Private Sub FRemark_AfterUpdate()


If DCount("FRemark", "tblRemark", "FRemark='" & Me.Fremark  & "'") = 0 Then


     CurrentDb.Execute "Insert Into tblRemark values ('" & Me.FRemark  "')"


Me.FRemark.Requery


End If


End Sub





tblRemark是表，Fremark是tblRemark中的字段


原理是：在每次输入后检查在表中有没有存在相同的记录，如果表中没有就新增到表中。这样下次输入同样的数据时就可以在列表框中挑选。





在此基础上你可以扩展一些功能


1、可以限制列表的数目，只保存最新的N条记录


2、每个用户有属于自已的在此字段输入的数据，解决多用户操作时的同步问题。





剛學ACCESS不久的小蝦，以後日子還請各大蝦多多指點........

ui

不错, 学一招!! 谢楼主