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 :

Numéroter les doublons dans une requête en utilisant une fonction vba


Sujet :

VBA Access

  1. #1
    Candidat au Club
    Profil pro
    Inscrit en
    Septembre 2009
    Messages
    3
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Septembre 2009
    Messages : 3
    Points : 2
    Points
    2
    Par défaut Numéroter les doublons dans une requête en utilisant une fonction vba
    Bonjour,

    Mon problème est le suivant,
    J'ai une table avec 2 champs comme ci-dessous :

    ID ll NOM
    AFG-001 ll toto
    AFG-001 ll tutu
    AFG-002 ll toto
    AFG-003 ll toto
    AFG-003 ll tutu
    AFG-003 ll titi

    J'aimerais créer une requête avec un nouveau champ qui numéroterait les doublons contenus dans le champ ID, comme ci-dessous :

    ID ll NOM ll DOUBLONS
    AFG-001 ll toto ll 1
    AFG-001 ll tutu ll 2
    AFG-002 ll toto ll 1
    AFG-003 ll toto ll 1
    AFG-003 ll tutu ll 2
    AFG-003 ll titi ll 3

    Mon petit doigt me dit que pour calculer le champ DOUBLON il faudrait que j'aille chercher une fonction vba dans le générateur d'expression de la requête et que cette fonction s'exécute sur le champ ID.
    Je ne pense pas que se soit possible de le faire avec une expression sql ?

    Merci beaucoup à celles et ceux qui pourraient m'aider !

  2. #2
    Expert confirmé Avatar de nico84
    Homme Profil pro
    Consultant/développeur ERP
    Inscrit en
    Mai 2008
    Messages
    3 088
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 61
    Localisation : France, Bouches du Rhône (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Consultant/développeur ERP
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Mai 2008
    Messages : 3 088
    Points : 5 204
    Points
    5 204
    Par défaut
    Bonjour,

    C'est possible avec une boucle en VBA, mais voici une solution partiellement en SQL :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    public function rang(id,nom)
    set rst = CurrentDb.OpenRecordset("SELECT count(*) as n FROM matable where id='" & id & "' and nom='" & nom & "'")
    rang=rst!n
    end function
    Puis :
    Code sql : Sélectionner tout - Visualiser dans une fenêtre à part
    update matable set doublons=rang(id,nom)
    Utilisez Planet, gestion d'entreprise gratuite pour TPE / PME

Discussions similaires

  1. Réponses: 3
    Dernier message: 27/01/2010, 14h29
  2. [AC-2003] Numéroter les doublons dans une requête en utilisant une fonction VBA
    Par maldan dans le forum VBA Access
    Réponses: 1
    Dernier message: 23/09/2009, 16h46
  3. Erreur sur une requête en utilisant la fonction somme
    Par TheFantasyRide dans le forum Requêtes et SQL.
    Réponses: 3
    Dernier message: 21/04/2009, 18h55
  4. Réponses: 11
    Dernier message: 23/09/2008, 13h16
  5. Réponses: 31
    Dernier message: 24/08/2006, 12h13

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