Epidata 是一個比較實用的數據錄入軟件,但錄入界面單一,沒辦法進行個性化的定制,如放置我們的Logo,制作漂亮的界面等。且用戶非常容易修改我們的庫結構。利用ACCESS則有明顯的優勢,而EPIDATA軟件的一些優點,我們也可以通過Access的VBA代碼方便地”移植”過來。
今天,先來一個基本的代碼,叫重復上一條記錄的某些值。在錄入過程中,為方便用戶輸入,我們會把某些變量設定為重復上一變量的值,如省份、縣名等信息,我們在批量錄入時,省份名可能是重復的,其他一些變量為錄入方便也需要重復。
通過ACCESS也能實現這一功能,單擊下圖的新增按鈕,新增一條記錄,標*號的變量會自動重復我們上一條記錄的錄入結果。源碼可以這里下載:
編輯:北京信誠IT保姆IT外包部 http:// www.aboverow.cn www.xcit.com.cn |