Propiedad Report.OnCurrent (Access)

Establece o devuelve el valor de la propiedad OnCurrent en el informe. String de lectura y escritura.

Sintaxis

expresión. OnCurrent

Expresión Variable que representa un objeto Report .

Comentarios

Si desea que un procedimiento se ejecute automáticamente cada vez que abra un informe determinado, establezca la propiedad OnCurrent del formulario en [Procedimiento de evento] y Access muestra automáticamente un procedimiento denominado Private Sub Report_Current().

La propiedad OnCurrent permite determinar mediante programación el valor de la propiedad OnCurrent del formulario o establecer mediante programación la propiedad OnCurrent del formulario.

Si establece la propiedad OnCurrent del formulario en la interfaz de usuario, obtiene su valor en función de su selección en la ventana Elegir generador, que aparece al elegir el botón ... situado junto al cuadro Al día del ventana Propiedades del informe.

• Si elige Generador de expresiones, el valor será =expresión, donde expresión es la expresión de la ventana Generador de expresiones.

• Si elige Generador de macros, el valor es el nombre de la macro.

• Si elige Code Builder, el valor será [Procedimiento de evento].

Ejemplo:

En el ejemplo de código siguiente se muestra cómo establecer la propiedad OnCurrent de un informe.

Private Sub Report_Load()

        Me.OnCurrent = "[Event Procedure]"

End Sub
		

El procedimiento de evento Report_Current() se llama automáticamente cuando se activa el evento actual. Este procedimiento simplemente recopila los valores de dos de los cuadros de texto del informe y los envía a otro procedimiento para su procesamiento.

Private Sub Report_Current()

        ' Declare variables to store price and available credit.
        Dim curPrice As Currency
        Dim curCreditAvail As Currency

        ' Assign variables from current values in text boxes on the Report.
        curPrice = txtValue1
        curCreditAvail = txtValue2

        ' Call VerifyCreditAvail procedure.
        VerifyCreditAvail curPrice, curCreditAvail

End Sub
		

En el ejemplo siguiente se procesa simplemente los dos valores que se pasa a ella.

Sub VerifyCreditAvail(curTotalPrice As Currency, curAvailCredit As Currency)
    ' Inform the user if there is not enough credit available for the purchase.
    If curTotalPrice > curAvailCredit Then
        MsgBox "You don't have enough credit available for this purchase."
    End If
End Sub

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? 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.