rechercher puis manipuler champs identiques dans une même table
2 réponses
Eric FROGER
Bonjour,
J'ai une table avec des enregistrements dont certains champs sont identiques
: nom société, adresse, cp, etc. Je voudrais dédoublonner ma table par code
vba pour pouvoir identifier les doublons puis récupérer certaines
informations et les agréger dans le premier enregistrement et enfin
supprimer les enregistrements "doublons" pour avoir au final un
enregistrement unique qui contient toutes les informations relatives à la
même société. J'ai essayé les boucles itératives sans succès. Comment
faut-il faire : passer par un tableau, utiliser un bookmark,... ? Exemples
de code bienvenus. Merci de votre aide.
--
Eric FROGER
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Jan
Public Sub Uniequequery() Dim qdf As QueryDef Set qdf = CurrentDb.CreateQueryDef("QTest") qdf.sql = "select distinct * into tableX from TableY" DoCmd.OpenQuery "qtest" End Sub
Suc6 JanvM (Pays-Bas)
"Eric FROGER" wrote:
Bonjour,
J'ai une table avec des enregistrements dont certains champs sont identiques : nom socit, adresse, cp, etc. Je voudrais ddoublonner ma table par code vba pour pouvoir identifier les doublons puis rcuprer certaines informations et les agrger dans le premier enregistrement et enfin supprimer les enregistrements "doublons" pour avoir au final un enregistrement unique qui contient toutes les informations relatives la mme socit. J'ai essay les boucles itratives sans succs. Comment faut-il faire : passer par un tableau, utiliser un bookmark,... ? Exemples de code bienvenus. Merci de votre aide. -- Eric FROGER
Public Sub Uniequequery()
Dim qdf As QueryDef
Set qdf = CurrentDb.CreateQueryDef("QTest")
qdf.sql = "select distinct * into tableX from TableY"
DoCmd.OpenQuery "qtest"
End Sub
Suc6 JanvM (Pays-Bas)
"Eric FROGER" wrote:
Bonjour,
J'ai une table avec des enregistrements dont certains champs sont identiques
: nom socit, adresse, cp, etc. Je voudrais ddoublonner ma table par code
vba pour pouvoir identifier les doublons puis rcuprer certaines
informations et les agrger dans le premier enregistrement et enfin
supprimer les enregistrements "doublons" pour avoir au final un
enregistrement unique qui contient toutes les informations relatives la
mme socit. J'ai essay les boucles itratives sans succs. Comment
faut-il faire : passer par un tableau, utiliser un bookmark,... ? Exemples
de code bienvenus. Merci de votre aide.
--
Eric FROGER
Public Sub Uniequequery() Dim qdf As QueryDef Set qdf = CurrentDb.CreateQueryDef("QTest") qdf.sql = "select distinct * into tableX from TableY" DoCmd.OpenQuery "qtest" End Sub
Suc6 JanvM (Pays-Bas)
"Eric FROGER" wrote:
Bonjour,
J'ai une table avec des enregistrements dont certains champs sont identiques : nom socit, adresse, cp, etc. Je voudrais ddoublonner ma table par code vba pour pouvoir identifier les doublons puis rcuprer certaines informations et les agrger dans le premier enregistrement et enfin supprimer les enregistrements "doublons" pour avoir au final un enregistrement unique qui contient toutes les informations relatives la mme socit. J'ai essay les boucles itratives sans succs. Comment faut-il faire : passer par un tableau, utiliser un bookmark,... ? Exemples de code bienvenus. Merci de votre aide. -- Eric FROGER
Gloops
Bonjour,
Le SELECT DISTINCT peut aider, mais avec quelques nuances.
Public Sub Uniequequery() Dim qdf As QueryDef Set qdf = CurrentDb.CreateQueryDef("QTest") qdf.sql = "select distinct * into tableX from TableY" DoCmd.OpenQuery "qtest" End Sub
Bonjour,
Le SELECT DISTINCT peut aider, mais avec quelques nuances.
Public Sub Uniequequery()
Dim qdf As QueryDef
Set qdf = CurrentDb.CreateQueryDef("QTest")
qdf.sql = "select distinct * into tableX from TableY"
DoCmd.OpenQuery "qtest"
End Sub
Public Sub Uniequequery() Dim qdf As QueryDef Set qdf = CurrentDb.CreateQueryDef("QTest") qdf.sql = "select distinct * into tableX from TableY" DoCmd.OpenQuery "qtest" End Sub