Discussion :

[Tortille]

Bonjour,

Ma base de donnée me signale l'erreur 3340 sur plusieurs requêtes.
Erreur N° 3340 La requête " " est altérée.

La base fonctionnait jusqu'à ce matin en milieu de matinée, puis erreurs multiples dans le code :

Pendant que je travaillais sur la base, j'ai subi des mises à jour.

Les erreurs sont arrivées sans rapport apparent avec ce que je codais, et pas moyen de réparer, alors j'ai repris la sauvegarde de la base de ce matin 8h00, et là les même erreurs se produisent, idem avec les sauvegardes des jours précédents !

Je répare Office 2010, j'attends la fin du processus, les mêmes erreurs se reproduisent, et je subi encore une série de mises à jours !

voilà l'erreur dans le code qui à fonctionné pendant des années. Le premier Cdb.Execute fonctionne, le second crée l'erreur.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Public Function GetIdLog(log As String)
Dim Cdb As DAO.Database
Dim T_log() As String
Dim K As Integer
    Set Cdb = CurrentDb
       Cdb.Execute "Update T_Logement SET Affiche = False;"
       T_log = Split(log, ";") '     où log = 1;2;3;4;7 par exemple
       For K = 0 To UBound(T_log)
           Cdb.Execute "Update T_Logement SET Affiche = True WHERE IdLog =" & CLng(T_log(K)) & ";" '      IdLog est de type numérique long et c'est la clé de la table T_Logement
       Next K
    Cdb.Close:      Set Cdb = Nothing
End Function

Code :

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

1
2
3
4
5
 'Si je remplace
Cdb.Execute "Update T_Logement SET Affiche = True WHERE IdLog =" & CLng(T_log(K)) & ";" 
'par
Cdb.Execute "Update T_Logement SET Affiche = True;"
il n'y a plus d'erreur

De même si je construis dans l'éditeur de requête :

Code :

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

UPDATE T_Logement SET Affiche = True;

il n'y a pas d'erreur, mais dès que je mets un WHERE

Code :

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

UPDATE T_Logement SET T_Logement.Affiche = False WHERE (((T_Logement.IdLog)=2));

le même message d'erreur arrive dans l'éditeur de requête dès que je l'exécute.

J'ai la même erreur si je remplace dans le code Cdb.execute par DoCmd.RunSQL

Je ne vois pas d'où vient cette erreur, je suis bien bloqué pour aujourd'hui.

Dans l'attente d'une solution de déblocage votre part, je vous remercie par avance.

[marot_r]

Bonjour,

vois la discussion : https://www.developpez.net/forums/d2...quete-alteree/

qui semble être sur le même sujet.

A+

[Tortille]

Merci Marot_r pour la réponse rapide, c'est bien le même sujet, une mise à jour et plus rien ne va ! dans l'attendre du correctif encore Merci.

[Florent_45]

Salut,

Cela provient d'une mise à jour de sécurité Office.
Plus d'information sur ces pages :
- https://www.developpez.net/forums/d2...quete-alteree/
- https://borncity.com/win/2019/11/13/...ss-error-3340/

Nous avons eu le même soucis sur le pc d'un collègue, il avait Office 2010 X64, il a fallu désinstaller la mse à jour Office Security x64 KB4484127. Toutefois, si tu as une autre version d'Office cela peut être une autre mise à jour correspondant à ta version.

Microsoft devrait rapidement publier un correctif pour ce problème je pense.

Bonne journée.

[AzzApps]

Moi aussi j'ai le même problème avec les requêtes de mise à jour sur Access 2013 à cause de la mise à jour Microsoft Office 2013 13/11/2019 Correctifs (Excel 2013 (KB4484158); Office 2013 (KB4484127) & (KB4484160))
pour y remédier il faut jute les désinstaller. Pour mois ça marche

[Ric500]

Bonjour,

Ci-après les KB à installer pour ne plus avoir de soucis avec les requêtes:

Pour
RUNTIME 2010
KB4484127

RUNTIME 2013
KB4484119

RUNTIME 2016
KB4484113

Çà peut toujours servir...

[fisio]

Bonjour Grave problème.

Comment pouvez-vous m'aider j'ai installé les 3 fichiers
ace2016-kb4484113-fullfile-x64-glb.exe
ace2013-kb4484119-fullfile-x64-glb.exe
ace2010-kb4484127-fullfile-x64-glb.exe

les dernières mises à jours sont :



Je n'y comprends absolument rien.

Merci de votre aide.

[hyperion13]

Pour info
Office2010
Office2013
Office2016
Office2016

[Tidji95]

Bonjour,

Je rencontre le même problème depuis quelques jours!

J'ai testé successivement avec plusieurs bases de données, deux ordinateurs différents, l'un tournant sous Windows 7 et l'autre Windows 10, en réseau ou en local. Le résultat est le même.

Je ne sais pas ce qui se passe. Est-ce suite à une mise à jour d'Office....?

Si quelqu'un a une idée, je suis preneur.

Je vais contacter le support Microsoft demain.

[jahwil]

Bonjour à tous,
Pour corriger cette erreur j'ai désinstallé office 365 et Réinstallé ensuite.
Plus de message d'erreur et la fonction "Update ..." fonctionne parfaitement.
Pour info :
sytème Windows 10 ver. 1809 et office 365

Cordialement,
William