gestion erreur reseau ou dique

Question

Bonjour tt le monde . 
voila sur une question que j&#233; deja pos&#233; sur le form "comment g&#233;rer une erreur reseau" j'ai recu une reponse bien favorable. Merci. Mais la un probl&#232;me ce pose avec cette gestion de reseau: 

loaderror:
Select Case Err.Number
   Case 3043, 3024, 3044
      If Not ReessaiFait Then
         If MsgBox(Err.Description & vbCrLf & "Probl&#232;me de connexion:" & vbCrLf & "Assurez-vous que vous &#234;tes connect&#233;(e) &#224; la base de donn&#233;es", vbYesNo, "Erreur") = vbRetry Then
            ReessaiFait = True
            Resume restor1
         End If
      End If
   End Select

ce loaderror marche bien quand j'ai un message du genre : " base de donn&#233;e introuvable......."
mais une fois j'ai l'erreur " erreur reseau ou erreur disque" je recoi bien le message et le programme revient a l'etiquette restor1. mais a chaque fois je suis a la meme errreur alors il fo que je sort du progrmme et tt devient normal jusqu'a que je retrouve cette erreur pour tomb&#233; encore une fois dans la boucle d'ou je sort jamais avant d'arret&#233; le programme.
voila un exemple ou je trouve bcp cette erreur et merci de bien vouloir le resoudre : 

( a propos ma base de donn&#233; ce trouve dans un autre poste et  il est reli&#233; a mon programme par le ODBC )
Private Sub Command5_Click()
restor6:
On Error GoTo loaderror
Set work = DBEngine.Workspaces(0)
Set bd = work.OpenDatabase("I:\hop_bd.mdb")
Set rst3 = bd.OpenRecordset("victime")
Set rst4 = bd.OpenRecordset("accident")
Set rst5 = bd.OpenRecordset("dossier")
.
.
.
etc..
loaderror:
Select Case Err.Number
   Case 3043, 3024, 3044
      If Not ReessaiFait Then
         If MsgBox(Err.Description & vbCrLf & "Probl&#232;me de connexion:" & vbCrLf & "Assurez-vous que vous &#234;tes connect&#233;(e) &#224; la base de donn&#233;es", vbYesNo, "Erreur") = vbRetry Then
            ReessaiFait = True
            Resume restor1
         End If
      End If
   End Select
end sub

Gobillot · Answer

pas tout compris, mais ce qui me g&#234;ne c'est le Resume restor1 avec toujours la m&#234;me &#233;tiquette quelque soit l'erreur.
faudrait peut &#234;tre changer le nom de l'&#233;tiquette en fonction de l'erreur.
ou tout simplement un Resume tout simple sans rien derri&#232;re et le programme repartira sur la ligne qui a provoqu&#233; l'erreur.

Daniel

cs_CanisLupus · Answer

pas tout compris non plus mais peut-&#234;tre aussi qu'un petit exit sub avant l'&#233;tiquette loaderror: &#233;viterait de passer dans le traitement d'erreur quand il n'y en a pas.

Loup Gris

Gestion erreur reseau ou dique

2 réponses

Discussions similaires