Discussion :

[pengoijou]

Bonjour,

J'ai un état qui comporte 2 sous-état. Dans mon état principal j'ai besoin d'afficher la somme d'un élément du sous-etat1 avec un élément du sous-etat2 (exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

[Reports]![E_Principal]![SE_1].Report![Valeur]+[Reports]![E_Principal]![SE_2].Report![Valeur])

. Le problème se pose lorsque un des sous-etat ne renvoi aucune enregistrement car le sous-etat n'est plus affiché et le l'element n'existe pas. Comment je peux vérifier l'existence des éléments des sous-etats avant de les additionner.
merci d'avance pour votre aide.

[Jean-Philippe André]

salut,
pour parer aux eventuelles valeurs Null, tu peux utiliser la fonction Nz().
Sa syntaxe est disponible dans l'aide en ligne

[pengoijou]

pour parer aux eventuelles valeurs Null, tu peux utiliser la fonctionNz().

J'utilisais bien nz mais cela ne suffit pas. En fait il ne s'agit pas de valeur Null car quand le sous-etat ne renvoi aucune donnée ses éléments n'existent pas. J'ai essayé de faire une fonction qui recupère le code erreur, mais j'arrive seulement à tester l'existence dans un état pas le sous état;

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Function ControlExists( _
  ByVal strReportName As String, _
  ByVal strControlName As String) As Boolean
 
  Dim ctl As Access.Control
 
  ' Tenter de récupérer l'objet sur le formulaire
  On Error Resume Next
  Set ctl = Reports(strReportName)(strControlName)
 
  ' S'il n'y a pas eu d'erreur, l'objet existe
  ' ... et inversement :-)
  ControlExists = (Err.Number = 0)
  Set ctl = Nothing
End Function