Définir un champ de table comme valeur de variable

Bonjour,

J'ai une table AGE avec un champ "AgePersonne"

J'aimerai récupérer dans une variable la vlaleur de ce champ

J'ai essayé cecie :

Code:

---

1 2 3 4 5

Dim variable As Integer   variable = AGE.AgePersonne

---

Sa ne fonctionne pas ! J'ai donc essayé avec un insert into

Code:

---

1 2 3 4 5 6 7 8

Dim variable As Integer   sql= "INSERT INTO " & variable & " " & _ "SELECT [AgePersonne]" & _ "FROM [AGE];" CurrentDb.Execute sql

---

9a ne fonctionne pas non plus grrr !

bref vous avez compris ce que j'essai de faire ?

Si quelqu'un pouvait m'aider ce serait chouette


Merci infiniment d'avance

Généralement on ne garde pas des valeurs calculables dans une table, on garde les éléments nécessaire au calcul. Ici je garderai la date de naissance plutôt que l'âge de la personne et je ferai une requête qui cacule l'âge.

Maintenant pour répondre à ta question :

Code:

---

1 2 3 4 5 6 7 8 9 10

dim db as dao.database:set db=currentdb dim r as dao.recordset:set r=db.openrecordset("AGE") Dim agePersonnne As Integer:'J'ai changé vraibale pour un nom qui décrit ce que la variable contient, ça rend généralement le code plus compréhensible.   'Là je suppose qu'il n'y a qu'un et un seul enregistrement dans ta table agePersonne=r![AgePersonne]   r.close:set r=nothing db.close:set db=nothing

---

si tu as pluisieurs enregistrements dans ta table il faut faire :

Code:

---

1 2 3 4 5 6 7 8

r.findfirst("ClefPersonne=" & ClefPersonne)   if not r.nomatch then agePersonne=r![AgePersonne] :'r![AgePersonne] est la forme abrégée de r.fields("AgePersonne") else agePersonne=-1 : 'Ou tout autre valeur qui a un sens pour ton application end if

---

À propos du SQL, le "Insert Into" ne sert que pour mettre une valeur dans la table. Pour lire une valeur il faut utiliser "select".

Là j'ai utilisé la librairie DAO pour accéder aux données mais tu peux aussi utiliser la librairie ADO dont la syntaxe est différente et que je ne maitrise pas.

A+

Bonjour,

Merci de ta réponse ! C'est bon ça fonctionne à merveille ! mais je ne savais aps que c'était aussi complexe. Je pensais qu'il y avait plus facile. En tout cas ça fonctionne c'esty ce que je voulais ! merci beaucoup ;)