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 :

Verification de l'existant sur une table [AC-2003]


Sujet :

VBA Access

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Profil pro
    Inscrit en
    Novembre 2004
    Messages
    55
    Détails du profil
    Informations personnelles :
    Âge : 43
    Localisation : France, Bouches du Rhône (Provence Alpes Côte d'Azur)

    Informations forums :
    Inscription : Novembre 2004
    Messages : 55
    Par défaut Verification de l'existant sur une table
    Bonjour ,
    j'ai crée un formulaire a partir d'une table appeler personne ( numpersonne, nom personne, prenompersonne)
    Le numpersonne est rentrée par l'utilisateur car c un numéro spécifique.
    Je souhaiterai que quand l'utilisateur rentre le numpersonne pour passe au champ suivant, qu'il face une vérification dans la base et me sorte un message d'erreur ou pas.

    Vous serez t'il possible de me donner des pistes la dessus.

    cordialement

    Julien JAURAS

  2. #2
    Membre Expert Avatar de Gado2600
    Homme Profil pro
    Développeur Office VBA
    Inscrit en
    Mai 2013
    Messages
    909
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 35
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Développeur Office VBA

    Informations forums :
    Inscription : Mai 2013
    Messages : 909
    Par défaut
    Bonjour,

    Sur ton contrôle, tu mets un événement AfterUpdate.
    Dedans, tu places la procédure suivante :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    If nz(rechdom("[numpersonne]";"[personne]";"[numpersonne]=" & me.nom_controle.value),0)=0 then
    msgbox "numéro ok"
    else
    msgbox "choisir un autre numéro"
    end if
    Cordialement,

  3. #3
    Membre confirmé
    Profil pro
    Inscrit en
    Novembre 2004
    Messages
    55
    Détails du profil
    Informations personnelles :
    Âge : 43
    Localisation : France, Bouches du Rhône (Provence Alpes Côte d'Azur)

    Informations forums :
    Inscription : Novembre 2004
    Messages : 55
    Par défaut
    le rechdom est la même chose que le dlookup?
    la console me dis que rechdom n'est pas défini en tant que fonction. est ce que j'ai oublié quelque chose?

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

    C'est DLookup qu'il faut mettre dans une syntaxe VBA.

    Philippe

  5. #5
    Membre confirmé
    Profil pro
    Inscrit en
    Novembre 2004
    Messages
    55
    Détails du profil
    Informations personnelles :
    Âge : 43
    Localisation : France, Bouches du Rhône (Provence Alpes Côte d'Azur)

    Informations forums :
    Inscription : Novembre 2004
    Messages : 55
    Par défaut
    Citation Envoyé par Philippe JOCHMANS Voir le message
    Bonjour

    C'est DLookup qu'il faut mettre dans une syntaxe VBA.

    Philippe
    Voila ma syntaxe
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
     
    If Nz(DLookup("[num_personne]=" & Me.numero.Value), 0) = 0 Then
    MsgBox "numéro ok"
    Else
    MsgBox "numero existant"
    End If
    End Sub
    Malheureusement il m'affiche un message d'erreur : erreur de compilation , Argument non facultatif et me jaunis le mot DLookup.

  6. #6
    Invité
    Invité(e)
    Par défaut
    Re

    La syntaxe est incomplète, un tuto à lire sur les fonctions de domaines : http://starec.developpez.com/tuto/fonctionsdomaines/

    Et n'oubliez pas également l'aide intégrée à Access

    Philippe

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Tester l'existence d'une table sur mysql
    Par spamitovic dans le forum Requêtes
    Réponses: 2
    Dernier message: 02/12/2010, 09h16
  2. Tester l'existence d'une table sur mysql
    Par misterio dans le forum Requêtes
    Réponses: 2
    Dernier message: 01/12/2010, 18h40
  3. Réponses: 2
    Dernier message: 08/11/2007, 10h54
  4. Réponses: 2
    Dernier message: 08/11/2007, 10h54
  5. Tester si un couple de champs existe sur une autre table
    Par jerjerrod dans le forum Langage SQL
    Réponses: 5
    Dernier message: 06/02/2007, 18h02

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