Discussion :

[Kloun]

Bonjour,

J'ai une application en 2 bases : une dorsale sur un serveur et une frontale sur un PC (ou plusieurs).
La frontale tourne en permanence et effectue des actions éventuellement toutes les 10 secondes, selon certains critères.
Le problème vient du réseau : de temps en temps, le serveur est redémarré.
Ce qui fait donc planter ma base frontale avec un beau message "Gnagnagna n'es pas un chemin d'accès valide ...".
Le problème ne dure pas mais plante la base.

Comment faire pour passer outre ?
Du style : si ce problème arrive, j'attends 5 minutes et je recommence ?

Merci.

[Domi2]

Bonjour,

J'utilise ce code pour vérifier si j'arrive à établir le lien avec la dorsale.

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
Function fCheckLinks()
Dim rst As DAO.Recordset
Set dbs = CurrentDb()
On Error Resume Next
nbTbl = dbs.TableDefs.Count
For idx = 0 To nbTbl - 1
Set TblDef = dbs.TableDefs(idx)
If TblDef.Attributes = dbAttachedTable Then
Set rst = dbs.OpenRecordset(TblDef.Name)
End If
Next idx
If err <> 0 Then
'Si les tables attachées sont trouvée...
Else
'Sinon
End If
rst.Close
dbs.Close
Set rst = Nothing
Set dbs = Nothing
End Function

En clair, je teste la présence de la dorsale. En cas de problème, la fonction renvoie une erreur qu'on peut exploiter. Voilà, c'est une idée...

En espérant que cela puisse t'aider.

Domi2

[Kloun]

Le problème, c'est que le problème peut survenir à n'importe quel moment.

J'ai trouvé une solution qui vaut ce quelle vaut :
Sur l'event Erreur de mon form, je teste le numéro d'erreur. Si ça correspond à l'erreur en question, j'attend 30 seconde et je redémarre l'appli. Le problème étant temporaire (coupure réseau), ça devrait suffire. Au pire, ça attend 30 secondes de plus avant de redémarrer.