Lorsque j'utilise la méthode Err.Raise dans un module de classe, VB5 génère la boîte de message au lieu de retourné à mon instruction On Error Goto Pourquoi????
Voici mon module appelant qui se trouve dans un formualaire
Private Sub SaveScreen()
On Error GoTo Err_SaveScreen
Obj.NoCenCout = txtNoCenCout.Text
Exit_SaveScreen:
Exit Sub
Err_SaveScreen:
MsgBox Err.Number + vbObjectError
Resume Exit_SaveScreen
End Sub
Voici la propriété de ma classe.
Public Property Let NoCenCout(ByVal plNewCenCout As String)
If IsNumeric(plNewCenCout) Then
clNoCenCout = Val(plNewCenCout)
Else
Err.Raise 2001 + vbObjectError, , "Numéro de centre de coût"
End If
End Property
Pourquoi la gestion d'erreur ne fait pas par le module appelant SaveScreen().