Discussion :

[majudis]

Bonjour,

Voici mon probleme. Je voudrais récupérer la valeur d'une variable dans mon code VBA, et insérer cette valeur en tant que donnée dans une table.

Exemple :

J'ai une table AGE avec un seul champ : " agePersonne"

dans mon code je voudrais faire ceci

Code :

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

1
2
3
4
5
Dim nb As Integer
 
nb = 15
 
et je voudrais que la valeur de nb, autrement dit "15", soit enregistrer dans la table AGE dans la colonne "agePersonne"

quelqu'un saurait m'aider ?

Merci d'avance

[Muhad'hib]

Salut,

Par exemple avec une requete ajout. Tu construis la requete en fonction de la valeur de nb :

Code :

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

1
2
3
4
5
6
7
Sub DVP_Com()
Dim Sql As String
Dim Nb As Integer
Nb = 15
Sql = "INSERT INTO AGE ( agePersonne ) SELECT " & Nb & ";"
CurrentDb.Execute Sql
End Sub

[Invité]

Bonjour

Un point de conception important, est que l'on ne stocke pas l'âge d'une personne dans une table, mais sa date de naissance.

En effet, une date de naissance est une donnée qui n'évolue pas, tandis que l'âge change tous les ans , ce qui t'oblige à mettre à jour ce champ âge à chaque anniversaire

Il est possible de récupérer l'âge d'une personne par calcul dans une requête, à partir de sa date de naissance.

Philippe

[majudis]

Bonjour,

Merci beaucoup à tous cela fonctionne à merveille c'est vraiment chouette

Par contre, j'aurais deux INSERT TO à mettre. Et je en sais aps comment faire.

Autrement dit je voudrais dire :

insert tous els champs de la table a vers la table b et en plus insert la valeur de la variable Nb dans la colonne AGE.

une idée ?

[Invité]

Re

Bonjour

Un point de conception important, est que l'on ne stocke pas l'âge d'une personne dans une table, mais sa date de naissance.

En effet, une date de naissance est une donnée qui n'évolue pas, tandis que l'âge change tous les ans , ce qui t'oblige à mettre à jour ce champ âge à chaque anniversaire

Il est possible de récupérer l'âge d'une personne par calcul dans une requête, à partir de sa date de naissance.

Philippe

Excuses moi d'insister, car je trouve cela très important, que ferais tu quand l'âge va changer ?

Tu vas devoir reprendre tes données pour chaque personne à chaque fois qu'elle fête son anniversaire ?

Philippe

[majudis]

bonjour,

L'age n'est pas important, c'était à titre d'exemple, en réalité ma base de données comporte des champs en rapport avec mon entreprise. L'age c'est un nom que j'ai pris au hasard pour simplifier ma question

[Muhad'hib]

insert tous els champs de la table a vers la table b et en plus insert la valeur de la variable Nb dans la colonne AGE.

Pour ton exemple.

Table b (agepersonne;nompersonne)
Table Age(agepersonne;nompersonne)

Cela va donner qqchose comme ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Sub DVP_Com()
Dim Sql As String
Dim Nb As Integer
Nb = 15
'ajouter tous les enregistrement de la table "b" dans la table "age"
Sql = "INSERT INTO AGE ( agePersonne, nompersonne ) SELECT b.agePersonne, b.nompersonne FROM b;"
CurrentDb.Execute Sql
'ajoute un enregistrement  la table "age" avec nb comme agepersonne
 
Sql = "INSERT INTO AGE ( agePersonne ) SELECT " & Nb & ";"
CurrentDb.Execute Sql
End Sub