IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBA Access Discussion :

Select Case Err.Number


Sujet :

VBA Access

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre éclairé
    Profil pro
    Inscrit en
    Février 2006
    Messages
    505
    Détails du profil
    Informations personnelles :
    Localisation : Canada

    Informations forums :
    Inscription : Février 2006
    Messages : 505
    Par défaut Select Case Err.Number
    Bonjour à tous,

    Dans un code que j'utilise j'ai une série de case pour des erreurs différentes,

    Maintenant, je me demande comment faire pour connaitre le numéro d'erreur de ma nouvelle création.

    Quelqu'un peut me dire ou aller chercher les numéros de cases et ce qu'il veut dire.

    merci

  2. #2
    Invité
    Invité(e)
    Par défaut
    Bonjour

    Peux-tu être un peu plus précis, car si tu gères ton erreur c'est que tu connais son numéro, non !

    Et avec un exemple.

    Starec

  3. #3
    Membre éclairé
    Profil pro
    Inscrit en
    Février 2006
    Messages
    505
    Détails du profil
    Informations personnelles :
    Localisation : Canada

    Informations forums :
    Inscription : Février 2006
    Messages : 505
    Par défaut ok pardon je précise
    voila, dans un code que j'ai batis avec votre aide (développez.com) biensur,
    je me retrouve avec une gestion d'erreur qui parrait comme ça :

    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
    Err_Commande62_Click:
        Select Case Err.Number
    Case 58: response = MsgBox("Voulez-vous l'ouvrir?", vbYesNo, "Le dossier " & Format(A, "0000") & B & " existe déjà")
    If response = vbYes Then
    ' L'utilisateur a choisi Oui.
    ' Effectue une action.
        CHEMIN = "C:\Users\Mario\Documents\film\act\" & C
    dblSuccess = Shell("Explorer.exe /e, " & CHEMIN, vbMaximizedFocus)
    Else    ' L'utilisateur a choisi Non.
        MyString = "Non"    ' Effectue une action.
    End If
    Case 76: MsgBox "Chemin incorrect"
    Case Else: MsgBox "Erreur inconnue"
    End Select
     
        Resume Exit_Commande62_Click
    Voila et ça vient pas de moi, jaimerais bien en apprendre plus sur la façon donc cela fonction.

Discussions similaires

  1. Problème SELECT, CASE et Group by
    Par Royd938 dans le forum MS SQL Server
    Réponses: 9
    Dernier message: 03/10/2014, 08h41
  2. [XL-2007] Err.Number lors exécution Selection.QueryTable.Refresh BackgroundQuery:=False
    Par fguilbau dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 30/11/2009, 18h19
  3. erreur select case
    Par maximedrouet dans le forum ASP
    Réponses: 4
    Dernier message: 15/05/2006, 15h40
  4. erreur select case
    Par maximedrouet dans le forum ASP
    Réponses: 12
    Dernier message: 06/01/2005, 16h33
  5. vérification de passage dans un select case
    Par arsgunner dans le forum ASP
    Réponses: 5
    Dernier message: 14/06/2004, 11h05

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo