REG/NONREG 2 SURVEILLER LES ENREGISTREMENTS
romit
Messages postés
160
Date d'inscription
jeudi 28 août 2003
Statut
Membre
Dernière intervention
30 juin 2011
-
3 juin 2006 à 19:32
Sechaud Messages postés 288 Date d'inscription jeudi 28 octobre 2004 Statut Membre Dernière intervention 3 janvier 2017 - 19 sept. 2006 à 11:29
Sechaud Messages postés 288 Date d'inscription jeudi 28 octobre 2004 Statut Membre Dernière intervention 3 janvier 2017 - 19 sept. 2006 à 11:29
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/37927-reg-nonreg-2-surveiller-les-enregistrements
https://codes-sources.commentcamarche.net/source/37927-reg-nonreg-2-surveiller-les-enregistrements
19 sept. 2006 à 11:29
signalé une anomalie de fonctionnement de mon programme.
Effectivement, quand j'ai relancé mon rogramme ,stupeur, j'ai eu droit à un double message de fichierintrouvable,chose qui ne s'était jamais produite auparavant.Puis tout remarche normalement.
Je n'ai pas encore repéré le fichier introuvable.
Dans l'attente, je propose d'annuler l'apparition du message.
Dans le Contrôles utilisateur ouvrir DirTreeView.ctl et dans
Private Sub AddCrox(NodeKey As String, NombreDeCaractresFoireuxAuDebutDuNodeKey As Byte)
REMPLACER
error:
If Err.Number = 52 Then
Exit Sub
Else
MsgBox "Une erreur inattendue est survenue." & vbCrLf & vbCrLf & "Numéro de l'erreur : " & vbCrLf & Err.Number & vbCrLf & vbCrLf & "Description de l'erreur : " & vbCrLf & Err.Description, vbExclamation, "Erreur..."
Err.Clear
Resume Next
End If
PAR
If Err.Number = 52 Then
Exit Sub
Else
Err.Clear
Resume Next
End If
3 juin 2006 à 20:34
3 juin 2006 à 19:32