Option Base 0
Option Compare Binary
Option Explicit
 
Private rsArtArticles As ADODB.Recordset
 
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)
 
'#Fügt einen neuen Artikel ein
Private Sub AddArticle()
 
On Error GoTo ErrorHandler
 
    With rsArtArticles
 
    End With
 
ErrorHandler:
    Select Case Err.Number
        Case Is = 0
            RaiseEvent AddedPassed(IDArticle)
        Case Else
            RaiseEvent AddedFailed(IDArticle)
    End Select
 
End Sub
 
'#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
 
'#Löscht einen Artikel
Private Sub DeleteArticle()
 
On Error GoTo ErrorHandler
 
    With rsArtArticles
 
    End With
 
ErrorHandler:
    Select Case Err.Number
        Case Is = 0
            RaiseEvent DeletedPassed(IDArticle)
        Case Else
            RaiseEvent DeletedFailed(IDArticle)
    End Select
 
End Sub

Option Base 0
Option Compare Binary
Option Explicit
 
Private WithEvents objArticle As clsArticle
Private bolObjectIsDirty As Boolean
 
Private Sub Form_Load()
    Set objArticle = New clsArticle
End Sub
 
Private Sub objArticle_AddedFailed(ByVal lngID As Long)
    bolObjectIsDirty = False
End Sub
 
Private Sub objArticle_AddedPassed(ByVal lngID As Long)
    bolObjectIsDirty = False
End Sub
 
Private Sub objArticle_DeletedFailed(ByVal lngID As Long)
    bolObjectIsDirty = False
End Sub
 
Private Sub objArticle_DeletedPassed(ByVal lngID As Long)
    bolObjectIsDirty = False
End Sub

MfG Christian