Acceder à un champ recordset paramétré

Question

Bonjour,

Dans une appli en cours de développement, je créé une table dont les noms de champ peuvent varier.
 
J'explique déjà cette partie: je rentre une date dans l'année, le prog calcule j+13, met à jour le texte d'une requête (dont avec dateDébut et DateFin), puis lance la requête.

J'obtiens ainsi un recordset qui contient un champ jour avec plusieurs fois le même jour à l'intérieur, mais des noms et des évènements différents sur chaque ligne.

A partir de ce recordset, je recherche les dates contenues dans le champ jour, je les transforme en string. J'obtiens au final 14 string différentes. Avec ces string, je créé une table dont les champs sont:
"code nom" et les 14 string.

Pour remplir cette table, j'utilise un recordset que je vais appeler ici "rstMaTable". Lors du remplissage du 1er champ "code nom", pas de problème, il ne varie pas. 

Mon problème est donc pour accéder à chacun des champs. Comment faire pour que je puisse adresser 
rstMaTable![2ème champ] et lui affecter une valeur ????

des essais du genre 
rstMaTable!["'" & 2ème champ & "']" 
ne donnent rien.

Si quelqu'un a une idée!!!

Merci d'avance.

chaibat05 · Answer

Salut,

tu as le choix entre:

> rstMaTable![" & 2ème champ & "]" (sas quotes)
> rstMaTable.Fields('" & 2ème champ & "')" (avec quotes)

> ou alors avec le n° d' ordre du champ(position de la colonne dans la table)
   rstMaTable.Fields(" & Num & ")"

cs_jyvaut75 · Answer

Bonjour,

Je suis absolument désolé, j'ai essayé les trois versions, ça ne marche pas.

Auparavant, j'avais également essayé en remplaçant la variable date dtedatechamp par une variable string.

Mes variables ne sont pas vides.

Le nom du champ étant ici (et temporairement) 05/03/2007 la ligne
        rstStrNomTable![05/03/2007] = ![Code]

est efficace.

Ci-dessous le bout de code avec les différents essais.

        rstStrNomTable.AddNew
        rstStrNomTable![nosalarie] = ![CodeNom]
        Rem rstStrNomTable![ & dtedatechamp & ] = ![Code]
        Rem rstStrNomTable.Fields(" & dtedatechamp & ") = ![Code]
        rstStrNomTable.Fields(" & 0 & ") = ![Code]
        rstStrNomTable.Update
        rstStrNomTable.Move 0, LastModified
        .MoveNext

chaibat05 · Answer

pour les champs date il faut des dièses (#) de part et d' autre de la variable
Rem rstStrNomTable.Fields(#" & dtedatechamp & "#) = ![Code]

<hr />* Rolling

chaibat05 · Answer

plus précisement, lestrois écritues :

Rem rstStrNomTable!& dtedatechamp & "# " = ![Code]
Rem rstStrNomTable.Fields(#'" & dtedatechamp & "'#)" = ![Code]
rstStrNomTable.Fields(" & varNum & ")" = ![Code]

<hr />* Rolling

chaibat05 · Answer

désolé ! confusion totale ...
je reviens...

<hr />* Rolling

chaibat05 · Answer

voilà...
dans ton exemple t' as oublié quelqes quotes

e.AddNew
rstStrNomTable![nosalarie] = ![CodeNom]  'si nosalarie est le nom du champ et non une variable
 Rem rstStrNomTable![" & dtedatechamp & "]" = ![Code]
 Rem rstStrNomTable.Fields('" & dtedatechamp & "')" = ![Code]
 rstStrNomTable.Fields(" & 0 & ")" = ![Code]
 rstStrNomTable.Update
 rstStrNomTable.Move 0, LastModified
 .MoveNext

ps: dans le pécésent post j' ai confondu nom du champ et on contenu

<hr />* Rolling

chaibat05 · Answer

gggggggrrrrrrrrrrrrrrrrrrrrrrrr!!!


Bon ! 


variable string
 s="dtedatechamp"
rstStrNomTable.Fields("" & s & "") = ![Code]


variable numérique
p=1
rstStrNomTable.Fields.Fields(p) = ![Code]


ps: si un admin passe par là : demande suppression des 4 
derniers posts d' avant ce dernier...Merci.

cs_jyvaut75 · Answer

Bonjour chaibat05,

Merci beaucoup pour l'aide, ça fonctionne

Acceder à un champ recordset paramétré

8 réponses

Votre réponse

Discussions similaires