Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Fonction SQL UPDATE

15 réponses
Avatar
velekinca
Bonjour,

j'ai un problème avec du code sql dans ma base Access, pouvez-vous m'aider
svp...

j'ai donc le même code dans mes requêtes, et ca fonctionne parfaitement,

j'ai n'ai fait que copié collé dans un module, et ca ne marche pas, il y a
un message qui apparait dès le départ.

voici le message d'erreur : "Erreur d'exécution '3075' : Erreur de syntaxe
(opérateur absent) dans l'expression '0WHERE [C1a-Entretiens].[Rdv] is Null'.

pouvez-vous m'aider svp.

Merci

voici mon code :

Sub MàJetAjout()

Dim sql1, sql2, sql3, sql4, sql5, sql6, sql7, sql8, sql9, sql10 As String


sql1 = "INSERT INTO [C1b-Codification FdR glob]" & "SELECT [R1b -
Codification Global].*" & "FROM [R1b - Codification Global];"

sql2 = "UPDATE [C1a-Entretiens] SET [C1a-Entretiens].Rdv = 0" & "WHERE
[C1a-Entretiens].[Rdv] is Null;"

sql3 = "INSERT INTO [C3a-TTM 4-5 mois] ( Agence, [Lieu], CP, [No-Pers],
[NomAss], [PreNomAss], SP, [Date-Entree-Poss] )" & "SELECT [M-DEMA].[Agence],
[M-DEMA].[Lieu], [M-DEMA].[CP], [M-DEMA].[No-Pers], [M-DEMA].[NomAss],
[M-DEMA].[PreNomAss], [M-DEMA].[SP], [M-DEMA].[Date-Entree-Poss]" & "FROM
[M-DEMA]" & "GROUP BY [M-DEMA].[Agence], [M-DEMA].[Lieu], [M-DEMA].[CP],
[M-DEMA].[No-Pers], [M-DEMA].[NomAss], [M-DEMA].[PreNomAss], [M-DEMA].[SP],
[M-DEMA].[Date-Entree-Poss]" & "ORDER BY [M-DEMA].[Agence], [M-DEMA].[Lieu],
[M-DEMA].[CP], [M-DEMA].[No-Pers];"

sql4 = "INSERT INTO [C3a-TTM 5-6 mois] ( Agence, [Lieu], CP, [No-Pers],
[NomAss], [PreNomAss], SP, [Date-Entree-Poss] )" & "SELECT
[M-DEMAb].[Agence], [M-DEMAb].[Lieu], [M-DEMAb].[CP], [M-DEMAb].[No-Pers],
[M-DEMAb].[NomAss], [M-DEMAb].[PreNomAss], [M-DEMAb].[SP],
[M-DEMAb].[Date-Entree-Poss]" & "FROM [M-DEMAb]" & "GROUP BY
[M-DEMAb].[Agence], [M-DEMAb].[Lieu], [M-DEMAb].[CP], [M-DEMAb].[No-Pers],
[M-DEMAb].[NomAss], [M-DEMAb].[PreNomAss], [M-DEMAb].[SP],
[M-DEMAb].[Date-Entree-Poss]" & "ORDER BY [M-DEMAb].[Agence],
[M-DEMAb].[Lieu], [M-DEMAb].[CP], [M-DEMAb].[No-Pers];"

sql5 = "UPDATE [C3a-TTM 4-5 mois], [M-TIA] SET [C3a-TTM 4-5 mois].TIA = Yes"
& "WHERE ((([C3a-TTM 4-5 mois].[No-Pers])=[M-TIA].[No-Pers]));"

sql6 = "UPDATE [C3a-TTM 5-6 mois], [M-TIAb] SET [C3a-TTM 5-6 mois].TIA =
Yes" & "WHERE ((([C3a-TTM 5-6 mois].[No-Pers])=[M-TIAb].[No-Pers]));"

sql7 = "UPDATE [C3a-TTM 4-5 mois], [M-COUR] SET [C3a-TTM 4-5 mois].Cours =
Yes" & "WHERE ((([C3a-TTM 4-5 mois].[No-Pers])=[M-COUR].[No-Pers]));"

sql8 = "UPDATE [C3a-TTM 5-6 mois], [M-COURb] SET [C3a-TTM 5-6 mois].Cours =
Yes" & "WHERE ((([C3a-TTM 5-6 mois].[No-Pers])=[M-COURb].[No-Pers]));"

