Error handling not working

[tiredofit]

The error handling here does not seem to handle it.

Put some data in say the first three rows from A1 to D3 for example.

Clearly the array will have only 9 elements and in particular will crash on this line:

EntryArray.DataArrayItem(10, 1)

Question is why does the error handler not deal with it?

Class1:

Option ExplicitPrivate pDataArray As Variant
Property Let DataArray(DArray As Variant)
    pDataArray = DArray
End Property
Property Get DataArrayItem(RowIndex As Integer, _
                           ColIndex As Integer) As Variant
    DataArrayItem = pDataArray(RowIndex, ColIndex)
End Property

Module1;

Option Explicit
Sub Test()
    
    On Error GoTo ErrHandler
    
    Dim EntryArray As Class1
    Set EntryArray = New Class1
    
    Dim a As Variant
    
    EntryArray.DataArray = Cells(1, 1).CurrentRegion.Value
        
    a = EntryArray.DataArrayItem(10, 1)
        
ErrHandler:

    Exit Sub
    
End Sub

 

[Jerry Sullivan]

See this Article by Chip Pearson...

Break In Class Module

 

[tiredofit]

See this Article by Chip Pearson...

Break In Class Module

He says you should set it to Break in Class Module, which is what I did and the eror handling didn't handle it.

If instead I choose Break in unhandled Errors, the error handling does indeed handle it.

So shouldn't the setting be set to Break on unhandled Errors?

 

[Jerry Sullivan]

The behavior you describe is normal for those two error handling options.

If you want the error handler that was enabled in the calling procedure to handle the error in class module, then you could set the option to (only) "Break on Unhandled Errors".

Chip Pearson's article recommends "Break in Class Module" because it allows the developer to more easily identify the unanticipated errors during development.

Typically, it's better to have a Class provide it's own validation and error handling. That allows the Class to be repurposed without having to rely on the calling procedure and application to do that work.

 

[tiredofit]

Thanks for the explanation.