Query def sur intitulé de champs [Résolu]

[Nako_lito]

Bonjour,

Dans le code d'un formulaire, j'essaye de changer l'intitulé d'une colonne en code VBA a l'aide d'un query def.

(le but est de remplir toute la colonne de ce tableau avec une même valeur)

voici le code :

Code :

1
2
3
4
5
6
7
    'création de l'objet query def
    Dim Qry As DAO.QueryDef
'initialisation de query def sur la requete "PERCO_Generique"
    Set Qry = CurrentDb.QueryDefs!PERCO_Generique
 
'affecte la valeur du champs du code dispositif sur la requete
        Qry.Fields("Code dispositif: %") = "Code dispositif: " & leCodeDispo

L'intitulé de colonne dans ma requête est : Code dispositif : 0000064936, mais la valeur apres les deux points change (d'ou le %).

Là est ma question, comment dois-je synthaxer ma ligne de code pour que VBA comprenne que je veux changer l'intitulé de colonne ? est ce qu'il faut utiliser %, *, mettre des crochet ou autre ?

je vous remercie par avance.

[Kloun]

Bonjour,

Dans le code d'un formulaire, j'essaye de changer l'intitulé d'une colonne en code VBA a l'aide d'un query def.

(le but est de remplir toute la colonne de ce tableau avec une même valeur)

Tu veux changer l'intitulé du champ ou alimenter le champ avec une valeur spécifique ?

[Nako_lito]

quand on créé un requete avec l'assistant d'access, on a la possibilité de rajouter un champ avec une valeur fixe: ex: Code dispo : 000565656
et quand on exécutera la requete, il y aura une colonne intitulée : Code dispo, et elle sera remplie avec la valeur 000565656

Donc mon but est de remplir une colonne avec une valeur fixe.

[Kloun]

- Récupérer le SQL de la requête.
ex : select toto as CodeDispositif
- Remplacer "toto as CodeDispositif" par "'0000064936' as Code dispositif"
- Sauver la requête avec le nouveau SQL, sous un autre nom.

[Nako_lito]

Ca ok. Pour remplir une colonne avec une meme valeur c'est bien
'000066458' as [Code Dispositif].

ce que je ne sais pas faire en vba c'est: trouver le champs [Code dispositif] et lui affecter une valeur.

Code :

Qry.Fields("Code dispositif: %") = "Code dispositif: " & leCodeDispo

quand je mets ce code, il cherche un champs s'appelant "Code dispositif" suivit de qqc. Or si je comprend bien, mon champs ne s'appele pas "Code dispositif" mais "0000066458" ? il faut donc que je cherche un champs commencant par "0000" et suivit par un chiffre pour lui attribuer une nouvelle valeur ?

[Kloun]

Code :

1
2
3
4
5
6
7
8
'création de l'objet query def
Dim Qry As DAO.QueryDef
Dim iSQL as string
'initialisation de query def sur la requete "PERCO_Generique"
    Set Qry = CurrentDb.QueryDefs!PERCO_Generique
    iSQL = Qry.SQL
    ' Là, il faut travailler iSQL pour trouver/remplacer la chaîne qui va bien
    'puis créer une nouvelle requête dont le SQL est iSQL modifié

[Nako_lito]

J'ai trouvé ma solution :
ce que Kloun a dit. J'ai récup le SQL et j'ai changé les champs par mes variables.

Merci !