Public Event AddedPassed(ByVal lngID As Long)
Public Event AddedFailed(ByVal lngID As Long)
Public Event UpdatedPassed(ByVal lngID As Long)
Public Event UpdatedFailed(ByVal lngID As Long)
Public Event DeletedPassed(ByVal lngID As Long)
Public Event DeletedFailed(ByVal lngID As Long)

Private WithEvents objArticle As clsArticle

'#Aktualisiert einen Artikel
Private Sub UpdateArticle()
 
On Error GoTo ErrorHandler
 
    With rsArtArticles
 
    End With
 
ErrorHandler:
    Select Case Err.Number
        Case Is = 0
            RaiseEvent UpdatedPassed(IDArticle)
        Case Else
            RaiseEvent UpdatedFailed(IDArticle)
    End Select
 
End Sub

        Case Is = 0
            RaiseEvent UpdatedPassed(IDArticle)

MfG Christian