sql9 = "UPDATE [C3a-TTM 4-5 mois], [M-INDE] SET [C3a-TTM 4-5 mois].[M-Indep]
= Yes" & "WHERE ((([C3a-TTM 4-5 mois].[No-Pers])=[M-INDE].[No-Pers]));"

sql10 = "UPDATE [C3a-TTM 5-6 mois], [M-INDEb] SET [C3a-TTM 5-6
mois].[M-Indep] = Yes" & "WHERE ((([C3a-TTM 5-6
mois].[No-Pers])=[M-INDEb].[No-Pers]));"

CurrentDb.Execute (sql1)
CurrentDb.Execute (sql2)
CurrentDb.Execute (sql3)
CurrentDb.Execute (sql4)
CurrentDb.Execute (sql5)
CurrentDb.Execute (sql6)
CurrentDb.Execute (sql7)
CurrentDb.Execute (sql8)
CurrentDb.Execute (sql9)
CurrentDb.Execute (sql10)

End Sub

10 réponses

1 2
Avatar
pgz
Bonjour.

je pense que le pb vient de ce qu'il manque un espace avant WHERE. Donc par
exemple :

sql2 = "UPDATE [C1a-Entretiens] SET [C1a-Entretiens].Rdv = 0 " & "WHERE
[C1a-Entretiens].[Rdv] is Null;"

ou
sql2 = "UPDATE [C1a-Entretiens] SET [C1a-Entretiens].Rdv = 0" & " WHERE
[C1a-Entretiens].[Rdv] is Null;"

Bon courage,

--
pgz
_____________________________

Avatar
velekinca
ca joue, merci à toi...

c'est vraiment du n'importe quoi ce MicrobeSoft...

mais bon... je ne suis qu'un de plus à le dire...

ciao


Bonjour.

je pense que le pb vient de ce qu'il manque un espace avant WHERE. Donc par
exemple :

sql2 = "UPDATE [C1a-Entretiens] SET [C1a-Entretiens].Rdv = 0 " & "WHERE
[C1a-Entretiens].[Rdv] is Null;"

ou
sql2 = "UPDATE [C1a-Entretiens] SET [C1a-Entretiens].Rdv = 0" & " WHERE
[C1a-Entretiens].[Rdv] is Null;"

Bon courage,

--
pgz
_____________________________




Avatar
Pierre Fauconnier
Justecommeçapourvoir...

C'estvraiquelesespacesnesontpasimportantsetqu'ilnesertàriendelesutiliserquecesoitenfrançaisouenlangageinformatique...

C'est juuste pour rire (quoi que...)

velekinca a formulé la demande :
ca joue, merci à toi...

c'est vraiment du n'importe quoi ce MicrobeSoft...

mais bon... je ne suis qu'un de plus à le dire...

ciao


Bonjour.

je pense que le pb vient de ce qu'il manque un espace avant WHERE. Donc par
exemple :

sql2 = "UPDATE [C1a-Entretiens] SET [C1a-Entretiens].Rdv = 0 " & "WHERE
[C1a-Entretiens].[Rdv] is Null;"

ou
sql2 = "UPDATE [C1a-Entretiens] SET [C1a-Entretiens].Rdv = 0" & " WHERE
[C1a-Entretiens].[Rdv] is Null;"

Bon courage,

--
pgz
_____________________________





--
Pierre Fauconnier
Il n'y a jamais eu un moment dans votre vie qui ne se passait pas
"maintenant" et il n'y en aura jamais (Eckart Toll in "Le pouvoir du
moment présent")


Avatar
3stone
"Pierre Fauconnier"
| Justecommeçapourvoir...
|
|
C'estvraiquelesespacesnesontpasimportantsetqu'ilnesertàriendelesutiliserquecesoitenfrançaisouenlangageinformatique...


J'ajouterai que sur une ligne :

Dim sql1, sql2, sql3, sql4, sql5, sql6, sql7, sql8, sql9, sql10 As String

il y a 9 fautes !

Regarde ceci :
http://www.3stone.be/access/articles.php?pg'5" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.3stone.be/access/articles.php?pg'5


--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
MPFA: http://www.mpfa.info/ (infos générales)
Avatar
Pierre Fauconnier
Bien vu Pierre. Bonne soirée

