OVH Cloud OVH Cloud

Combo avec 2 valeurs

2 réponses
Avatar
If
Bonsoir,

J'aimerais savoir si cela est possible

Au départ d'un combo box dans un formulaire d'introduction de données,
j'aimerais savoir s'il est possible ce copier des données de deux champs
vers deux autres champs (tables différentes)
Le combo box sélectionnerais les données Col 1 et Col2 de la table1 et les
copirait dans la table2 dans les Col1 et Col2 de la table de destination.

Un tuto est disponble ?

2 réponses

Avatar
3stone
Salut Si,



Au départ d'un combo box dans un formulaire d'introduction de données,
j'aimerais savoir s'il est possible ce copier des données de deux champs
vers deux autres champs (tables différentes)
Le combo box sélectionnerais les données Col 1 et Col2 de la table1 et les
copirait dans la table2 dans les Col1 et Col2 de la table de destination.




Regarde le "Insert Into"

CurrentDb.Execute "Insert Into Table2 (champ1, champ2) Values (" _
& Me!Liste.Col1 & ", " & Me!Liste.Col2 ");"

Si les valeurs sont de type String, entourer pas des apostrophes...

... Values ('" & Me!Liste.Col1 & "', '" & Me!Liste.Col2 & "');"



--
A+
Pierre (3stone) Access MVP
~~~~~~~~~~~~~~~~~~~~~~~
http://users.skynet.be/mpfa
http://users.skynet.be/accesshome

Avatar
If
Merci à toi


"3stone" a écrit dans le message de news:

Salut Si,



Au départ d'un combo box dans un formulaire d'introduction de données,
j'aimerais savoir s'il est possible ce copier des données de deux champs
vers deux autres champs (tables différentes)
Le combo box sélectionnerais les données Col 1 et Col2 de la table1 et
les
copirait dans la table2 dans les Col1 et Col2 de la table de destination.




Regarde le "Insert Into"

CurrentDb.Execute "Insert Into Table2 (champ1, champ2) Values (" _
& Me!Liste.Col1 & ", " & Me!Liste.Col2 ");"

Si les valeurs sont de type String, entourer pas des apostrophes...

... Values ('" & Me!Liste.Col1 & "', '" & Me!Liste.Col2 & "');"



--
A+
Pierre (3stone) Access MVP
~~~~~~~~~~~~~~~~~~~~~~~
http://users.skynet.be/mpfa
http://users.skynet.be/accesshome