Office中国论坛/Access中国论坛

标题: [分享]列表框的妙用 [打印本页]

作者: kennyin 时间: 2006-2-27 17:56
标题: [分享]列表框的妙用

在使用企业信息软件时经常遇到一些字段是要操作者自行输入，由于这些数据不确定性，没办法用一个表去收集供操作者挑选。由于输入后的数据可能会重复使用，也可能只输入一次后就不会在用，或者输入的数据在某个季度经常使用到，其它季度不会用上的。有没有办法可以像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 时间: 2006-2-27 18:39
不错, 学一招!! 谢楼主

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)