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

Access Discussion :

Comparer deux champs


Sujet :

Access

  1. #1
    Nouveau Candidat au Club
    Comparer deux champs
    Bonjour à tous,
    je suis débutant sur Access et je souhaiterais pouvoir comparer deux champs.
    j'ai deux champs : DE A Personnes
    je souhaiterais mettre par exemple entre DE et A un nombre supérieur à 0 et entre A et Personnes un nombre superieur au premier et on ne doit pas pouvoir mettre un chiffre plus grand dans le premier champs.
    Je ne sais pas si je me suis bien exprimé.



    Comment je peux faire, je vous remercie par avance.

    Airwols

  2. #2
    Expert éminent
    Bonjour,
    Y a t-il un bouton dans le formulaire permettant de lancer un traitement après la saisie ?
    Si ce n'est pas le cas, il est conseillé d'en créer un pour faciliter les contrôles.
    Il faut d'abord vérifier si les 2 champs sont saisis, ensuite si le premier est supérieur à 0, enfin si le second est supérieur au premier.

    le code de contrôle s'écrira comme ceci (sur l'évènement Click du bouton) :
    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
    17
    18
    19
    20
    21
    22
    ' contrôle saisie personne de
    If NZ(Me.PersonneDe,0) < 1 Then
        Me.PersonneDe.SetFocus
        Msgbox "le nombre de personnes 'de' doit être supérieur à 0")
        Exit sub
    End If
     
    ' contrôle saisie personne à
    If NZ(Me.PersonneA,0) < 1 Then
        Me.PersonneA.SetFocus
        Msgbox "le nombre de personnes 'à' doit être supérieur à 0")
        Exit sub
    End If
     
    ' contrôle de cohérence 
    If Me.PersonneA < Me.PersonneDe Then
        Me.PersonneDe.SetFocus
        Msgbox "le nombre de personnes 'à' doit être supérieur au nombre de personnes 'de'")
        Exit sub
    End If
     
    ' Si ok le traitement continue
    Quand on est derrière l'écran on n'a aucun clavier sous les mains ...