VBA的全名是Visual.pptVIP

還原篩選前紀錄的VBA原始碼： Private Sub Command269_Click() Me.FilterOn = False ‘不執行篩選 End Sub 新增資料判斷完整性的VBA程式碼： 如在新增過程中，輸入調查方式(抽查、普查)時，並未符合樣本編號的編碼模式時，會顯示訊息警告之。 Private Sub Option229_GotFocus() If Left([idno], 1) M And Left([idno], 1) S Then MsgBox (注意! 若此樣本為抽查則樣本編號應為 M、S 字母開頭, Chr(13) 請重新檢查樣本編號及Key號是否輸入正確!) End If End Sub Private Sub Option231_GotFocus() If Left([idno], 1) B Then MsgBox (注意! 若此樣本為普查則樣本編號應為 B 字母開頭, Chr(13) 請重新檢查樣本編號及Key號是否輸入正確!) End If End Sub 例如統一企業公司的調查方式為普查，若要強制改變其調查方式為抽查的話， 系統會顯示警告訊息： 圖二(13)、判斷資料完整性的情形 刪除資料：基於安全性的考量，在執行此功能後，會要求使用者輸入欲刪除的樣本編號。 若輸入錯誤，將顯示Record not fo