Discussion :

[remi59]

Bonjour,

J'ai une requête "croisée dynamique" qui fonctionne très bien... J'analyse et j'extrais de cette requête, en VBA, tout un tas d'informations que j'exporte vers Excel. Ceci fonctionne parfaitement sauf dans le cas où une des colonnes analysées en VBA n'existe pas dans ma requête. Dans ce cas, c'est la procédure entière qui n'est pas réalisée...

Comment tester l'existance de ceci :

Code :

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

rcs![champX]

Merci d'avance !

[temar]

Salut !

Peut-être qu'en vérifiant si il a une valeur nulle, ça marcherait ?

[remi59]

Merci pour ta réponse !

Hélas non, ça ne fonctionne pas. Comme le champ lui-même n'existe pas, il ne peut même pas avoir de valeur nulle...

Quelqu'un a-t-il une autre idée ?

[temar]

Un coup d'oeil rapide dans l'aide de VBA, et j'ai trouvé la propriété ActualSize d'un RecordSet.
J'ai jamais utilisé, mais regarde un peu si tu peux en tirer quelque chose.

[remi59]

J'essaie de regarder ceci, mais ça ne donne aucun résultat pour l'instant.

J'ai trouvé la propriété index de recordset, mais je n'arrive pas à visualiser ce qu'il contient, dans une msgbox...
Si au moins je pouvais trouver la liste des champs de mon recordset, je pourrais faire qqch...

Merci pour les réponses en tous cas !

[Tofalu]

En testant si le champ appartient à la collection Fields du recordset, et en gérant l'erreur s'il n'existe pas. Tu peux même créer une petite fonction

Pubic Function IsFieldExistInRS(oRs as DAO.Recordset, strFieldName as string) as Boolean
....

End function

[remi59]

Merci Tofalu,

Mais comment faire pour vérifier l'existence de mon champ :

Code :

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

rcs![champX]

dans :

Code :

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

rcs.fields.?

Merci d'avance, je sens qu'on touche au but !

[random]

pour éviter cet écueuil le mieux est de donner à la requête analyse croisée
des en têtes de colonnes fixes

cela se fait en sql avec une clause pivot in ("champ1","champ2"...

ou en faisant clic droit en mode qbe dans la zone où sont les tables et en
mettant à jour la propriété en tête de colonne


on peut aussi si on a le goût de la plaisanterie écrire
pivot in (select et ici on va chercher la totalité des valeurs possibles

[remi59]

Elle est belle, la vie !
Merci à tous, et principalement à Random qui m'a donné un bon tuyau, répondant parfaitement à mon besoin. Un peu moins technique, mais parfaitement fonctionnel.
Pour info, le mode qbe fonctionne très bien, je ne suis pas très doué en sql !
Bonne soirée.