OVH Cloud OVH Cloud

Supp dernier enregistrement en VBA

3 réponses
Avatar
Baboune
Bonsoir le forum,

Quelqu'un pourrai me donner un bout de code VBA pour supprimer le dernier
enregistrement d'une table?

Merci

3 réponses

Avatar
Bonjour,
une table n'auant pas d'ordre, on ne peut pas savoir à quoi correspond le dernier enregistrement
(le dernier saisi ?)

dans ce cas, rajouter un champ datesaisie avec pour valeur par défaut =Now()

et un truc du genre ci-dessous devrait faire l'affaire

currentdb.execute "DELETE * FROM LaTable WHERE DateSaisie in (SELECT Max(DateSaisie) FROM LaTable;);"

(il y a peut-être plus simple au niveau de la condition where ...)
--
A+
Arnaud
-----------------------------------------------------
Tout ce qu'il faut savoir est sur http://www.mpfa.info
-----------------------------------------------------

"Baboune" a écrit dans le message de news:
Bonsoir le forum,

Quelqu'un pourrai me donner un bout de code VBA pour supprimer le dernier
enregistrement d'une table?

Merci


Avatar
Baboune
Merci pour ton aide



Bonjour,
une table n'auant pas d'ordre, on ne peut pas savoir à quoi correspond le dernier enregistrement
(le dernier saisi ?)

dans ce cas, rajouter un champ datesaisie avec pour valeur par défaut =Now()

et un truc du genre ci-dessous devrait faire l'affaire

currentdb.execute "DELETE * FROM LaTable WHERE DateSaisie in (SELECT Max(DateSaisie) FROM LaTable;);"

(il y a peut-être plus simple au niveau de la condition where ...)
--
A+
Arnaud
-----------------------------------------------------
Tout ce qu'il faut savoir est sur http://www.mpfa.info
-----------------------------------------------------

"Baboune" a écrit dans le message de news:
Bonsoir le forum,

Quelqu'un pourrai me donner un bout de code VBA pour supprimer le dernier
enregistrement d'une table?

Merci







Avatar
Guy
Bonjour,
une table n'auant pas d'ordre, on ne peut pas savoir à quoi correspond le dernier enregistrement
(le dernier saisi ?)

dans ce cas, rajouter un champ datesaisie avec pour valeur par défaut =Now()

et un truc du genre ci-dessous devrait faire l'affaire

currentdb.execute "DELETE * FROM LaTable WHERE DateSaisie in (SELECT Max(DateSaisie) FROM LaTable;);"

(il y a peut-être plus simple au niveau de la condition where ...)
Bonjour,


Il faut créer un champ autoincrement
puis supprimer l'enregistrement where num=max(num)
ensuite supprimer le champ autoincrement (pour la prochaine manip identique)
Cordialement
GR