[AC-2003] Fonction quitte à l'opération CurrentDb.OpenRecordset(strSql) [Résolu]

[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 :

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?

[Philippe JOCHMANS]

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 :

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.

[Philippe JOCHMANS]

Bonjour

As-tu d'abord testé ta requête dans le requêteur d'Access (QBE) ?

Philippe

[pikameuh]

Bonjour à tou,s je n'ai toujours pas trouvé la solution..

Cependant j'ai radicalement changé de méthode et ça marche.
Pour ceux que ça interresse, je créer une requête de selection de doublons dans une chaine et j'éxporte l'execution de la chaine de caractere.

(Si vous avez besoins de précision, je réponds aux questions)