Syntax
| RecordChangeComplete(adReason, cRecords, pError, adStatus, pRecordset)
| ||||||||||||||||||||||||||||||||||||||||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
Description
| 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:
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
EventStatusEnum Constants
| ||||||||||||||||||||||||||||||||||||||||||||||||||||||
See Also
| |||||||||||||||||||||||||||||||||||||||||||||||||||||||
Example
| ' 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
|