在VBA中修復類型不匹配錯誤13

Question

我是編碼的新手，正在嘗試開發一種允許我填充數據庫的用戶表單。

我正在嘗試對可以通過用戶窗體輸入數據庫的數據進行一些驗證。

下面顯示了我為此使用的代碼，其中Reg是用戶窗體上控件的名稱。

當我運行代碼的這一部分時，它在第一行停止，並顯示Type Mismatch Error 13消息框。

您能提供的任何幫助將不勝感激。

Sub ValidCombo1()

    If Reg18.Value = "" And ((Reg17.Value <> "1" Or (Reg15.Value <> "0" Or "") Or Reg16.Value <> "A" Or Reg19.Value <> "") Or (Reg17.Value <> "" And Reg15.Value <> "" And Reg16.Value <> "" And Reg19.Value <> "")) Then

        MsgBox "Invalid Foundations combination"

        Reg13.Value = ""

    ElseIf Reg25.Value = "" And ((Reg24.Value <> "1" Or (Reg22.Value <> "0" Or "") Or Reg23.Value <> "A" Or Reg26.Value <> "") Or (Reg24.Value <> "" And Reg22.Value <> "" And Reg23.Value <> "" And Reg26.Value <> "")) Then

        MsgBox "Invalid Inverts and Aprons combination"

        Reg13.Value = ""

Answer 1

您的代碼可能還有其他問題，但是類似

Reg15.Value <> "0" Or ""

是類型不匹配。 ""是字符串，不是布爾值。

用以下方式替換Reg15.Value <> "0" Or ""

Reg15.Value <> "0" And Reg15.Value <> ""

（我認為這是您的意圖）將消除這些類型的不匹配。