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

Access Discussion :

Alerte MsgBox si info déjà encodée


Sujet :

Access

  1. #1
    Membre régulier
    Profil pro
    Inscrit en
    Octobre 2010
    Messages
    316
    Détails du profil
    Informations personnelles :
    Localisation : Belgique

    Informations forums :
    Inscription : Octobre 2010
    Messages : 316
    Points : 116
    Points
    116
    Par défaut Alerte MsgBox si info déjà encodée
    Bonjour,

    Dans ma table, la clé primaire est sur le nom de la personne. [Nom]

    Autre champ : [N° dossier]

    J'aimerais avoir une MsgBox si le même n° de dossier est déjà encodé. (cela servirait de 2ème clé ....)

    Des idées ?

    Merci.

    Bonne soirée

  2. #2
    Expert éminent
    Homme Profil pro
    Webplanneur
    Inscrit en
    Octobre 2007
    Messages
    4 261
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 59
    Localisation : Réunion

    Informations professionnelles :
    Activité : Webplanneur

    Informations forums :
    Inscription : Octobre 2007
    Messages : 4 261
    Points : 6 557
    Points
    6 557
    Par défaut
    Salut
    Vous devez utiliser cette méthode pour vérifier qu'il n'y ait pas de doublon dans n°dossier
    "Le savoir est la seule matière qui s'accroit quand on la partage" (Socrate)
    UR - ESIROI - GPME/CG/DCG8
    QTH :21°19'18"S - 055°25'32"E
    Inutile de me contacter par MP
    Merci de cliquer sur si la réponse vous a permis de résoudre votre problème et n'oubliez pas de clôturer le fil en cliquant sur

  3. #3
    Membre éprouvé
    Homme Profil pro
    Développeur .net - Office - Quadiant
    Inscrit en
    Février 2020
    Messages
    575
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Loir et Cher (Centre)

    Informations professionnelles :
    Activité : Développeur .net - Office - Quadiant
    Secteur : Communication - Médias

    Informations forums :
    Inscription : Février 2020
    Messages : 575
    Points : 1 060
    Points
    1 060
    Par défaut
    Bonjour

    Citation Envoyé par Olivierporcinet Voir le message
    Bonjour,

    Dans ma table, la clé primaire est sur le nom de la personne. [Nom]
    Et que ce passe-t-il si tu a 2 personnes avec le même nom ?

    ONTAYG

  4. #4
    Membre régulier
    Profil pro
    Inscrit en
    Octobre 2010
    Messages
    316
    Détails du profil
    Informations personnelles :
    Localisation : Belgique

    Informations forums :
    Inscription : Octobre 2010
    Messages : 316
    Points : 116
    Points
    116
    Par défaut
    ça c'est un autre problème...... il est vrai qu'il peut avoir 2 personnes du même nom

  5. #5
    Expert confirmé

    Homme Profil pro
    consultant développeur
    Inscrit en
    Mai 2005
    Messages
    2 868
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Val de Marne (Île de France)

    Informations professionnelles :
    Activité : consultant développeur
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Mai 2005
    Messages : 2 868
    Points : 4 739
    Points
    4 739
    Par défaut
    Déjà ce n'est pas une bonne idée de caler une clé primaire sur un nom car le nom n'est pas unique ! Utilise plutot un num auto comme PK.

    sinon pour vérifier à la saisie d'un numero de dossier qu'il est unique, utiliser l'EVT _beforeUpdate :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
     
    private sub NumeroDossier_beforeUpdate(cancel as boolean)
    if len(me.NumeroDossier ) > 0 then
    If dcount("*","Table_dossier", "[N° dossier] ='" & me.NumeroDossier & "'") > 0 then
    msgbox ("Ce NumeroDossier existe déjà !" , vbinformation, " Corrigez la saisie"
    Cancel = true
    end if
    end if
    end sub
    "Always look at the bright side of life." Monty Python.

  6. #6
    Membre régulier
    Profil pro
    Inscrit en
    Octobre 2010
    Messages
    316
    Détails du profil
    Informations personnelles :
    Localisation : Belgique

    Informations forums :
    Inscription : Octobre 2010
    Messages : 316
    Points : 116
    Points
    116
    Par défaut
    J'ai un message d'erreur : La déclaration de la procédure ne correspond pas à la description de l'événement ....


    Pour info, ma table : Jeune

    Mon champ : [N°]


    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    Private Sub _BeforeUpdate(cancel As Boolean)
    If Len(Me.N°) > 0 Then
    
    If DCount("*", "Jeune", "[] ='" & Me.N° & "'") > 0 Then
    msgbox ("Ce NumeroDossier existe déjà !" , vbinformation, " Corrigez la saisie"
    cancel = True
    End If
    End If
    End Sub
    
    End Sub

  7. #7
    Expert éminent
    Homme Profil pro
    Webplanneur
    Inscrit en
    Octobre 2007
    Messages
    4 261
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 59
    Localisation : Réunion

    Informations professionnelles :
    Activité : Webplanneur

    Informations forums :
    Inscription : Octobre 2007
    Messages : 4 261
    Points : 6 557
    Points
    6 557
    Par défaut
    re,
    si N° est numérique il faut supprimer les simples quotes dans le critère en ligne 4 de votre sub()
    "Le savoir est la seule matière qui s'accroit quand on la partage" (Socrate)
    UR - ESIROI - GPME/CG/DCG8
    QTH :21°19'18"S - 055°25'32"E
    Inutile de me contacter par MP
    Merci de cliquer sur si la réponse vous a permis de résoudre votre problème et n'oubliez pas de clôturer le fil en cliquant sur

  8. #8
    Membre régulier
    Profil pro
    Inscrit en
    Octobre 2010
    Messages
    316
    Détails du profil
    Informations personnelles :
    Localisation : Belgique

    Informations forums :
    Inscription : Octobre 2010
    Messages : 316
    Points : 116
    Points
    116
    Par défaut
    Je débute avec le VBA et cela n'est pas facile....

    Je comprends que je dois enlever des guillemets mais je ne sais pas où...


    J'ai une autre solution :


    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    Private Sub Numero_AfterUpdate()
    If DCount("*", "Jeune", "Numero ='" & Me.Numero & "'") > 0 Then
    MsgBox "Ce NumeroDossier existe déjà !", vbInformation, " Corrigez la saisie"
    Cancel = True
    End If
    End Sub

    J'ai changé le nom du champ : [Numero] au lieu de [N°] et je l'ai mis en texte court au lieu de numérique.

    Ce qui m'intéresse est d'avoir les 2 codes en en numérique et texte court

    Merci

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

Discussions similaires

  1. [AC-2016] Alerte msgbox vba
    Par KAMELLIAS dans le forum VBA Access
    Réponses: 2
    Dernier message: 05/03/2020, 00h53
  2. Alertes MsgBox + InputBox en fonction des dates
    Par jbabs1 dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 15/04/2019, 08h01
  3. Afficher une alerte MsgBox qu'une seul fois..
    Par Matdenice dans le forum Macros et VBA Excel
    Réponses: 8
    Dernier message: 09/01/2018, 16h39
  4. Réponses: 1
    Dernier message: 03/07/2014, 23h58
  5. [AC-2003] Alerte MSGBOX sur doublons
    Par Joss0109 dans le forum IHM
    Réponses: 2
    Dernier message: 08/12/2010, 10h25

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