INSERT INTO avec des variables

sar_im Messages postés 8 Statut Membre -  
PlacageGranby Messages postés 402 Statut Membre -
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

  1. NHenry Messages postés 15235 Date d'inscription   Statut Modérateur Dernière intervention   387
     
    A la place de :
    ..(var1,...
    Essayes
    ...(" & var1 & ",...
    0
    1. sar_im Messages postés 8 Statut Membre
       
      Je l'ai fait ça ne marche pas!
      0
    2. NHenry Messages postés 15235 Date d'inscription   Statut Modérateur Dernière intervention   387
       
      Montres-nous le code que tu obtiens avec cela.
      0
    3. sar_im Messages postés 8 Statut Membre
       
      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
    4. NHenry Messages postés 15235 Date d'inscription   Statut Modérateur Dernière intervention   387
       
      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
    5. sar_im Messages postés 8 Statut Membre
       
      Non, et franchement je ne vois pas comment.
      0