|
Epidata 是一個(gè)比較實(shí)用的數(shù)據(jù)錄入軟件，但錄入界面單一，沒辦法進(jìn)行個(gè)性化的定制，如放置我們的Logo，制作漂亮的界面等。且用戶非常容易修改我們的庫(kù)結(jié)構(gòu)。利用ACCESS則有明顯的優(yōu)勢(shì)，而EPIDATA軟件的一些優(yōu)點(diǎn)，我們也可以通過(guò)Access的VBA代碼方便地”移植”過(guò)來(lái)。
今天，先來(lái)一個(gè)基本的代碼，叫重復(fù)上一條記錄的某些值。在錄入過(guò)程中，為方便用戶輸入，我們會(huì)把某些變量設(shè)定為重復(fù)上一變量的值，如省份、縣名等信息，我們?cè)谂夸浫霑r(shí)，省份名可能是重復(fù)的，其他一些變量為錄入方便也需要重復(fù)。
通過(guò)ACCESS也能實(shí)現(xiàn)這一功能，單擊下圖的新增按鈕，新增一條記錄，標(biāo)*號(hào)的變量會(huì)自動(dòng)重復(fù)我們上一條記錄的錄入結(jié)果。源碼可以這里下載：
編輯：北京信誠(chéng)IT保姆IT外包部 http:// www.aboverow.cn www.xcit.com.cn |
當(dāng)前位置：
