Erreur compacdatabase

Messages postés
66
Date d'inscription
lundi 19 janvier 2004
Dernière intervention
29 décembre 2018
- - Dernière réponse : chicochiri
Messages postés
66
Date d'inscription
lundi 19 janvier 2004
Dernière intervention
29 décembre 2018
- 29 déc. 2018 à 19:05
Bonjour,

dans mon appli j utilise une base de données access , en essayant de la faire tourner Windows 10, apres de nombreuses embuches, j ai le messages suivant erreur compactage base de donnée file already exist erreur 3204.je suis bloqué merci de votre aide



--
Afficher la suite 

Votre réponse

2 réponses

Messages postés
14334
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
29 décembre 2018
359
0
Merci
Avec quel code fais-tu le compactage ?
Commenter la réponse de NHenry
Messages postés
66
Date d'inscription
lundi 19 janvier 2004
Dernière intervention
29 décembre 2018
0
Merci
Bonjour

voici un extrait de mon code, jusqu à windows xp tout fonctionnait trés bien.merci

CompactDatabase App.Path & "\spitsy.chi", App.Path & "\adherent.mdb", , , ";PWD=****** "

Kill (App.Path & "\spitsy.chi")

Name App.Path & "\adherent.mdb" As App.Path & "\spitsy.chi"

--
NHenry
Messages postés
14334
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
29 décembre 2018
359 -
Question bête, le fichier de destination du compactage est bien absent du dossier ?
Je te suggère aussi de mettre un "On Error" pour gérer les cas d'erreurs de compactage plus proprement.
chicochiri
Messages postés
66
Date d'inscription
lundi 19 janvier 2004
Dernière intervention
29 décembre 2018
-
bsr voila le code complet, excuses.

Mais ce code fonctionne sous xp, de plus sur ma machine a moi en windows 10 ça fonctionne! c est sur un autre ordinateur quelconque que ça ne fonctionne pas.Je pense que quelque chose installé sur mon ordi permet le fonctionnement de mon appli. Qu est ce qui permet a compacdatabase de fonctionner? Une dll ou un composant DAO? quelque chose de plus recent installé sur ma machine...

Sinon oui le fichier de destinantion est crée et supprimé par le code

Merci


On Error GoTo Message

CompactDatabase App.Path & "\spitsy.chi", App.Path & "\adherent.mdb", , , ";PWD=*****"

Kill (App.Path & "\spitsy.chi")
Name App.Path & "\adherent.mdb" As App.Path & "\spitsy.chi"

Exit Sub
Message:

If Err.Number = 3204 Then
Kill (App.Path & "\adherent.mdb")
End If

MsgBox "Une erreur s'est produite pendant le compactage du fichier 'spitsy.chi': " _
& "Erreur " & Str(Err.Number) & ".." & Err.Description & "..." & " veuillez quitter l'application et la relancer...Err300...", _
vbCritical, "Erreur de compactage..."
Commenter la réponse de chicochiri

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.