Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access Compactage de base

Compactage de base

7 réponses
Avatar
Jean Marie VIGNEAUD
Bonjur,

Je voudrais, sur une application Access97, déclencher certaines requêtes que
si la base vient d'être compactée.

Question : Existe t'il un moyen (une date, un drapeau ...) de savoir si une
base vient d'être compactée ?

Merci de votre aide

Jean Marie
Signaler un problème avec ce contenu

7 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
Jessy Sempere [MVP]
Bonjour

Tu peux savoir si une base vien d'être compactée de la façon suivante :

Function isCompacting() As Boolean
If DCount("Name", "MSysObjects", "Left([Name],1)='~'") = 0 Then _
isCompacting = True
End Function

@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Raymond [mvp]" a écrit dans le message news:

Bonjour.

compte tenu que tu es dans la base elle-même, si la base vient d'être
compactée, c'est que tu as lancé toi-même le compactage, donc tu le sais.
Sinon un compactage peut-être lancé sans référence au temps qui s'écoule.
Si

dans les versions 2000 & +, tu as coché la case compactage à la fermeture,
tu sais que à chaque lancement de base et si tu es le seul utilisateur, le
compactage a été fait et personne d'autre n'a travaillé dessus.

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Jean Marie VIGNEAUD" a écrit dans le
message de news:caml3h$a3o$
Bonjur,

Je voudrais, sur une application Access97, déclencher certaines requêtes
que

si la base vient d'être compactée.

Question : Existe t'il un moyen (une date, un drapeau ...) de savoir si
une

base vient d'être compactée ?

Merci de votre aide

Jean Marie








Avatar
Raymond [mvp]
Bonjour Jessy.

Tu sais bien que je ne veux pas qu'on touche aux tables système.

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Jessy Sempere [MVP]" a écrit dans le message de
news:can1uk$ull$
Bonjour

Tu peux savoir si une base vien d'être compactée de la façon suivante :

Function isCompacting() As Boolean
If DCount("Name", "MSysObjects", "Left([Name],1)='~'") = 0 Then _
isCompacting = True
End Function



Avatar
Jessy Sempere [MVP]
Ouai... ;-)

Oui mais là, j'y touche pas, je ne fais que la regarder... ;-))

@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Raymond [mvp]" a écrit dans le message news:

Bonjour Jessy.

Tu sais bien que je ne veux pas qu'on touche aux tables système.

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Jessy Sempere [MVP]" a écrit dans le message
de

news:can1uk$ull$
Bonjour

Tu peux savoir si une base vien d'être compactée de la façon suivante :

Function isCompacting() As Boolean
If DCount("Name", "MSysObjects", "Left([Name],1)='~'") = 0 Then _
isCompacting = True
End Function







Avatar
Raymond [mvp]
on dit ça, on commence par regarder et puis on touche et puis on casse tout.

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Jessy Sempere [MVP]" a écrit dans le message de
news:can2km$v1d$
Ouai... ;-)

Oui mais là, j'y touche pas, je ne fais que la regarder... ;-))


Avatar
Jessy Sempere [MVP]
Moi ?????? oooooh nonnnnnnn.... ;-))))))))
Je ne me permettrais pas de tout casser, tu me connais...

hein ????

Comment ça "SI" ????
Attention ça suffit... ;-)

@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Raymond [mvp]" a écrit dans le message news:

on dit ça, on commence par regarder et puis on touche et puis on casse
tout.


--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


Avatar
3stone
"Raymond [mvp]"
[...] que je ne veux pas ...



Il va finir par se prendre pour bill ;-)))



--
A+
Pierre (3stone) Access MVP
-----------------------------
http://users.skynet.be/mpfa
-----------------------------

Avatar
Raymond [mvp]
Je ne parle que pour moi, et dans mes propositions. Chacun fait ce qu'il
veut et propose ce qu'il veut.

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"3stone" a écrit dans le message de
news:
"Raymond [mvp]"
[...] que je ne veux pas ...



Il va finir par se prendre pour bill ;-)))