Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Access Y a t-il une erreur de syntaxe dans mon code ...

Y a t-il une erreur de syntaxe dans mon code ...

4 réponses
Avatar
Marc Demont
Bonjour,

Voici mon code :


Do While (Not rst3.EOF = True)
rst3.Edit
NumLuCommande = rst3('"N° Commande")

Set db7 = CurrentDb()
strTexte2 = "DELETE FROM [MaTable] WHERE [N° Commande] LIKE'*" &
NumLuCommande & "*' "
Set rst7 = db7.OpenRecordset(strTexte2)

' Fermer les Recordsets
rst7.Close
Set rst7 = Nothing
Set db7 = Nothing
Loop


Apparemment, çà fonctionne pas !
Et le message d'erreur annonce un For non initié !!
Or, je n'ai pas de For dans toute ma page de code !

L'erreur vient-elle de ce DELETE ?
Ou bien, est-ce MaTable par exemple qui n'est pas refermée ? ou autre chose
?

heu ??

Marc
Signaler un problème avec ce contenu

4 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
Pierre CFI [mvp]
bonjour
ben dis donc, pas grand chose de bon
tu veux faire quoi ??

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"Marc Demont" a écrit dans le message de news:


Bonjour,

Voici mon code :


Do While (Not rst3.EOF = True)
rst3.Edit
NumLuCommande = rst3('"N° Commande")

Set db7 = CurrentDb()
strTexte2 = "DELETE FROM [MaTable] WHERE [N° Commande] LIKE'*" &
NumLuCommande & "*' "
Set rst7 = db7.OpenRecordset(strTexte2)

' Fermer les Recordsets
rst7.Close
Set rst7 = Nothing
Set db7 = Nothing
Loop


Apparemment, çà fonctionne pas !
Et le message d'erreur annonce un For non initié !!
Or, je n'ai pas de For dans toute ma page de code !

L'erreur vient-elle de ce DELETE ?
Ou bien, est-ce MaTable par exemple qui n'est pas refermée ? ou autre chose
?

heu ??

Marc




Avatar
Marc Demont
Alut Pierre,

Je veux comparer les N° Commande de nouvelles Commandes qui viennent d'être
reçues,
aux N° Commandes déjà effectivement déjà Livrées précédemment

et là, je les Delete les Commandes, éventuellement communes (je suis à ce
moment-là, dans ce cas précis de travail )

Suis-je clair dans l'énoncé de ma question ?

Marc



"Pierre CFI [mvp]" a écrit dans le message de
news:Ox%
bonjour
ben dis donc, pas grand chose de bon
tu veux faire quoi ??

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"Marc Demont" a écrit dans le message de
news:



Bonjour,

Voici mon code :


Do While (Not rst3.EOF = True)
rst3.Edit
NumLuCommande = rst3('"N° Commande")

Set db7 = CurrentDb()
strTexte2 = "DELETE FROM [MaTable] WHERE [N° Commande] LIKE'*" &
NumLuCommande & "*' "
Set rst7 = db7.OpenRecordset(strTexte2)

' Fermer les Recordsets
rst7.Close
Set rst7 = Nothing
Set db7 = Nothing
Loop


Apparemment, çà fonctionne pas !
Et le message d'erreur annonce un For non initié !!
Or, je n'ai pas de For dans toute ma page de code !

L'erreur vient-elle de ce DELETE ?
Ou bien, est-ce MaTable par exemple qui n'est pas refermée ? ou autre
chose


?

heu ??

Marc








Avatar
Pierre CFI [mvp]
hum, c'est le raisonnement global qui m'chappe
correction du devoir :o)) les instructions avec >> sont fausses

Set db7 = CurrentDb()
Do While (Not rst3.EOF = True)



Do Until rst3.EOF
rst3.Edit
pas besoin, le edit, si modification



NumLuCommande = rst3("N° Commande")


Set db7 = CurrentDb()
là à déclarer avant Do,



strTexte2 = "DELETE FROM [MaTable] WHERE [N° Commande] LIKE'*" & NumLuCommande & "*' "

Set rst7 = db7.OpenRecordset(strTexte2)
Delete n'est pas un recordset



db.execute strTexte2

' Fermer les Recordsets
rst7.Close
Set rst7 = Nothing
Set db7 = Nothing



rst3.MoveNext
Loop

je sais pas d'ou sort ton rst3

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"Marc Demont" a écrit dans le message de news:

Alut Pierre,

Je veux comparer les N° Commande de nouvelles Commandes qui viennent d'être
reçues,
aux N° Commandes déjà effectivement déjà Livrées précédemment

et là, je les Delete les Commandes, éventuellement communes (je suis à ce
moment-là, dans ce cas précis de travail )

Suis-je clair dans l'énoncé de ma question ?

Marc



"Pierre CFI [mvp]" a écrit dans le message de
news:Ox%
bonjour
ben dis donc, pas grand chose de bon
tu veux faire quoi ??

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"Marc Demont" a écrit dans le message de
news:



Bonjour,

Voici mon code :


Do While (Not rst3.EOF = True)
rst3.Edit
NumLuCommande = rst3('"N° Commande")

Set db7 = CurrentDb()
strTexte2 = "DELETE FROM [MaTable] WHERE [N° Commande] LIKE'*" &
NumLuCommande & "*' "
Set rst7 = db7.OpenRecordset(strTexte2)

' Fermer les Recordsets
rst7.Close
Set rst7 = Nothing
Set db7 = Nothing
Loop


Apparemment, çà fonctionne pas !
Et le message d'erreur annonce un For non initié !!
Or, je n'ai pas de For dans toute ma page de code !

L'erreur vient-elle de ce DELETE ?
Ou bien, est-ce MaTable par exemple qui n'est pas refermée ? ou autre
chose


?

heu ??

Marc












Avatar
Marc Demont
Alutté Pierre,

Comment çà !
en effet, çà marche beaucoup mieux !

Merci


****************************************

Do While (Not rst3.EOF = True)
' rst3.Edit
NumLuCommande = rst3("N° Commande")

Set db7 = CurrentDb()
strTexte2 = "SELECT * FROM [BDCatalogueTableBisBonde Commande] WHERE
[N°
Commande] Like'*" & NumLuCommande & "*'"
Set rst7 = db7.OpenRecordset(strTexte2)

' supprimer tous les enregistrements trouvés
While Not rst7.EOF
rst7.Delete
rst7.MoveNext
Wend

' Fermer les Recordset
rst7.Close
Set rst7 = Nothing
Set db7 = Nothing

rst3.MoveNext
Loop

**********************************

a+

Marc

---

"Pierre CFI [mvp]" a écrit dans le message de
news:
hum, c'est le raisonnement global qui m'chappe
correction du devoir :o)) les instructions avec >> sont fausses

