Evento Form. AfterInsert (Access)Form.AfterInsert event (Access)

El evento AfterInsert se produce después de agrega un nuevo registro.The AfterInsert event occurs after a new record is added.

SintaxisSyntax

expresión. AfterInsertexpression.AfterInsert

expresión Variable que representa un objeto Form.expression A variable that represents a Form object.

Valor devueltoReturn value

NothingNothing

ComentariosRemarks

Nota

Cuando se establece el valor de un control con una macro o con Visual Basic, no se activan estos eventos.Setting the value of a control by using a macro or Visual Basic doesn't trigger these events.

Puede usar una macro o procedimiento de evento AfterInsert para volver a consultar un conjunto de registros siempre que se agregue un nuevo registro.You can use an AfterInsert event procedure or macro to requery a recordset whenever a new record is added.

Para ejecutar una macro o procedimiento de evento cuando se produce el evento AfterInsert, establezca la propiedad OnAfterInsert en el nombre de la macro o en [procedimiento de evento].To run a macro or event procedure when the AfterInsert event occurs, set the OnAfterInsert property to the name of the macro or to [Event Procedure].

EjemploExample

En este ejemplo se muestra cómo se puede usar un procedimiento de evento BeforeInsert para comprobar que el usuario desea crear un nuevo registro y un procedimiento de evento AfterInsert para volver a consultar el origen de registros del formulario empleados después de que se haya agregado un registro.This example shows how you can use a BeforeInsert event procedure to verify that the user wants to create a new record, and an AfterInsert event procedure to requery the record source for the Employees form after a record has been added.

Para probar el ejemplo, agregue el procedimiento de evento siguiente a un formulario denominado Employees ( empleados ) basado en una tabla o consulta.To try the example, add the following event procedure to a form named Employees that is based on a table or query. Pase a la vista Hoja de datos del formulario e intente insertar un registro.Switch to form Datasheet view and try to insert a record.

Private Sub Form_BeforeInsert(Cancel As Integer) 
 If MsgBox("Insert new record here?", _ 
 vbOKCancel) = vbCancel Then 
 Cancel = True 
 End If 
End Sub 
 
Private Sub Form_AfterInsert() 
 Forms!Employees.Requery 
End Sub

Soporte técnico y comentariosSupport and feedback

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación?Have questions or feedback about Office VBA or this documentation? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.