Discussion :

[LeochocBDL]

Bonjour !

Au démarrage de mon application, j'ai écris ce code qui me sert a vider les tables au démarrage de l'application (Ça peut paraître inutile mais en fait non.)

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
 
Private Sub Form_Load()
    Dim rst As Recordset
    Dim i As Integer
 
    For i = 0 To CurrentDb.TableDefs.Count - 1
        Set rst = CurrentDb.OpenRecordset(CurrentDb.TableDefs(i).Name)
        While Not rst.EOF
            rst.Delete
            rst.Update
            rst.MoveNext
        Wend
        rst.Close: Set rst = Nothing
    Next
End Sub

Au lancement de mon application, Access a planté, s'est fermé, n'a pas créé de sauvegarde automatique, a supprimer TOUT mes formulaires et TOUT mes modules. Le plus beau c'est que mes tables (Système ou perso) que je voulais vider sont encore remplies de données.

De plus la table MSysObjects contient toujours les références vers mes anciens formulaires / modules qui était la auparavant.

Si, par hasard, quelqu'un aurait une solution qui m'aiderais à récupérer mes données, j'en serais très reconnaissant.

Merci d'avance.

[ClaudeLELOUP]

Bonjour,

- pour ce qui est de ta procédure, ce sera sans doute plus efficace d’exécuter des requêtes suppression pour vidanger les tables et surtout d’empêcher le mécanisme lorsqu’il s’agit d’une table système (leur nom commence par « MSys ») ;
- c’est probablement quand il a rencontré une de ces tables qu’Access s’est planté avec ton processus ;
- pour rattraper la sauce, essaie de réparer ta db en la compactant, sinon prépare un mouchoir si tu n’as pas de sauvegarde récente...