ADO » Recordset » RecordChangeComplete

Syntax:
RecordChangeComplete (adReason, cRecords, pError, adStatus, pRecordset)
pRecordset
The pRecordset parameter is the Recordset object to which this event applies.
adReason
The adReason parameter is one of seven of the EventReasonEnum constants that describe what operation occurred that allowed this event to fire. Note that there is a total of fifteen of these constants, but only the following seven can actually be used by this parameter.
cRecords
The cRecords parameter is a long value that is the number of the records that were changed.
pError
The pError parameter will be set only if an error occurred and the adStatus is set to adStatusErrorsOccurred. It is an Error object that describes the error.
adStatus
The adStatus parameter is one of the EventStatusEnum constants that describes the current status of the event. If the action that triggered this event was successful, then the agrument will be set to adStatusOK. If an error occurred, it will be set to adStatusErrorsOccurred.

Called after one or more rows have been changed.

The RecordChangeComplete event can be fired after the values for one or more Records in the Recordset have been changed.

The operations that can trigger this event would be either:

  • The first call to the AddNew, CancelBatch, CancelUpdate, Delete, Update, or the UpdateBatch methods,
  • The first and all subsequent calls to those same six methods.
If a filter has been used or is in place, you will only see the Records that are visible through the filter. Further, you cannot change the filter during this event.

In contrast, the WillChangeRecord event can be fired before any pending changes in the values for one or more Record objects have been completed.

An event is simply a subroutine that can be called automatically after a specific operation has occurred. This subroutine can contain any code that you need to run when the event occurs. The subroutine will only be called if it is included in your code.

There are five parameters passed to this event.



EventReasonEnum Constants
 
Constant Value Description
adRsnAddNew 1 A record is added
adRsnDelete 2 A record is deleted
adRsnFirstChange 11 Any operation that makes the first change to a record
adRsnUndoAddNew 5 An add is cancelled
adRsnUndoDelete 6 A delete is cancelled
adRsnUndoUpdate 4 An update is cancelled
adRsnUpdate 3 A record is updated

 





 
EventStatusEnum Constants
 
Constant Value Description
adStatusCancel 4 Cancels the operation that fired the event
adStatusCantDeny 3 Cannot cancel pending operation
adStatusErrorsOccurred 2 Indicates that warnings and/or errors occurred
adStatusOK 1 The operation that fired the event was successful
adStatusUnwantedEvent 5 The operation that generated the event cannot generate future events

Examples

Code:
' Use the WithEvents keyword to designate that events
' can be handled by this Recordset object
Dim WithEvents objRecSet As ADODB.Recordset

' Note how the object name, objRecSet, is incorporated into the event Sub name
Private Sub objRecSet_RecordChangeComplete( adReason As ADODB.EventReasonEnum, _
   cRecords As Long, _
   ByVal pError As ADODB.Error, _
   adStatus As ADODB.EventStatusEnum, _
   ByVal pRecordset As ADODB.Recordset )

' place any code you desire here, for example
If adStatus = adStatusErrorsOccurred Then
   Dim objError As ADODB.Error
   For Each objError in pRecordset.Errors
      Debug.Print vbtab; objError.Description
   Next
End If

End Sub

See Also: