新增部分的思路前面的流程圖基本適用就不附圖啦~主要聊一下怎麼一次判斷當前窗體是否存在空值，註冊篇有寫一次清空控制元件的，一次判斷當前窗體是否存在空值就是在其基礎上進行的改動

• 程式碼

For Each ctrl In Me.Controls
        If TypeOf ctrl Is TextBox Or TypeOf ctrl Is ComboBox Then   '是否為控制元件
           If ctrl.Text = "" Then '判斷內容是否為空
               MsgBox "內容不能為空哦", vbOKOnly + vbExclamation, "溫馨提示"
               ctrl.SetFocu
 

• 判斷控制元件類
  首先，新增和刪除使用者窗體中的新增部分控制元件分為兩種：textbox和combobox。那麼我們就對這兩種控制元件進行判斷即可。If TypeOf ctrl Is TextBox Or TypeOf ctrl Is ComboBox Then '是否為控制元件 通過這行程式碼實現，因為有兩種型別的控制元件，可以使用or進行連線，這樣一行程式碼就ok啦，不需要再重新寫一版將textbox替換成combotext的版本啦。
  使用同等方法的清空也適用。舉例（依舊是存在textbox和combobox兩種控制元件的情況下）：
  For Each ctrl In Me.Controls If TypeOf ctrl Is TextBox Or TypeOf ctrl Is ComboBox Then '是否為文字框TextBox ctrl.Text = ""

這樣可以通過一行程式碼同時清除兩種控制元件的內容啦。

• 判斷控制元件的值是否為空

If ctrl.Text = "" Then '判斷內容是否為空

通過這行程式碼實現，可以看到我們之前定義了ctrl進行控制，所謂擒賊擒王，所以這裡適用ctrl即可，它的任務就是判斷了這兩種型別的控制元件每個是否都有值，如果沒有值回彈提示款告訴你（根據空值的控制元件個數報提示框，比如有兩個控制元件值為空，那麼提示款回彈兩次），並使空值控制元件獲得焦點。當然這個的好處就是可以省略很多xxxx.text=""的寫法，但是與之相比也是有缺點的，它能夠提示你內容不能為空，但不能明確指出是具體是那個內容為空這咋辦吶~到我們的下一步

• 空值控制元件獲取焦點

不過不太要緊的是它通過ctrl.SetFocu 使空值控制元件獲得焦點，這樣在游標處輸入內容即可。

是不是超級方便呢~