UneRequeteSelection = "SELECT UnChampDeRecherche, " & _ " COUNT(UnChampDeRecherche) " & _ " FROM Un_Nom_de_table " & _ " GROUP BY UnChampDeRecherche " & _ "HAVING COUNT(UnChampDeRecherche) > 1"
UneRequeteSelection = "SELECT UnChampDeRecherche, " & _ " COUNT(UnChampDeRecherche) As [Quantité]" & _ " FROM Un_Nom_de_table " & _ " GROUP BY UnChampDeRecherche " & _ "HAVING [Quantité] > 1"
UneRequeteSelection = "SELECT UnChampDeRecherche, " & _ " COUNT(UnChampDeRecherche) As [Quantité]" & _ " FROM Un_Nom_de_table " & _ " WHERE [Quantité] > 1 " & _ " GROUP BY UnChampDeRecherche "
Type incompatible (erreur 13)
"SELECT code_piece, " & _ " COUNT(code_piece) " & _ " FROM pieceintermediaire " & _ " GROUP BY code_piece " & _ "HAVING COUNT(code_piece) > 1"
"SELECT code_piece, " & _ " COUNT(code_piece) As [nbcodepiece]" & _ " FROM pieceintermediairee " & _ " GROUP BY code_piece " & _ "HAVING [nbcodepiece] > 1"
"SELECT code_piece, " & _ " COUNT(code_piece) As [nbcodepiece]" & _ " FROM pieceintermediaire " & _ " WHERE [nbrcodepiece] > 1 " & _ " GROUP BY code_piece ;"
Private Sub Commande63_Click() Dim Resultat As Boolean Dim UnRsSelection As ADODB.Recordset Dim uneRequeteLigne As String Dim UneRequeteSelection As String Dim unRsligne As ADODB.Recordset Dim Champ1, Champ2, Champ3, Champ4, Champ5, Champ6, Champ7, Champ8, ChampDeRecherche As String Set unRsligne = New ADODB.Recordset Set UnRsSelection = New ADODB.Recordset 'Cette requête permet de sélectionner les lignes de la table pour lesquelles la valeur "UnChampDeRecherche" apparait sur 2 ligne au moins UneRequeteSelection = "SELECT code_piece, " & _ " COUNT(code_piece) As [nbcodepiece]" & _ " FROM pieceintermediaire " & _ " WHERE [nbrcodepiece] > 1 " & _ " GROUP BY code_piece ;" 'Paramétrer cette chaîne de connexion à votre guise pour accéder à votre base de données Set db = CurrentDb UnRsSelection.Open , UneRequeteSelection, db, adOpenStatic, adLockReadOnly 'adOpenStatic, adLockReadOnly 'boucler sur les lignes ayant des doublons While Not UnRsSelection.EOF And UnRsSelection.BOF uneRequeteLigne = "SELECT code_piece, libel_piece, date_saisie, date_bac, devise, code_fournisseur, type_facture, code_signataire, code_operation FROM pieceintermediaire WHERE code_piece='" & UnRsSelection("code_piece") & "'" unRsligne.Open uneRequeteLigne, adOpenStatic, adLockReadOnly RaisonSocial = unRsligne("RaisonSociale") 'ranger Une valeur de ligne dans des variables ChampDeRecherche = unRsligne("code_piece") Champ1 = unRsligne("libel_piece") Champ2 = unRsligne("date_saisie") Champ3 = unRsligne("date_bac") Champ4 = unRsligne("devise") Champ5 = unRsligne("code_fournisseur") Champ6 = unRsligne("type_facture") Champ7 = unRsligne("code_signataire") Champ8 = unRsligne("code_operation") 'Supprimer ttes les lignes de doublons db.Execute "DELETE FROM pieceintermediaire WHERE code_piece='" & ChampDeRecherche & "'" 'Insérer une ligne unique db.Execute "INSERT INTO pieceintermediaire VALUES ('" & ChampDeRecherche & "', '" & Champ1 & "', '" & Champ2 & "','" & Champ3 & "','" & Champ4 & "','" & Champ5 & "','" & Champ6 & "','" & Champ7 & "','" & Champ8 & "')" 'fermeture du recordset unRsligne.Close UnRsSelection.MoveNext Wend MsgBox "Traitement de suppression des doublons effectué avec succès" Unload Me End Sub
UnRsSelection.Open , UneRequeteSelection, db, adOpenStatic, adLockReadOnly
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionDim Conn As ADODB.Connection Set Conn = CurrentProject.Connection UnRsSelection.Open , UneRequeteSelection, Conn, adOpenKeyset, adLockReadOnly
UneRequeteSelection = "SELECT UnChampDeRecherche, " & _ " COUNT(UnChampDeRecherche) " & _ " FROM Un_Nom_de_table " & _ " GROUP BY UnChampDeRecherche " & _ "HAVING COUNT(UnChampDeRecherche) > 1"
UneRequeteSelection = " SELECT COUNT(UnChampDeRecherche) " & _ " FROM Un_Nom_de_table " & _ " HAVING COUNT(UnChampDeRecherche) > 1" & _ "COMPUTE BY UnChampDeRecherche "Syntaxe à vérifier et à tester
Select xxx From maTable Compute Count(xxx) By xxx