Set db7 = CurrentDb()
Do While (Not rst3.EOF = True)



Do Until rst3.EOF
rst3.Edit
pas besoin, le edit, si modification



NumLuCommande = rst3("N° Commande")


Set db7 = CurrentDb()
là à déclarer avant Do,



strTexte2 = "DELETE FROM [MaTable] WHERE [N° Commande] LIKE'*" &
NumLuCommande & "*' "


Set rst7 = db7.OpenRecordset(strTexte2)
Delete n'est pas un recordset



db.execute strTexte2

' Fermer les Recordsets
rst7.Close
Set rst7 = Nothing
Set db7 = Nothing



rst3.MoveNext
Loop

je sais pas d'ou sort ton rst3

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"Marc Demont" a écrit dans le message de
news:


Alut Pierre,

Je veux comparer les N° Commande de nouvelles Commandes qui viennent
d'être


reçues,
aux N° Commandes déjà effectivement déjà Livrées précédemment

et là, je les Delete les Commandes, éventuellement communes (je suis à
ce


moment-là, dans ce cas précis de travail )

Suis-je clair dans l'énoncé de ma question ?

Marc



"Pierre CFI [mvp]" a écrit dans le message de
news:Ox%
bonjour
ben dis donc, pas grand chose de bon
tu veux faire quoi ??

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"Marc Demont" a écrit dans le message de
news:



Bonjour,

Voici mon code :


Do While (Not rst3.EOF = True)
rst3.Edit
NumLuCommande = rst3('"N° Commande")

Set db7 = CurrentDb()
strTexte2 = "DELETE FROM [MaTable] WHERE [N° Commande] LIKE'*" &
NumLuCommande & "*' "
Set rst7 = db7.OpenRecordset(strTexte2)

' Fermer les Recordsets
rst7.Close
Set rst7 = Nothing
Set db7 = Nothing
Loop


Apparemment, çà fonctionne pas !
Et le message d'erreur annonce un For non initié !!
Or, je n'ai pas de For dans toute ma page de code !

L'erreur vient-elle de ce DELETE ?
Ou bien, est-ce MaTable par exemple qui n'est pas refermée ? ou
autre




chose
?

heu ??

Marc