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

[majudis]

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

[Muhad'hib]

Mal compris alors.

Et ça :

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 ( 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 ?

[morobaboumar]

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.

Cordialement.