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 :

Utilité Classe CustomerOrderStatusEnum


Sujet :

VBA Access

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Profil pro
    Inscrit en
    Juillet 2006
    Messages
    40
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juillet 2006
    Messages : 40
    Par défaut Utilité Classe CustomerOrderStatusEnum
    Bonjour,
    J'ai trouvé cette classe dans un code :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
     
    Public Enum CustomerOrderStatusEnum
        New_CustomerOrder = 0
        Invoiced_CustomerOrder = 1
        Shipped_CustomerOrder = 2
        Closed_CustomerOrder = 3
    End Enum
    Puis après on déclare une instance de la classe et on lui donne une valeur :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    Dim Status As CustomerOrderStatusEnum
    Status = Nz(Me![Réf statut], New_CustomerOrder)
    Je n'ai pas compris l'utilité de cette classe et son utilisation

    Quelqu'un pourrait m'importer des explications svp?
    Et pourrez vous me dire svp la fonction de cette ligne de code par exemple :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Me.cmdCreateInvoice.Enabled = (Status = New_CustomerOrder)
    Je vous remercie d'avance

  2. #2
    Membre Expert
    Homme Profil pro
    Développeur VBA Access
    Inscrit en
    Avril 2006
    Messages
    1 109
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Développeur VBA Access

    Informations forums :
    Inscription : Avril 2006
    Messages : 1 109
    Par défaut
    Bonjour,

    Il s'agît d'une énumération et non d'une classe. Une énumération sert à regrouper des valeurs constantes. Une variable déclarée avec ce type ne peut avoir d'autre valeur que celles présentes dans l'énumération.

    Ici, il semble que ce soit le statut des commandes clients. Une commande est donc soit :
    une Nouvelle Commande (New_CustomerOrder)
    une Commande Facturée (Invoiced_CustomerOrder)
    une Commande Expédiée (Shipped_CustomerOrder)
    une Commande Clôturée (Closed_CustomerOrder)

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    Dim Status As CustomerOrderStatusEnum
    Status = Nz(Me![Réf statut], New_CustomerOrder)
    Ici, déclaration de la variable Status de type de l'énumération puis si le champ [Réf statut] est vide alors Status=New_CustomerOrder(=0=>Nouvelle commande )
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Me.cmdCreateInvoice.Enabled = (Status = New_CustomerOrder)
    Ici, d'après ce que je comprends le bouton "Créer Facture" n'est disponible que si la commande est une nouvelle commande. Donc tu ne peux créer une facture que pour une nouvelle commande, ce qui suggère qu'à la suite de la création de la facture, le statut de la commande est modifié.

Discussions similaires

  1. [POO] Notion de Classe : Utilité
    Par Valenten dans le forum Langage
    Réponses: 3
    Dernier message: 05/11/2007, 13h50
  2. Réponses: 8
    Dernier message: 31/10/2007, 17h28
  3. De l'utilité des classes ?
    Par oranocha dans le forum Langage
    Réponses: 17
    Dernier message: 04/05/2007, 17h41
  4. Réponses: 18
    Dernier message: 08/04/2006, 10h39
  5. [POO] [AVIS] L'utilité des classes
    Par Anduriel dans le forum Langage
    Réponses: 66
    Dernier message: 10/11/2005, 16h45

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