Bonjour le forum,
Dans mon application, j'utilise ce code depuis plusieurs mois pour lancer une requête de suppression dont j'ai besoin pour mettre à jour ma table "tbl_PrixNets".
Je n'ai jamais eu aucun problème avec ce code, mais depuis hier, quand je lance ce code, la requête se lance, mais la barre de progression "Exécution de la requête" que je vois en bas à droite reste bloquée au début indéfiniment. Access ne plante pas, mais rien ne se passe. Si je stoppe le code en faisant Ctrl+Pause, j'ai un message d'erreur n°2501 "l'action RunSQL a été annulée".
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9 With DoCmd .SetWarnings False strSQL = " DELETE * From tbl_PrixNets WHERE EXISTS " _ & "(SELECT * FROM tbl_PrixNets T WHERE T.CodeClientEtat = tbl_PrixNets.CodeClientEtat AND T.BrancheClientEtat= tbl_PrixNets.BrancheClientEtat " _ & "AND T.SKU= tbl_PrixNets.SKU AND T.QteMini= tbl_PrixNets.QteMini AND T.Debut > tbl_PrixNets.Debut);" .RunSQL strSQL, True .SetWarnings True End With
Je précise que ma table se trouve sur une dorsale sur un serveur, mais que je n'ai rien changé à la structure de la table tbl_PrixNets.
Des idées, des recommandations pour moi?![]()
Partager