Epidata 是一个比较实用的数据录入软件,但录入界面单一,没办法进行个性化的定制,如放置我们的Logo,制作漂亮的界面等。且用户非常容易修改我们的库结构。利用ACCESS则有明显的优势,而EPIDATA软件的一些优点,我们也可以通过Access的VBA代码方便地”移植”过来。 今天,先来一个基本的代码,叫重复上一条记录的某些值。在录入过程中,为方便用户输入,我们会把某些变量设定为重复上一变量的值,如省份、县名等信息,我们在批量录入时,省份名可能是重复的,其他一些变量为录入方便也需要重复。 通过ACCESS也能实现这一功能,单击下图的新增按钮,新增一条记录,标*号的变量会自动重复我们上一条记录的录入结果。源码可以这里下载:
|