Compatage automatique lors de la fermeture access 97

Soyez le premier à donner votre avis sur cette source.

Vue 7 488 fois - Téléchargée 619 fois

Description

Voici la seul façon que j'ai trouver pour compacter une base de donner access 97 lors de la fermeture

le problème, c,est que quand on est dasn access, la base de donner est ouverte, donc elle veut pas compacter

donc voici l,astuce, c,est d'utiliser une applcation VB qui compact à la place d,access

allez voir le zip pour le prog

voici le code du bouton fermeture dans access, le code peut aussi se trouver sur le form_close()

Source / Exemple :


Private Sub Commande21_Click()
On Error GoTo Err_Commande21_Click
    Call effacer
    'Compactage
    Shell "W:\réseau\Compact\Compact.exe " & CurrentDb.Name
    DoCmd.Quit
    
Exit_Commande21_Click:
    Exit Sub

Err_Commande21_Click:
    MsgBox Err.Description
    Resume Exit_Commande21_Click
    
End Sub

Conclusion :


j'ai oubilier de dire dequoi d'extrêment important

la base de donnée dois avoir un utilisateur "Compact" avec aucun mot de passe qui a access en administration à la base de donnée et à toutes les tables seulement

et pour augmenter la sécurtié, vous pouvez ajouter au début de votre code
if Currentuser = "Compact" then
docmd.quit
end if

comme ça c'est totallement impossible qu'un usager puisse se connecter sous se nom, même si de toute façon, il possède pas les droit.

Codes Sources

A voir également

Ajouter un commentaire Commentaires
TigerFab Messages postés 115 Date d'inscription samedi 15 février 2003 Statut Membre Dernière intervention 18 mai 2008
26 juil. 2005 à 14:50
yes .. au début je comprenais pas cmt on trouvait le "oum" .. c'est les raccourcis clavier of course ... c'est super car on a ainsi à tout Access par un simple SendKeys (dans une langue définie seulement (fr ici)...)

Merci

A+
cs_dragon Messages postés 2336 Date d'inscription samedi 14 juillet 2001 Statut Membre Dernière intervention 5 mai 2009 6
26 juil. 2005 à 13:58
pas en 97, en 2k oui par contre. Pour ça que j'ai spécifier dans le titre
cs_Patrice99 Messages postés 1221 Date d'inscription jeudi 23 août 2001 Statut Membre Dernière intervention 9 septembre 2018
26 juil. 2005 à 12:14
Cela correspond au menu Outils : Utilitaires : coMpacter
On peut le faire directement dans le formulaire avec SendKeys.
TigerFab Messages postés 115 Date d'inscription samedi 15 février 2003 Statut Membre Dernière intervention 18 mai 2008
26 juil. 2005 à 11:36
EnvoiTouches %Oum : je connaissais pas ! Merci Patrice99, voilà ce que je recherchais depuis un bout de temps !
cs_dragon Messages postés 2336 Date d'inscription samedi 14 juillet 2001 Statut Membre Dernière intervention 5 mai 2009 6
14 août 2003 à 13:29
le problème, c'est ce que j'explique, ça amrche pas, puisuqe la base de donnée est déjà ouverte, vu qu,on s'y trouve

ça fonctionne numéro 1, quand la base de donnée est fermer, masi pas quand elle est ouverte, puisqu'elle dois être ouvert en mode exclusive
Afficher les 9 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.