JTCorporation
Messages postés39Date d'inscriptionsamedi 18 octobre 2003StatutMembreDernière intervention16 juin 2004
-
12 juin 2004 à 17:33
cs_rene38
Messages postés1858Date d'inscriptionsamedi 29 juin 2002StatutMembreDernière intervention17 octobre 2013
-
12 juin 2004 à 17:54
Bonjour est ce qq sais me dire à quoi serr cet ligne de code :
Erreur:
Select Case Err.Number
Case 76
RepMsgBox = MsgBox((app.path & "\Test n'existe pas. Faut-il le créer ?"), vbYesNo + vbQuestion, "Dossier inexistant !")
If RepMsgBox = vbYes Then
frminstall.Show
premfois = False
cmdDémarrer.Visible = True
GoTo Fin
End If
Case 75
RepMsgBox = MsgBox(("app.path & "\Test existe déjà !"), vbOKOnly + vbCritical, "Attention !")
cmdDémarrer.Visible = True
GoTo Fin
End Select
Debug.Print Err.Number; Error(Err.Number)
Fin:
cs_rene38
Messages postés1858Date d'inscriptionsamedi 29 juin 2002StatutMembreDernière intervention17 octobre 201311 12 juin 2004 à 17:54
Bonjour
En mode création, cette ligne écrit dans la fenêtre Debug (la fenêtre en-dessous du code, intitulée Exécution)
le numéro de l'erreur (Err.Number) suivi (;)
du type d'erreur (Error(Err.Number)