--
Pierre Fauconnier
Il n'y a jamais eu un moment dans votre vie qui ne se passait pas
"maintenant" et il n'y en aura jamais (Eckart Toll in "Le pouvoir du
moment présent")
Avatar
velekinca
Salut, je ne comprends pas pourquoi tu dis il y a 9 fautes...

merci


"Pierre Fauconnier"
| Justecommeçapourvoir...
|
|
C'estvraiquelesespacesnesontpasimportantsetqu'ilnesertàriendelesutiliserquecesoitenfrançaisouenlangageinformatique...


J'ajouterai que sur une ligne :

Dim sql1, sql2, sql3, sql4, sql5, sql6, sql7, sql8, sql9, sql10 As String

il y a 9 fautes !

Regarde ceci :
http://www.3stone.be/access/articles.php?pg'5" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.3stone.be/access/articles.php?pg'5


--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
MPFA: http://www.mpfa.info/ (infos générales)





Avatar
Eric
Bonjour,

Seule la variable sql10 est déclarée comme String, les 9 autres sont
déclarées en Variant.
L'écriture devrait être :
Dim sql1 as String, sql2 as string, sql3 as string ...

Salut, je ne comprends pas pourquoi tu dis il y a 9 fautes...

merci



J'ajouterai que sur une ligne :

Dim sql1, sql2, sql3, sql4, sql5, sql6, sql7, sql8, sql9, sql10 As String

il y a 9 fautes !

Regarde ceci :
http://www.3stone.be/access/articles.php?pg'5" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.3stone.be/access/articles.php?pg'5


--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
MPFA: http://www.mpfa.info/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.mpfa.info/ (infos générales)






--
A+
Eric
http://www.mpfa.info/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr


Avatar
velekinca
c'est faux ce que tu dis, toutes sont déclarées comme string... sinon ca ne
marche pas....


Bonjour,

Seule la variable sql10 est déclarée comme String, les 9 autres sont
déclarées en Variant.
L'écriture devrait être :
Dim sql1 as String, sql2 as string, sql3 as string ...

Salut, je ne comprends pas pourquoi tu dis il y a 9 fautes...

merci



J'ajouterai que sur une ligne :

Dim sql1, sql2, sql3, sql4, sql5, sql6, sql7, sql8, sql9, sql10 As String

il y a 9 fautes !

Regarde ceci :
http://www.3stone.be/access/articles.php?pg'5" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.3stone.be/access/articles.php?pg'5


--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
MPFA: http://www.mpfa.info/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.mpfa.info/ (infos générales)






--
A+
Eric
http://www.mpfa.info/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr





Avatar
Eric
re,

Au regret de te décevoir, je ne pense pas me tromper.
Un petit coup de F1 sur l'instruction Dim devrait t'en convaincre:
<Extrait de l'aide>
Utilisez *une locution As type distincte pour chaque variable que vous
déclarez*.
...
Si vous n'indiquez aucun type de données ou d'objet et s'il n'y a pas
d'instruction Deftype dans le module, la variable est *de type Variant
par défaut*.
</Extrait de l'aide>

c'est faux ce que tu dis, toutes sont déclarées comme string... sinon ca ne
marche pas....


Bonjour,

Seule la variable sql10 est déclarée comme String, les 9 autres sont
déclarées en Variant.
L'écriture devrait être :
Dim sql1 as String, sql2 as string, sql3 as string ...

Salut, je ne comprends pas pourquoi tu dis il y a 9 fautes...

merci


J'ajouterai que sur une ligne :

Dim sql1, sql2, sql3, sql4, sql5, sql6, sql7, sql8, sql9, sql10 As String

il y a 9 fautes !

Regarde ceci :
http://www.3stone.be/access/articles.php?pg'5" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.3stone.be/access/articles.php?pg'5


--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
MPFA: http://www.mpfa.info/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.mpfa.info/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.mpfa.info/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.mpfa.info/ (infos générales)



--


A+
Eric
http://www.mpfa.info/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.mpfa.info/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.mpfa.info/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://groups.google.fr/group/microsoft.public.fr.access?hl=fr




--
A+
Eric
http://www.mpfa.info/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.mpfa.info/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.mpfa.info/" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://groups.google.fr/group/microsoft.public.fr.access?hl=fr




Avatar
Eric
.../... Parti trop vite.

... toutes sont déclarées comme string... sinon ca ne
marche pas....



Ca marcherait car une variable Variant peut recevoir n'importe quel type
de données, et seul ce type peut recevoir le marqueur Null ;-)

--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr

1 2