Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access [Access97] Requête SQL et VBA

[Access97] Requête SQL et VBA

5 réponses
Avatar
Jc
Bonjour(soir) Tous,

Merci de votre aide pour me corriger.

Une requête qui fonctionne :

UPDATE 902_FetesMobiles SET 902_FetesMobiles.902JOUR =
Format(fPaques(2005),"d/mmm/" & "2004")
WHERE ((([902_FetesMobiles].ORDRE)=1));

J'essaie de la traduire en VBA :

DoCmd.RunSQL "UPDATE 902_FetesMobiles" _
& "SET [902_FetesMobiles].[902JOUR] = #" & Format(fPaques(2005), "mm/dd"
& "2004") & "#" _
& "WHERE ((([902_FetesMobiles].ORDRE)=1));"

et, quoiqu'il n'y ait pas d'erreur au débogage, l'exécution bloque la
machine...

Une idée ?

Merci et
--
Bonne fin de journée.
----------------------------------------
Jclg88
Cliquer sur ce lien pour me joindre par mél :
http://cerbermail.com/?JVKAlLV1Rf
----------------------------------------
Signaler un problème avec ce contenu

5 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Eric
Bonjour,

Un espace après 902_FetesMobiles
"UPDATE 902_FetesMobiles "
Un espace avant le where
& " WHERE ((([902_FetesMobiles].ORDRE)=1));"

