类中的错误处理返回运行时错误 440“自动化错误”

Question

我有一个带有let INN 属性的类ClsSubject。该属性检查传入参数是否为数字字符串并且长度是否为 10 个字符。否则会抛出错误。

Property Let INN(val As String)
    If IsNumeric(val) And Len(val) = 10 Then
        PINN = val
    Else
        Dim errorMessage As String
        errorMessage = val & " is an Invalid value"
        Err.Raise vbObjectError + 513, "ClsSubject", errorMessage
    End If
End Property

当我尝试模拟错误时，我只会得到 ​​p>

运行时错误“440”：自动化错误。

我做错了什么？

Answer 1

使用 OP 中的代码，以下工作。在一个模块中：

Sub TestMe()

    Dim x As New clsSubject
    x.INN = 3276132761#
    Debug.Print x.PINN

End Sub

还有这个在课堂上：

Public PINN As String

Property Let INN(val As String)
    If IsNumeric(val) And Len(val) = 10 Then
        PINN = val
    Else
        Dim errorMessage As String
        errorMessage = val & " is an Invalid value"

        Err.Raise vbObjectError + 513, "ClsSubject", errorMessage
    End If
End Property

为了使代码运行，请调用TestMe()。

在一般情况下，类的字段应该是私有的，并且应该通过公共属性访问。例如。 private PINN as String，但这只是为了说明。