Discussion :

[Damsou]

Bonjour à tous !!
j'ai fait une requete avec VBA mais ca me met comme erreur "Erreur de syntaxe dans l'instruction INSERT INTO"

Voilà ma requête:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DoCmd.RunSQL ("INSERT INTO [Déplacement](Motif_depl, Date_depl, Durée_depl, Logiciel, Matricule_empl#, Num_heb#, Nom_ville) values('" & Me.txt_motif.Value & "', '" & Me.txt_date.Value & "', '" & Me.txt_durée.Value & "', '" & Me.txt_logiciel.Value & "', '" & Me.txt_mat.Value & "', '" & Me.Modifiable43.Column(0) & "')")

quelqu'un peut-il me dire où se trouve mon erreur car moi je ne la trouve pas !

merci

[Demco]

Fais un Debug.Print de :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

"INSERT INTO [Déplacement](Motif_depl, Date_depl, Durée_depl, Logiciel, Matricule_empl#, Num_heb#, Nom_ville) values('" & Me.txt_motif.Value & "', '" & Me.txt_date.Value & "', '" & Me.txt_durée.Value & "', '" & Me.txt_logiciel.Value & "', '" & Me.txt_mat.Value & "', '" & Me.Modifiable43.Column(0) & "')"

Puis regarde ce qui ne va pas.
Si tu ne vois aucune erreur évidente copie la requête et exécute la dans le requêteur d'Access.
Essaie de te souvenir de cette méthode pour tes prochaines concaténations, c'est un bon moyen de débuguer.

En espérant t'aider.

[Damsou]

euh... comment ca marche le debug.print j'ai essayé de le mettre avant la requête mais ca me met sur "RunSQL" et ca me met "Erreur de compilation: fonction ou variable attendue"

[Damsou]

ok ! j'ai fait ca:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
sql = "INSERT INTO [Déplacement](Motif_depl, Date_depl, Durée_depl, Logiciel, Matricule_empl#, Num_heb#, Nom_ville) values('" & Me.txt_motif.Value & "', '" & Me.txt_date.Value & "', '" & Me.txt_durée.Value & "', '" & Me.txt_logiciel.Value & "', '" & Me.txt_mat.Value & "', '" & Me.Modifiable43.Column(0) & "')"
Debug.Print sql

et ca me met aucune erreur, aucun message !! que dois-je faire ? c'est quoi le requêteur d'access ??

[nico.chev]

oui, je serai interresse de savoir comment marche debug.print et savoir comment faire pour lancer un "requeteur"

Cette methode ^pour debugger m'interresse, ca marche ausii pour le vba, car actuellemnt je mets des points d'arret partout.

[Demco]

Pour le debug.Print.
Dans un module (où il y a du code VBA) fais ctrl+g, tu verras apparaître la fenêtre d'exécution.
Après avoir chargé la variable sql écris :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Debug.Print sql

Exécute ton code comme d'habitude.
Ensuite retourne là où tu as ton code et tu verras que le contenu de "sql" sera dans la fenêtre d'exécution. Tu auras donc affiché le teste de la requête que tu as généré.

Ensuite, si tu ne vois toujours pas l'erreur, il te suffit de copier le texte de la fenêtre d'exécution (la requête), de créer un nouvelle requête et d'y coller le contenu de la requête et de l'exécuter afin de tester.

En espérant t'aider.

[nico.chev]

demoniaque

merci demco

[DMboup]

Damsou met un ; avant le " final.

As tu un champ numéro auto dans ta table?

[Damsou]

oui j'ai un numéro auto qui sert d'identifiant !

[DMboup]

Bien.

Maintenant change les Me.NomChamp.Value en Me.NomChamp seulement et regarde ce que ca donne

[Damsou]

ca revient au meme ! j'ai toujours une erreur ! il me dit que c'est dans la syntaxe de mon insert into voilà le rsultat du debug.print:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
INSERT INTO [Déplacement](Motif_depl, Date_depl, Durée_depl, Logiciel, Matricule_empl#, Num_heb#, Nom_ville) values('f', '12/02/2200', '3', 'netbackup', 'JF1', 1, 'lyon');

[DMboup]

As tu mis le ; avant le "?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
DoCmd.RunSQL ("INSERT INTO [Déplacement](Motif_depl, Date_depl, Durée_depl, Logiciel, Matricule_empl#, Num_heb#, Nom_ville) values('" & Me.txt_motif & "', '" & Me.txt_date & "', '" & Me.txt_durée & "', '" & Me.txt_logiciel & "', '" & Me.txt_mat & "', '" & Me.Modifiable43.Column(0) & "');")

est ce Num_heb# ton numéro auto?

[Damsou]

voilà mon code en VBA:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DoCmd.RunSQL ("INSERT INTO [Déplacement](Motif_depl, Date_depl, Durée_depl, Logiciel, Matricule_empl#, Num_heb#, Nom_ville) values('" & Me.txt_motif & "', '" & Me.txt_date & "', '" & Me.txt_durée & "', '" & Me.txt_logiciel & "', '" & Me.txt_mat & "', " & Me.Modifiable43.Column(0) & ", '" & Me.txt_vil_dep & "');")

non le mon numéro auto est num_depl mais je ne le rempli pas ici car comme il été en auto il doit se remplir tout seul, non ?

[DMboup]

Ca me semble correcte.
Juste pour Me.Modifiable43.Column(0) remplace le par Me.Modifiable43

[Damsou]

j'ai toujours une erreur sur cet syntaxe de l'Insert into !
je sais pas d'ou ca vient là !!

[Damsou]

ok ! j'ai du nouveau !!

j'ai passé dans l'outil requête d'access comme il m'avait été conseillé auparavant et apparament l'erreur viendré du # !
Quelqu'un sait pourquoi ? sinon il faut juste changé le # mais j'aimerais évité cette hypothèse afin de ne pas à avoir à retouché tous ce que j'ai déjà fait !

si il n'y a pas d'autre solution, ben je devrais m'y plier de toute facon !

[DMboup]

Renomme le toujours pour voir. Si c'est ca le problème tu change tous

[Damsou]

ca marche ! la requête passe ! seuelement ca me dit que ca peut pas ajouter d'enregistrement à cause d'une violation de clé ! qu'est-ce que celà signifi ?

[DMboup]

Regarde si tu applique le contrôle d'intégrité avec d'autre tables

[Damsou]

ca veut dire que dans les relations les propriétés des traits noirs y a la case "aplliqué l'intégrité référentielleé cochée ?

si c'est ca, oui j'ai coché ces cases !