ADO » Recordset » WillChangeField
- Syntax:
- WillChangeField (cFields, Fields, adStatus, pRecordset)
- pRecordset
- The pRecordset parameter is the Recordset object to which this event applies.
- cFields
- The cFields parameter is a long value that is the number of Field objects in the Fields parameter array.
- Fields
- The Fields parameter is a variant array of Field objects that have had their values changed.
- adStatus
- The adStatus parameter is one of the EventStatusEnum constants that describes the current status of the event.
Called before the values of one or more Field objects are to be changed.
The WillChangeField event can be fired before any pending changes in the
values for one or more Field objects have been completed.
In contrast, the FieldChangeComplete event can be fired after the values for one or more
Field objects have been changed.
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 four parameters passed to this event.
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_WillChangeField( cFields As Long, _
Fields As Variant, _
adStatus As ADODB.EventStatusEnum, _
ByVal pRecordset As ADODB.Recordset )
' place any code you desire here, for example
Print cFields & " will be modified"
End Sub
See Also:
