Discussion :

[pikameuh]

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?

[Invité]

Bonjour

C'est ta chaine SQL, tu ne peux faire une somme avec *. Il faut désigner les champs.

Philippe

[pikameuh]

Merci de m'aider!

j'ai remplacé le caractère * :

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
25
Private Function SQLAll()
On Error GoTo GestError
    ' ===== déclaration des variables =====
    Dim strSql As String
    Dim rst As DAO.Recordset
    ' ===== affectation =====
    strSql = "SELECT Sum(NUM_BD) AS Somme FROM Doublons ;"
    Set rst = CurrentDb.OpenRecordset(strSql)
    MsgBox ("toto")
    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

Mais le message "toto" ne s'affiche toujours pas ...
Je ne comprens pas. L'attribut NUM_BD existe bien.