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

A voir également:

INSERT INTO avec des variables
Touche insert - Guide
Disk boot failure insert system disk and press enter - Guide
Insertion table des matières word - Guide
Insert boot media in selected boot device and press a key ✓ - Forum Windows 10
Monitor will go into standby mode ✓ - Forum Matériel & Système

1 réponse

Réponse 1 / 1

NHenry Messages postés 15200 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 3 avril 2025 355
4 août 2015 à 17:00

A la place de :
..(var1,...
Essayes
...(" & var1 & ",...

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!

NHenry Messages postés 15200 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 3 avril 2025 355
4 août 2015 à 17:05

Montres-nous le code que tu obtiens avec cela.

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

NHenry Messages postés 15200 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 3 avril 2025 355
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 ?

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.

Discussions similaires

Page bleue : your PC ran into a problem and needs to restart

Bonjour à tous,
Actuellement un écran bleu d'erreur systématique m'empêche d'ouvrir Windows.
Il redémarre mais échoue.
Il enchaîne ensuite sur "preparing automatic repair" mais échoue également
Je choisis ensuite "advanced options".
Puis les étapes suivantes :
Troubleshoot puis Advanced options. (Pour ne pas choisir reset this pc et éviter un formatage).
Sur Advanced options plusieurs choix se présentent :
Startup repair
startup settings
Command prompt
Uninstall updates
UEFI firmware
Systèm restiez
J'ai essayé uninstall updates et système restore mais toujours rien !
Quelqu'un peut-il m'a...

manque touche insert sur clavier

Bonjour,
voila j'utilise des jeux ou des logiciels qui desfois me disent "appuyez sur la touche insert de votre clavier pour passer à l'étape suivante" et la j'ai regarder mon clavier et j'ai remarquer que je n'est pas de touche insert il y a une grosse touche Suppr ou sur mon ancien clavier il y avait aussi Insert au dessus des fléches ... qqn peut me dire s'il a le même probléme ou comment le régler ??

touche inser sur elite book hp

Bonjour,je viens d'acquérir un elite book hp et je ne trouve pas la touche inser,
du coup je ne peux pas travaailler sur mon logiciel de compta quadra.
merci

Activer touche insert sur ASUS UX32A

Bonjour,

Je viens d'acheter un ASUS UX32A. J'essaie d'activer la touche insert, qui est généralement jugée inutile.

Elle est fusionné à la touche delete et défil. J'ai essayé d'activer insert a partir de Fn+insert sans succès. J'ai essayé avec shift+INSERT et CTRL+INSERT ET ALT+INSERT ET ALT caR+INSERT. Je ne parviens pas à l'activer.
La seule façon que j'ai trouvé d'avoir un effet semblable c'est en affichant le clavier visuel. Cependant, je dois cliquer sur la touche virtuelle INS à chaque utilisation (par exemple, dans une feuille excel je dois resélectionner la touche INS à chaque case modifier. Cela n'est pas très utile. Si quelqu'un pouvait m'expl...

Accéder à la fonction secondaire "insert" de ma touche "Delete"

Hello,

je possède un portable Asus K73S ! Sur le clavier de celui-ci, les touches "insert" et "delete" ne font qu'une ! En effet, sur la touche où est gravé le mot "Delete" est également gravé en plus petit le mot "insert". J'ai essayé d'accéder à la fonction "insert" de la touche en appuyant simplement dessus ou en appuyant simultanément sur "alt gr", qui est une touche permettant généralement d'accéder aux fonctions secondaires des touches de clavier. Au passage, j'ai aussi tenté avec "alt" et "ctrl". Hélas, je n'ai pas obtenu de résultat !

D'où ma question : comment accéder à la fonction secondaire "insert" de ma touche ?

Merci !