Discussion :

[kamawasaki]

Bonjour,

Je cherche à créer une procédure autorisant un compactage d'une base de données Access 2003 tout les 30 jours.

L'idée est que l'utilisateur lance un logiciel, lequel affiche un menu, dont le contenu est spécifié dans un fichier ini. Si l'utilisateur clique sur le bouton "compactage", un formulaire est chargé. Enfin l'utilisateur clique sur le bouton "valider", lequel déclenche la fonction suivante:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Private Sub BtnValider_Click()
 
If MsgBox("Etes-vous certain de vouloir compacter la base données SuiviAtelier ?" & Chr(10) & "Personne ne doit utiliser le module SuiviAtelier durant cette opération", vbYesNo + vbExclamation, "Demande de confirmation") = vbYes Then
    date_prec = Format(Now, "dd/mm/yyyy")
    Open "L:\Preactor\Application_JDE\TraceCompactage.txt" For Append As #1
    Print #1, date_prec
    Close #1
 
    sNomBase = "J:\Copie_de_V100\SuiviAtelier_LB_TE.mdb"
    sNomBaseTmp = "J:\Copie_de_V100\SuiviAtelier_LB_TE_Tmp.mdb"
   DBEngine.CompactDatabase sNomBase, sNomBaseTmp 
    Kill sNomBase 
    Name sNomBaseTmp As sNomBase 
 
    MsgBox "SuiviAtelier a été compactée avec succès !", vbOKOnly + vbInformation, "Succès"
    Text1.Text = date_prec
    Text2.Text = DateAdd("d", 30, date_prec)
    BtnValider.Enabled = False
End If
End Sub

Le problème est qu'à l'exécution il m'est dit qu'un objet est requis.

Auriez-vous une idée de comment procéder ?

merci d'avance

[RobiPMS]

Bonjour.
A première vue, il manque des déclarations :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim sNomBase As String
Dim sNomBaseTmp As String

Et si date_prec n'est pas un champ du formulaire mais une variable, il faut aussi la déclarer.
Cordialement.

[kamawasaki]

désolé je n'avais pas précisé mais ces variables ont été déclarées en amont.
D'après ce que j'ai compris le problème viendrait de cette ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DBEngine.CompactDatabase sNomBase, sNomBaseTmp

[RobiPMS]

Re-bonjour.

J'utilise un code quasi identique, avec seulement une phase intermédiaire entre le compactage de la base originale et sa suppression :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
    DBEngine.CompactDatabase sNomBase, sNomBaseTmp '1. Compactage dans une nouvelle base
    sEmplacementInitial = sNomBaseTmp    '2. Collage de la base compactée avec le nom de la base originale
    sEmplacementFinal = sNomBase
    FileCopy sEmplacementInitial, sEmplacementFinal
    Kill sNomBaseTmp '3. Suppression de la base temporaire

Bien entendu, il faut déclarer les deux variables supplémentaires :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim sEmplacementInitial As String
Dim sEmplacementFinal As String

Peut-être pourrais-tu essayer?
Cdlt.

[kamawasaki]

Merci RobiPMS, mais tu viens juste de devancer mon edit pour informer que je passais mon sujet en résolu.

Je discutais en MP avec marsouin_89. Il m'a fourni un code qui fonctionne très bien et que j'ai déjà implémenté.
En tout cas merci à toi d'avoir pris sur ton temps

cordialement