Insérer valeur d'une variable dans une table

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:

---

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

Salut,

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

Code:

---

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

---

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 :mouarf:, ce qui t'oblige à mettre à jour ce champ âge à chaque anniversaire :aie:

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

Bonjour,

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

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 ?

Re

Citation:

---

Envoyé par Philippe JOCHMANS

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 :mouarf:, ce qui t'oblige à mettre à jour ce champ âge à chaque anniversaire :aie:

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

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 ;)

Citation:

---

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:

---

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

---

oui mais moi je veux que les deux requete sois réunies en une seule, parce que en séparant en deux requettes comme tu as fait, ça ne va pas me mettre tout sur la meme ligne de donnée, or moi c'est ce que je veux. Je veux que l'age sois sur la meme ligne que le reste dans ma table

Mal compris alors.

Et ça :

Code:

---

1 2 3 4 5 6 7

Sub DVP_Com() Dim Sql As String Dim Nb As Integer Nb = 15 Sql = "INSERT INTO AGE ( nompersonne, agePersonne ) SELECT b.nompersonne, " & Nb & " FROM b;" CurrentDb.Execute Sql End Sub

---

Cela ajoute dans la table age les enregistrements de la table B pour le champ nompersonne et la valeur de nb pour le champ agepersonne
C'est ce dont tu as besoin ?

Bonjour membres du forum !
Suis concerné par ce sujet "Insérer valeur d'une variable dans une table". En effet, j'ai une table nommée"MODALITEPAYEMENT" dont les
champs: - NumModalite (Type de données: Numérique)
- modalite (Type de données: Texte court).
Mon objectif est de pouvoir insérer le dernier numéro de ce champ"NumModalite" et l'expression " e Versement" du champ"modalite" dans la prochaine ligne du champ "modalite" grace à un bouton de commande.
Exemple: si le dernier NumModalite est: 1 alors la dernière ligne vide du champ modalite reçoit (1er Versement) sinon
le champ modalite reçoit (2e Versement) , etc.
NB: l'insertion se fait dans la même table MODALITEPAYEMENT.
Pièce jointe 428342
Cordialement.