INSERT INTO avec des variables

Fermé
sar_im Messages postés 8 Date d'inscription mardi 4 août 2015 Statut Membre Dernière intervention 4 août 2015 - Modifié par sar_im le 4/08/2015 à 16:59
PlacageGranby Messages postés 393 Date d'inscription mercredi 26 mars 2014 Statut Membre Dernière intervention 7 mars 2019 - 4 août 2015 à 21:34
Bonjour,
Je suis débutante en VBA, j'utilise access 2010, et j'ai une erreur au niveau de : values(var1,var2,var3,name1+name2+name3), j'ai essayé de mettre les "&&" mais ça ne marche pas, quelqu'un peut m'aider?

Merci d'avance
Voilà le code:
Function insertionNom()

var1 = [Forms]![LocalComplet].[lstBatiment] 'récupère l id du batiment
var2 = [Forms]![LocalComplet].[lstEtage] 'récupère l id de l'étage
var3 = [Forms]![LocalComplet].[lstLocal] 'récupère l id du local
name1 = "SELECT [nomBatiment] FROM Batiment WHERE numBat=" & var1
name2 = "SELECT [ReferenceEtage] FROM Etage WHERE idEtage=" & var2
name3 = "SELECT [nomLocal] FROM Local WHERE id=" & var3

CurrentDb.Execute "INSERT INTO LocalComplet(batiment,etage,local,nomCompletLocal)values(var1,var2,var3,name1+name2+name3)"

End Function

1 réponse

NHenry Messages postés 15114 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 4 mai 2024 331
4 août 2015 à 17:00
A la place de :
..(var1,...
Essayes
...(" & var1 & ",...
0
sar_im Messages postés 8 Date d'inscription mardi 4 août 2015 Statut Membre Dernière intervention 4 août 2015
4 août 2015 à 17:02
Je l'ai fait ça ne marche pas!
0
NHenry Messages postés 15114 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 4 mai 2024 331
4 août 2015 à 17:05
Montres-nous le code que tu obtiens avec cela.
0
sar_im Messages postés 8 Date d'inscription mardi 4 août 2015 Statut Membre Dernière intervention 4 août 2015
4 août 2015 à 17:07
Function insertionNom()

var1 = [Forms]![LocalComplet].[lstBatiment] 'récupère l id du batiment
var2 = [Forms]![LocalComplet].[lstEtage] 'récupère l id de l'étage
var3 = [Forms]![LocalComplet].[lstLocal] 'récupère l id du local
name1 = "SELECT [nomBatiment] FROM Batiment WHERE numBat=" & var1
name2 = "SELECT [ReferenceEtage] FROM Etage WHERE idEtage=" & var2
name3 = "SELECT [nomLocal] FROM Local WHERE id=" & var3


CurrentDb.Execute "INSERT INTO LocalComplet(batiment,etage,local,nomCompletLocal)values("&var1&","&var2&","&var3&","&name1+name2+name3&")"
End Function
0
NHenry Messages postés 15114 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 4 mai 2024 331
4 août 2015 à 17:18
As-tu regard la requête SQL que ça te génère ?
As-tu mis des ( ) pour marquer les requêtes imbriquées ?
0
sar_im Messages postés 8 Date d'inscription mardi 4 août 2015 Statut Membre Dernière intervention 4 août 2015
4 août 2015 à 17:19
Non, et franchement je ne vois pas comment.
0