Bonjour à tous !

je développe un formulaire qui doit extraire les doublons dans une table.

Pour se faire, je commence par déterminer le nombre de doublons
(nombreDoublon = Select Sum(*) - Select Sum(Distinct *) )

Je débute tout juste, mais déjà j'ai un soucis...

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Private Function SQLAll()
On Error GoTo GestError
    ' ===== déclaration des variables =====
    Dim strSql As String
    Dim rst As DAO.Recordset
    ' ===== affectation =====
    strSql = "SELECT Sum(*) FROM Doublons ;"
    Set rst = CurrentDb.OpenRecordset(strSql)
    If rst.RecordCount = 0 Then
        SQLAll = "Pas de Données"
    Else
        SQLAll = rst("Somme")
    End If
    ' ===== libération =====
    rst.Close
    Set rst = Nothing
    Exit Function
 
GestError:
 
    If Err.Number = 3061 Then
        MsgBox "Une des donnée entrée en paramètre est erronée", vbOKOnly + vbExclamation
    End If
End Function
Apparement la fonction s'arrette à l'opération Set rst = CurrentDb.OpenRecordset(strSql).

Cette conclusion a été trouvé grâce à des MsgBox.

Pouvez vous m'aidez svp?