ошибка 91, переменная не установлена ​​не может использовать геттер

Question

Я не могу использовать мой Property Get в моей основной программе.

У меня уже есть эта проблема с конструктором моего класса, я ставлю Set перед каждым свойством.

Public ID As Integer
Public numberOfError As Integer
Public error1 As Erreur
Public error2 As Erreur
Public error3 As Erreur
Public error4 As Erreur

Public Sub ajouterDTC(bid As Integer, Optional bnumberOfError As Integer, Optional berror1 As Erreur, Optional berror2 As Erreur, Optional berror3 As Erreur, Optional berror4 As Erreur)
    With Me
        .ID = bid
        .numberOfError = bnumberOfError
        Set .error1 = berror1
        Set .error2 = berror2
        Set .error3 = berror3
        Set .error4 = berror4
    End With
End Sub

'error1 properties
Public Property Get getError1() As Erreur
    getError1 = error1
End Property

Public Property Let letError1(berror1 As Erreur)
    error1 = berror1
End Property

Answer 1

"Erreur все еще является объектом, поэтому вам нужно Set его. Set getError1 = error1." Винсент G