un slash là :
Format(fPaques(2005), "mm/dd/"

Ca convient ?

A+
Eric

"Jc" écrivait news:#qK95GMeEHA.556
@tk2msftngp13.phx.gbl:

Bonjour(soir) Tous,

Merci de votre aide pour me corriger.

Une requête qui fonctionne :

UPDATE 902_FetesMobiles SET 902_FetesMobiles.902JOUR > Format(fPaques(2005),"d/mmm/" & "2004")
WHERE ((([902_FetesMobiles].ORDRE)=1));

J'essaie de la traduire en VBA :

DoCmd.RunSQL "UPDATE 902_FetesMobiles" _
& "SET [902_FetesMobiles].[902JOUR] = #" & Format(fPaques(2005),
"mm/dd"

& "2004") & "#" _
& "WHERE ((([902_FetesMobiles].ORDRE)=1));"

et, quoiqu'il n'y ait pas d'erreur au débogage, l'exécution bloque la
machine...

Une idée ?

Merci et
--
Bonne fin de journée.
----------------------------------------
Jclg88
Cliquer sur ce lien pour me joindre par mél :
http://cerbermail.com/?JVKAlLV1Rf
----------------------------------------




Avatar
Patrick
Bonjour,

Je pense qu'il faudrait mettre un espace à la fin des lignes, comme ceci :

DoCmd.RunSQL "UPDATE 902_FetesMobiles " _
& "SET [902_FetesMobiles].[902JOUR] = #" & Format(fPaques(2005),
"mm/dd/" & "2004") & "# " _
& "WHERE ((([902_FetesMobiles].ORDRE)=1));"

Tiens-moi au courant si le problème persiste..

--
Patrick

"Jc" wrote in message
news:%
Bonjour(soir) Tous,

Merci de votre aide pour me corriger.

Une requête qui fonctionne :

UPDATE 902_FetesMobiles SET 902_FetesMobiles.902JOUR > Format(fPaques(2005),"d/mmm/" & "2004")
WHERE ((([902_FetesMobiles].ORDRE)=1));

J'essaie de la traduire en VBA :

DoCmd.RunSQL "UPDATE 902_FetesMobiles" _
& "SET [902_FetesMobiles].[902JOUR] = #" & Format(fPaques(2005), "mm/dd"
& "2004") & "#" _
& "WHERE ((([902_FetesMobiles].ORDRE)=1));"

et, quoiqu'il n'y ait pas d'erreur au débogage, l'exécution bloque la
machine...

Une idée ?

Merci et
--
Bonne fin de journée.
----------------------------------------
Jclg88
Cliquer sur ce lien pour me joindre par mél :
http://cerbermail.com/?JVKAlLV1Rf
----------------------------------------



Avatar
Raymond [mvp]
Bonsoir.

il faudrait essayer de mettre des espaces avant les mots set et where et
rajouter / dans 2004:
DoCmd.RunSQL "UPDATE 902_FetesMobiles" _
& " SET [902_FetesMobiles].[902JOUR] = #" & Format(fPaques(2005), "mm/dd"
& "/2004") & "#" _
& " WHERE ((([902_FetesMobiles].ORDRE)=1));"

peut-être qu'il en reste encore ?

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Jc" a écrit dans le message de
news:%
Bonjour(soir) Tous,

Merci de votre aide pour me corriger.

Une requête qui fonctionne :

UPDATE 902_FetesMobiles SET 902_FetesMobiles.902JOUR > Format(fPaques(2005),"d/mmm/" & "2004")
WHERE ((([902_FetesMobiles].ORDRE)=1));

J'essaie de la traduire en VBA :

DoCmd.RunSQL "UPDATE 902_FetesMobiles" _
& "SET [902_FetesMobiles].[902JOUR] = #" & Format(fPaques(2005), "mm/dd"
& "2004") & "#" _
& "WHERE ((([902_FetesMobiles].ORDRE)=1));"

et, quoiqu'il n'y ait pas d'erreur au débogage, l'exécution bloque la
machine...

Une idée ?


Avatar
Jc
Re-Bonjour(soir) Tous,

et merci à vous Trois (Eric Patrick et Raymond). J'essaie tout de suite
et je vous tiens au courant demain matin (le développement se fait sur
ma machine du bureau).
--
Bonne fin de journée.
----------------------------------------
Jclg88
Cliquer sur ce lien pour me joindre par mél :
http://cerbermail.com/?JVKAlLV1Rf
----------------------------------------

"Raymond [mvp]" a écrit dans le message
news: #
Bonsoir.

il faudrait essayer de mettre des espaces avant les mots set et where
et

rajouter / dans 2004:
DoCmd.RunSQL "UPDATE 902_FetesMobiles" _
& " SET [902_FetesMobiles].[902JOUR] = #" & Format(fPaques(2005),
"mm/dd"

& "/2004") & "#" _
& " WHERE ((([902_FetesMobiles].ORDRE)=1));"

peut-être qu'il en reste encore ?

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Jc" a écrit dans le message de
news:%
Bonjour(soir) Tous,

Merci de votre aide pour me corriger.

Une requête qui fonctionne :

UPDATE 902_FetesMobiles SET 902_FetesMobiles.902JOUR > > Format(fPaques(2005),"d/mmm/" & "2004")
WHERE ((([902_FetesMobiles].ORDRE)=1));

J'essaie de la traduire en VBA :

DoCmd.RunSQL "UPDATE 902_FetesMobiles" _
& "SET [902_FetesMobiles].[902JOUR] = #" & Format(fPaques(2005),
"mm/dd"


& "2004") & "#" _
& "WHERE ((([902_FetesMobiles].ORDRE)=1));"

et, quoiqu'il n'y ait pas d'erreur au débogage, l'exécution bloque
la


machine...

Une idée ?






Avatar
Jc
Re-Bonjour(soir) Tous,

Je n'ai pas pu résister (c'est vrai que le bureau n'est pas loin!)... et
çà marche impeccablement.

Encore merci et
--
Bonne fin de journée.
----------------------------------------
Jclg88
Cliquer sur ce lien pour me joindre par mél :
http://cerbermail.com/?JVKAlLV1Rf
----------------------------------------


"Jc" a écrit dans le message news:
#
Re-Bonjour(soir) Tous,

et merci à vous Trois (Eric Patrick et Raymond). J'essaie tout de
suite

et je vous tiens au courant demain matin (le développement se fait sur
ma machine du bureau).
--
Bonne fin de journée.
----------------------------------------
Jclg88
Cliquer sur ce lien pour me joindre par mél :
http://cerbermail.com/?JVKAlLV1Rf
----------------------------------------

"Raymond [mvp]" a écrit dans le message
news: #
Bonsoir.

il faudrait essayer de mettre des espaces avant les mots set et
where


et
rajouter / dans 2004:
DoCmd.RunSQL "UPDATE 902_FetesMobiles" _
& " SET [902_FetesMobiles].[902JOUR] = #" & Format(fPaques(2005),
"mm/dd"

& "/2004") & "#" _
& " WHERE ((([902_FetesMobiles].ORDRE)=1));"

peut-être qu'il en reste encore ?

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Jc" a écrit dans le message de
news:%
Bonjour(soir) Tous,

Merci de votre aide pour me corriger.

Une requête qui fonctionne :

UPDATE 902_FetesMobiles SET 902_FetesMobiles.902JOUR > > > Format(fPaques(2005),"d/mmm/" & "2004")
WHERE ((([902_FetesMobiles].ORDRE)=1));

J'essaie de la traduire en VBA :

DoCmd.RunSQL "UPDATE 902_FetesMobiles" _
& "SET [902_FetesMobiles].[902JOUR] = #" & Format(fPaques(2005),
"mm/dd"


& "2004") & "#" _
& "WHERE ((([902_FetesMobiles].ORDRE)=1));"

et, quoiqu'il n'y ait pas d'erreur au débogage, l'exécution bloque
la


machine...

Une idée ?