Discussion :

[sebastien-16600]

Bonjour,
en cherchant dans le forum, j'ai reussi a trouver la solution a un de mes problemes qui consistait a pouvoir lire les donnees dans une base de données et eventuellemnt de pouvoir en modifier quelques unes.
Bien sur il a fallu que je modifie le code pour qu'il s'adapte a mes données contenu dans mes tables,
J'ai reussi a l'adapter pour ce qui est de consulter les données mais j'ai un probleme quand il s'agit de les mettre a jour...
J'ai le message "erreur de syntaxe 3144", J'ai chercher mais comme je debute je ne trouve pas la solution...
Ce qui me trouble c'est que quand j'essaye de mettre a jour une seule données cela fonctionne (pour cela je bloque les lignes de codes ne mettant un " ' " devant... Mais dés que je mets tout le code ca bloque...
je vous donne le code que j'utilise:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub BP_Enregistrer_Click()
Dim SMOD As String
SMOD = ""
DoCmd.SetWarnings False 'Désactivation des messages acess
 
'Création du code SQL
SMOD = "UPDATE [Escadron] "
SMOD = SMOD & "SET Escadron.Grade = '" & Me.Grade & "', "
SMOD = SMOD & "SET Escadron.Peloton = '" & Me.Peloton & "', "
SMOD = SMOD & "SET Escadron.Situation_Familiale = '" & Me.Situation_Familiale & "', "
SSQL = SSQL & "Escadron.N°_Tel_Portable = '" & Me.N°_Tel_Portable & "' "
SMOD = SMOD & " WHERE ((([Escadron].[Nom]) = '" & Me.Nom & "' ));"
'Lancement du SQL
DoCmd.RunSQL (SMOD)
 
DoCmd.SetWarnings True   'Réactivation des message access
 
'Gestion affichage
DoCmd.OpenForm "Fr_Visualisation", , , "[Escadron].[Nom] = '" & Me.Nom & "'"
DoCmd.Close acForm, "FR_modification"
End Sub

En esperant avoir été assez clair je vous remercie pour votre aide...

[f-leb]

bonsoir,

La syntaxe SQL pour mettre plusieurs champs à jour est:

Code sq :

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

1
2
UPDATE [LaTable] 
SET champ1="xx", champ2="yy" , champ3 = "zz" WHERE ...

Autrement dit, il y a trop de SET dans ta requête :

Code :

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

1
2
3
4
5
SMOD = "UPDATE [Escadron] "
SMOD = SMOD & "SET Escadron.Grade = '" & Me.Grade & "', "
SMOD = SMOD & "SET Escadron.Peloton = '" & Me.Peloton & "', "
SMOD = SMOD & "SET Escadron.Situation_Familiale = '" & Me.Situation_Familiale & "', "
SSQL = SSQL & "Escadron.N°_Tel_Portable = '" & Me.N°_Tel_Portable & "' "

[sebastien-16600]

Merci pour ta reponse mais en fait meme en enlevant les SET ca me fait la même erreur.
La ligne qui commence par SSQL commence comme les autres, j'ai juste oublié de la modifier avant de copier mon code. Merci

[f-leb]

Code :

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

1
2
SMOD = SMOD & ...
SSQL = SSQL & ...

c'est SMOD ou SSQL mais sans doute pas les deux.

[sebastien-16600]

Bonjour c'est SMOD, je l'ai nommé ainsi pour me souvenir que c'est pour faire des modifications.

[f-leb]

... j'ai juste oublié de la modifier avant de copier mon code

Trouver des erreurs de syntaxe dans un code avec des erreurs de copié-collé, tu ne nous facilites pas le travail…

Merci de poster le code exact, sans erreur de copié/collé.

[sebastien-16600]

Bon merci pour votre aide, j'ai trouvé mon erreur. En regardant le nom de mes colonnes dans mes tables, j'ai remplacé tout les espaces par des _ et j'ai enlevé les accents. J'ai ensuite recopié cette bonne orthographe dans mon code et ca marche nickel. Merci encore de vous etre penché sur mon probleme