Discussion :

[Kounta]

Bonjour,

J'ai utilisé ce bout de code trouvé dans la FAQ pour sauvegarder automatiquement ma bdd chaque fois qu'elle s'ouvre:

Code :

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

1
2
3
4
5
6
7
Dim fso As Object, strDest As String
strDest = CurrentProject.Path & "\" & _
          Left(CurrentProject.Name, Len(CurrentProject.Name) - 4) & _
          ".bak." & Right(CurrentProject.Name, 3)
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CopyFile CurrentProject.FullName, strDest
Set fso = Nothing

Il fonctionne très bien sur un pc avec Access 2007 mais quand je passe sur un autre avec le runtime 2007, j'ai le fameux message d'erreur :

Cette application a été arrêtée à cause d'une erreur d'exécution.
Elle ne peut pas continuer et va être fermée.

Ce code est lancé depuis l'évenement Load du form principal; j'ai tenté de le mettre dans un module (j'ai lu dans un post qu'il fallait faire ça avec la fonction Left) mais le problème persiste.

Si vous avez des pistes, merci d'avance...

[Invité]

Bonjour
Les applications développées pour être diffusées avec le Runtime, doivent avoir une gestion d'erreur pointue.
Cela permet d'intercepter les erreurs et de les traiter en conséquence, afin justement d'éviter le plantage.

[Kounta]

J'ai tenté une variante du code :

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
 
On Error GoTo ERREUR
Dim fso As Object
Dim strDest As String
 
Select Case CurrentProject.FileFormat
    Case 2 'acFileFormatAccess2
        GoSub MDB
    Case 7 'acFileFormatAccess95
        GoSub MDB
    Case 8 'acFileFormatAccess97
        GoSub MDB
    Case 9 'acFileFormatAccess2000
        GoSub MDB
    Case 10 'acFileFormatAccess2002
        GoSub MDB
    Case 12 'acFileFormatAccess12
        GoSub ACCDB
End Select
 
'Instanciation du FSO
Set fso = CreateObject("Scripting.FileSystemObject")
'Copie de la bdd
fso.CopyFile CurrentProject.FullName, strDest, True
'Purge du fso
Set fso = Nothing
 
'-----------------------------------------------
ERREUR:
Exit Sub
'---
MDB:
strDest = CurrentProject.Path & "\" & _
          Left(CurrentProject.Name, Len(CurrentProject.Name) - 4) & _
          ".bak." & Right(CurrentProject.Name, 3)
Return
'---
ACCDB:
strDest = CurrentProject.Path & "\" & _
          Left(CurrentProject.Name, Len(CurrentProject.Name) - 6) & _
          ".bak." & Right(CurrentProject.Name, 5)
Return

Mais sans succès !!
S'il y a une erreur, cela n'entraîne pas la simple sortie du programme comme prévu dans la routine ERREUR, mais un plantage complet de toute l'appli. Pas sûr en voyant ça qu'il soit possible d'intercepter et gérer l'erreur.

[Kounta]

J'ai tenté de récupérer l'erreur avec un code type :

Code :

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

1
2
3
4
5
6
7
8
 
On Error GoTo ERREUR
...
...
Exit Sub
ERREUR:
MsgBox "Erreur n°" & Err.Number & vbLf & Err.Description
Exit Sub

Mais aucun message ne s'affiche à part celui déjà mentionné indiquant simplement le plantage de l'appli.

[argyronet]

Bonjour,

Que dit le journal des événements une fois planté ?

Argy

[Kounta]

Bonjour,
Aucune idée !! où se trouve ce journal ???

Pour info:
- j'ai créé un ACCDE et un package (avec réinstall du runtime) mais j'ai eu la même message+plantage.
- Un ACCDR exécuté sur mon PC avec Access fonctionne parfaitement.

[Kounta]

Pour éviter les longs discours, j'ai mis mon fichier en pj, si ça peut aider...

[argyronet]

Le journal se lance à partir de la console : eventvwr.msc

Argy

[Kounta]

Bonjour à tous,
J'ai regardé dans le journal des évenements de windows après le plantage mais il n'y a rien d'inscrit.

Quand je déroule pas à pas les 2 procédures lancées au démarrage (ça m'oblige à écrire une ligne de code, tester l'appli, écrire une autre ligne, re-tester etc... jusqu'au plantage), la ligne responsable du plantage contient les fonctions Left et Right.

Code :

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

1
2
3
4
 
strDest = CurrentProject.Path & "\" & _
          Left(CurrentProject.Name, Len(CurrentProject.Name) - 4) & _
          ".bak." & Right(CurrentProject.Name, 3)

[argyronet]

Alors ça ne vient pas de ton code...

A démarrage de ton appli, pose une instruction du type :

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
 
Sub VerifyRef()
Dim oRf                                                As Reference
Dim strBrokenRef                                       As String
 
    If Application.BrokenReference Then
        For Each oRf In Application.References
            With oRf
                If .IsBroken Then
                    strBrokenRef = strBrokenRef & .Name & vbCrLf
                End If
            End With
        Next
    Else
        strBrokenRef = "Aucune reférence cassée..."
    End If
    MsgBox strBrokenRef, 64, "Références manquantes"
 
End Sub

Qu'est ce que ça donne ?

Argy