Gestion champs vides dans un état

**tintin2016** · 17/08/2016, 08h56

Bonjour à tous,

Je coince devant un sujet qui à la base me paraissait simple.
J'ai une requête analyse croisée qui m'indique le nombre d'incidents et de demandes dans le mois en cours (2 colonnes avec Incidents et Demandes).
Lorsqu'il n'y a pas d'incident, je n'ai plus que la colonne Demandes qui apparaît, ou l'inverse si je n'ai pas de Demandes (jusque là tout va bien ...)
J'ai un état qui a été construit à partir de cette requête et qui fait appel aux 2 champs (Incidents et Demandes).
Tout va bien tant que j'ai des Demandes et des Incidents, mais si l'un des 2 champs est vide (n’apparaît donc pas dans la requête), je me retrouve avec une erreur dans l'état puisque j'appelle un champs qui n'existe pas à l'instant T.
Je tourne en rond et je ne vois pas comment abordé "proprement" ce sujet, auriez vous une nouvelle idée à me soumettre ?

Merci d'avance pour votre aide

**loufab** · 17/08/2016, 09h35

Bonjour,

Tu peux avoir des colonnes fixes dans une RAC. Il faut utiliser la clause IN. Comme ceci :

Code :

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

1
2
3
TRANSFORMATION aggfunction
instructionselect
PIVOT pivotfield [IN (valeur1[, valeur2[,...]])]

Ou Valeur1 sera Demande et Valeur2 Intervention ou vice versa...

Cordialement,

**ClaudeLELOUP** · 17/08/2016, 10h58

Bonjour,

Fabrice

Une fonction pour remplacer Null ou quelque chose qui n'existe pas par autre chose :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Function CeciOuCela(Ceci As Variant, Cela As Variant) As Variant
On Error GoTo GestionErreur
    If IsNull(Ceci) Then
        CeciOuCela = Cela
    Else
        CeciOuCela = Ceci
    End If
Exit Function
GestionErreur:
CeciOuCela = Cela
End Function

Dans ton cas, comme source du contrôle, au lieu de :
LeNomDeLaColonne
écris plutôt :
=CeciOuCela([LeNomDeLaColonne];"-")

Tu imprimeras ainsi un tiret si la colonne n'existe pas.

**tintin2016** · 17/08/2016, 17h17

Hello,

Merci à vous, j'ai oublié de préciser que je débutais un peu

L'option de Fabrice me semble plus à ma portée, aussi pour essayé j'ai créé un nouveau Module et pour essayer, j'ai fait un copier-coller du code fourni.
J'ai enregistré ce module avec le nom CeciOuCela et j'ai mise le code indiqué dans la source du champs de mon état, soit => =CeciOuCela([INCIDENT];"-")
Lorsque j'exécute l'état, j'ai l'erreur suivante : Le moteur de la base de données ne reconnait pas "CeciOuCela" en tant que nom de champs ou expression correcte

Je me plante ou ?

Merci d'avance

Claude

**ClaudeLELOUP** · 17/08/2016, 17h25

J'ai enregistré ce module avec le nom CeciOuCela

C'est là qu'est l'os !

Le module et la fonction ne peuvent porter le même nom.

Renomme ton module en par exemple : mFonctions.

Et dis-nous la suite...

**tintin2016** · 17/08/2016, 17h39

Merci pour la réactivité

En effet, l'erreur n'est plus sur le nom du module mais sur le nom du champs
Le moteur de la base de données ne reconnait pas "INCIDENT" en tant que nom de champs ou expression correcte
Claude

**ClaudeLELOUP** · 17/08/2016, 17h54

Dans ton premier billet, tu parlais de « Incidents ».

J'ai un état qui a été construit à partir de cette requête et qui fait appel aux 2 champs (Incidents et Demandes).

**tintin2016** · 17/08/2016, 18h02

C'était une erreur de frappe, j'ai tellement l'habitude d'avoir pleins d'incidents :-)
Le champs s'appelle bien INCIDENT sans S et je ne pige pas l'erreur ....

**loufab** · 17/08/2016, 18h14

Parce que s'il n'y a pas de contenu il n'y a pas de champ.

Je pense que tu vas être dans l'obligation d'utiliser la solution à base de SQL.

Cordialement,

**tintin2016** · 17/08/2016, 18h59

C'est bien çà, pas de contenu donc je ne vois pas le champ alors que je l'appelle dans mon état ....
Je vais voir si je m'en sors avec le SQL :-)
Merci pour votre aide

**ClaudeLELOUP** · 17/08/2016, 19h26

Effectivement, ma proposition ne tient pas la route !

**loufab** · 18/08/2016, 08h24

Les RAC sont vraiment particulières.

**ClaudeLELOUP** · 18/08/2016, 13h27

Effectivement, ma proposition ne tient pas la route !

Errare humanum est…

…perseverare finalement trouvam !

Dans mon exemple, la colonne « Appellation » est susceptible d’être absente. En d’autres termes, la source de l’état sera

[/CENTER]

Une fonction qui permet de déterminer si une colonne est présente dans une source :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Option Compare Database
Option Explicit
 
 
Public Function ColExiste(NomColonne As String, NomSource As String) As Boolean
  On Error GoTo GestionErreurs
  Dim sCol As String
  sCol = DLookup(NomColonne, NomSource)
  If Not IsNull(sCol) Then ColExiste = True
GestionErreurs:
  Select Case Err.Number
      Case 2471 ' la colonne n'existe pas
  End Select
End Function

Elle renvoie True si la colonne existe, False sinon.

J’ai deux requêtes

Respectivement :

Code sql :

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

SELECT tVins.* FROM tVins;

et

Code sql :

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

SELECT tVins.*, "-" AS Appellation FROM tVins;

Dans l’état, ces contrôles

Mais pas de source, celle-ci est aménagée à l’ouverture de l’état :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Option Compare Database
Option Explicit
 
 
Private Sub Report_Open(Cancel As Integer)
  If ColExiste("Appellation", "tVins") = True Then
      Me.RecordSource = "rSiAvec"
    Else
      Me.RecordSource = "rSiSans"
  End If
End Sub