Discussion :

[Marc_27]

Bonjour à tous,

J'ai une application Access qui possede quelques tables liées (SQL Server).
Cet application doit être actualisée tous les jours par biais d'une macro VBA qui contient le moreau de code suivant:

Code :

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

1
2
3
4
5
DoCmd.OpenTable "maTable", acViewNormal, acEdit
DoCmd.RunCommand acCmdSelectAllRecords
DoCmd.RunCommand acCmdDelete
DoCmd.RunCommand acCmdCloseWindow
DoCmd.OpenQuery "R_cr_maTable", acViewNormal, acEdit

(j'ai pensé que faire comme ça serait plus "clean" que effacer la table via RecordSet.

Le seule soucis:
Pour quelques personnes tout se passe bien, l'actualisation marche.
Il y a une personne (la plus important, parce que cet elle qui fait l'actualisation) que n'arrive pas à le faire: lors que l'actualisation arrive à ce point la, on a l'erreur
"Erreur 2364: MS Office Access ne peut pas ouvrir la table en mode feuille de donnes"

Le plus bizarre c'est que si cette personne essaye d'ouvrir normalement la table, avec un double clic, elle ouvre sans aucun problème...

Est-ce que quelqu'un peut m'aider svp?
Merci d'avance

[marot_r]

Tu as une solution encore plus 'clean'.

Crée une requête de suppression (ex; rViderMaTable) et appele la depuis ton code VBA.

Le sql de la requête

Code sql :

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

Delete * from [MaTable];

Le code

Code :

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

1
2
3
4
5
dim db as dao.database:set db=currentdb
dim q as dao.querydef:set q=db.querydefs("rViderMaTable")
q.execute
set q=nothing
db.close:set db=nothing

Tu peux aussi appeler directement le SQL depuis le code avec

Code :

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

docmd.RunSQL "Delete * from [maTable];"

mais personnelement je ne suis pas un fan du SQL dans le code.

Ces 2 solutions remplacent complètement celle que tu as postée.

A+

[Marc_27]

Bonjour marot_r,

désolé, j'avais oublié de ce question...
en fait, j'ai fait (il y a quelques jours) le RunSQL:

Code :

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

docmd.RunSQL "Delete * from [maTable];"

Merci et A+.