Compatage automatique lors de la fermeture access 97

Télécharger le projet
Commenter

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.
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

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.

Du même auteur (cs_dragon)