Remarque
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de vous connecter ou de modifier des répertoires.
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de modifier des répertoires.
Utilisez la propriété FormatCount pour déterminer le nombre de fois où la propriété OnFormat a été évaluée pour la section active d’un rapport. Entier en lecture/écriture.
Syntaxe
expression. FormatCount
expression Variable qui représente un objet Report .
Remarques
Utilisez cette propriété uniquement dans une procédure événementielle spécifiée par le paramètre de propriété OnFormat d’une section.
Cette propriété n'est pas disponible en mode Création d'état.
Microsoft Access incrémente la propriété FormatCount chaque fois que le paramètre de la propriété OnFormat est évalué pour la section active. Lors du formatage de la section suivante, Microsoft Access réinitialise la propriété FormatCount à 1.
Dans certaines circonstances, Microsoft Access ne formate plusieurs fois une section. Par exemple, vous pouvez créer un état dans lequel la propriété KeepTogether (SectionInsécable) pour la section détail est définie sur Oui. Lorsque Microsoft Access atteint le bas d'une page, il met en forme la section détail active pour vérifier si elle tient. Si elle ne rentre pas, Microsoft Access déplace vers la page suivante et met en forme la section détail à nouveau. Dans ce cas, le paramètre de la propriété FormatCount pour la section détail est 2, car il a été mis en forme deux fois avant d'être imprimée.
Utilisez la propriété FormatCount pour vous assurer qu’une opération qui affecte la mise en forme n’est exécutée qu’une seule fois pour une section.
Exemple
Dans l’exemple suivant, la fonction DLookup est évaluée uniquement lorsque la propriété FormatCount a la valeur 1.
Private Sub Detail_Format(Cancel As Integer, _
FormatCount As Integer)
Const conBold = 700
Const conNormal = 400
If FormatCount = 1 Then
If DLookup("CompanyName", _
"Customers", "CustomerID = Reports!" _
& "[Customer Labels]!CustomerID") _
Like "B*" Then
CompanyNameLine.FontWeight = conBold
Else
CompanyNameLine.FontWeight = conNormal
End If
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.