Fonction SQL UPDATE

Le
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses Page 1 / 2
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
pgz
Le #6283951
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
_____________________________

velekinca
Le #6283941
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
Le #6283931
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")


3stone
Le #6283911
"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


--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
MPFA: http://www.mpfa.info/ (infos générales)
Pierre Fauconnier
Le #6283901
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")
velekinca
Le #6283811
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


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





Eric
Le #6283801
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


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






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


velekinca
Le #6283791
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


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






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





Eric
Le #6283781
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


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



--


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




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




Eric
Le #6283771
.../... 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

Publicité
Poster une réponse
Anonyme