Fonction quitte à l'opération CurrentDb.OpenRecordset(strSql)

Version imprimable

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?

09/06/2011, 14h21
Invité

Bonjour

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

Philippe

réponse

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.

13/06/2011, 08h33
Invité

Bonjour

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

Philippe
13/06/2011, 15h15
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)