Propriété Report.OnCurrent (Access)

Définit ou renvoie la valeur de la propriété OnCurrent sur le rapport. String en lecture/écriture.

Syntaxe

expression. OnCurrent

Expression Variable qui représente un objet Report .

Remarques

Si vous souhaitez qu’une procédure s’exécute automatiquement chaque fois que vous ouvrez un rapport particulier, vous définissez la propriété OnCurrent du formulaire sur [Procédure événementielle] et Access exécute automatiquement une procédure appelée Private Sub Report_Current().

La propriété OnCurrent vous permet de déterminer par programmation la valeur de la propriété OnCurrent du formulaire ou de définir par programmation la propriété OnCurrent du formulaire.

Remarque

L’événement Actuel se déclenche lorsque vous exécutez (ouvrez) un rapport.

Si vous définissez la propriété OnCurrent du formulaire dans l’interface utilisateur, elle obtient sa valeur en fonction de votre sélection dans la fenêtre Choisir générateur, qui s’affiche lorsque vous choisissez le bouton ... en regard de la zone Activé dans le Fenêtre Propriétés du rapport.

• Si vous choisissez Générateur d’expressions, la valeur est =expression, où expression est l’expression de la fenêtre Générateur d’expressions.

• Si vous choisissez Générateur de macros, la valeur est le nom de la macro.

• Si vous choisissez Générateur de code, la valeur sera [Procédure événementielle].

Exemple

L’exemple de code suivant montre comment définir la propriété OnCurrent d’un rapport.

Private Sub Report_Load()

        Me.OnCurrent = "[Event Procedure]"

End Sub
		

La procédure événementielle Report_Current() est appelée automatiquement lorsque l'événement actuel est déclenché. Cette procédure collecte simplement les valeurs de deux zones de texte du rapport et les envoie à une autre procédure pour traitement.

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
		

L'exemple suivant traite simplement les deux valeurs qui lui est passés.

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

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.