日期:2014-05-16  浏览次数:20937 次

可能与recordset有关的问题,请教如何实现。
在一个窗体里放一个文本框(未邦定的),和一个按钮。
要求:
窗体打开时,文本框显示某个表的第一行的某一个字段的值。点一下按钮显示下一行的同一字段的值。(不要用宏,也不要用向导,用VBA写代码)。
其实说白了,就是想自己写导航条。


------解决方案--------------------
绑定数据源很简单。

但是如果不绑定数据源,全部通过VBA代码自己实现,要求表中必须有唯一排序的一个或多个字段。

如:表中按ID字段升序排列。


这样,假设当前行的ID 是10,取下一条时,用:


select top 1 字段名
from 表名
where id > 10
order by id

用记录集打开或用域函数,获取这个字段的值,赋给文本框

------解决方案--------------------
窗体打开时,文本框显示某个表的第一行的某一个字段的值。点一下按钮显示下一行的同一字段的值。(不要用宏,也不要用向导,用VBA写代码)。
点一下按钮:记录集.movenext,重新给文本框赋值
文本框:控制来源为字段名