Propriété Report.OnCurrent (Access)

Définit ou renvoie la valeur de la propriété SurCurrent figurant dans le rapport. String en lecture/écriture.

Syntaxe

expression. En cours

expression Variable qui représente un objet Rapport .

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 crée automatiquement une procédure pour vous appelée Private Sub Report_Current().

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

Si vous définissez la propriété SurCurrent du formulaire dans l’interface utilisateur, sa valeur est obtenue en fonction de votre sélection dans la fenêtre Choisir un générateur, qui s’affiche lorsque vous cliquez sur le bouton ... en regard de la zone En cours dans le Fenêtre Propriétés du rapport.

• Si vous choisissez le Générateur d’expressions, la valeur sera =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 recueille simplement les valeurs de deux des 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.