Discussion :

[majudis]

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 :

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

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 :

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

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

[marot_r]

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 :

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

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 :

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

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+

[majudis]

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