Epidata 是一个比较实用的数据录入软件，但录入界面单一，没办法进行个性化的定制，如放置我们的Logo，制作漂亮的界面等。且用户非常容易修改我们的库结构。利用ACCESS则有明显的优势，而EPIDATA软件的一些优点，我们也可以通过Access的VBA代码方便地”移植”过来。

今天，先来一个基本的代码，叫重复上一条记录的某些值。在录入过程中，为方便用户输入，我们会把某些变量设定为重复上一变量的值，如省份、县名等信息，我们在批量录入时，省份名可能是重复的，其他一些变量为录入方便也需要重复。

通过ACCESS也能实现这一功能，单击下图的新增按钮，新增一条记录，标*号的变量会自动重复我们上一条记录的录入结果。源码可以这里下载：

编辑：北京信诚IT保姆IT外包部 http:// www.xcitbm.com www.xcit.com.cn