Discussion :

[Nenette_cherie]

Bonjour,

Je travaille sous Access 2003 et j'utilise fréquemment les recordset pour récupérer des éléments dans mes tables, avec ce genre de demande :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
    Dim query2 As String
    Dim db As DAO.Database, rst As DAO.Recordset, fld As DAO.field
    Set db = CurrentDb
 
    query2 = "SELECT motifs.motif_description" _
            & " FROM motifs" _
            & " WHERE motifs.motif = " & Chr(34) & Pattern & Chr(34) _
            & " AND motifs.fitness = " & fitness _
            & " AND motifs.tools_number_tool = " & tool & ";"
    Set rst = db.OpenRecordset(query2, dbOpenDynaset)
 
    If rst.RecordCount = 0 Then
........

en bref : je demande s'il existe l'enregistrement avec les valeurs que j'indique (variables pattern, fitness et tool).

Ailleurs dans mon code, ce système fonctionne très bien : soit j'ai un Recordcount = 1 (l'enregistrement existe et je peux l'utiliser) soit Recordcount = 0 (non présent dans ma table).

Voici mon problème : ici, au lieu de me donner Recordcount = 1, il met = 48.
J'ai vérifié la requête en mode création de requête : elle renvoie un seul enregistrement.
J'ai aussi tester pourquoi 48 : il s'avère que celà correspond au critère " AND motifs.tools_number_tool = " & tool & " uniquement (il y a beaucoup plus de 48 enregistrements dans cette table).

Quelqu'un a une idée de l'origine de cette incohérence ?

[Tofalu]

Que vaut query2 ?

[Nenette_cherie]

query2 est la requete que je fabrique (voir mon code). Elle peut donner (par exemple) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
"SELECT motifs.motif_description FROM motifs
WHERE motifs.motif = "E-x(0,2)-E-x(7)-[EIKLV]"
AND motifs.fitness = 9.2507
AND motifs.tools_number_tool = 4;"

[argyronet]

Bonjour,

La propriété RecordCount s'utilise systématiquement après un MoveLast.
De fait, si aucun enregistrement n'est trouvé, une erreur est levée...
Donc il vaut mieux procéder ainsi:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
With rst
  If Not .EOF Then
    .MoveLast
    lngNB = .RecordCount
  End If
End With

En revanche, le coup du 48, là, je vois pas...

Argy

[Tofalu]

C'est bien la valeur données par VBA ou bien un exemple que tu as créé. Parce que si c'est ce que vaut query2 dans VBA et que ça te retourne 48, c'est que tu à 48 enregistrements qui correspondent à ces critères

[Nenette_cherie]

En fait, je n'ai jamais eu besoin d'un movelast (et je ne l'explique pas) mais partout où j'utilise les recordset dans mon code, il me trouve la bonne valeurs. Et généralement, je l'utilise pour savoir si l'enregistrement existe ou non (donc juste une ligne ou rien).

[argyronet]

Bien à ce moment là, créée une fonction générique publique dédiée qui s'en charge et que tu utilises chaque fois que tu as besoin de compter...

Argy

[Tofalu]

Plus d'infos sur RecordCount :

http://warin.developpez.com/access/d...rtie_5#L5.6.21

[Nenette_cherie]

C'est bien la valeur données par VBA ou bien un exemple que tu as créé. Parce que si c'est ce que vaut query2 dans VBA et que ça te retourne 48, c'est que tu à 48 enregistrements qui correspondent à ces critères

Quand je lance cette requête en mode "création" d'access, il me trouve bien le seul enregistrement correspondant à tous les critères imposés (et je parle bien de la même requête). En revanche, les 48 enregistrements correspondent au dernier critère uniquement (tool = 4) mais pas à la totalité de la table (j'ai d'autres enregistrements).

[philben]

De plus, si ta réponse attendu est binaire (existe ou n'existe pas),
le test de RST.EOF suffit et pas besoin de passer par recordcount

[Nenette_cherie]

Dans ce cas oui, le simple test binaire suffit. Mais comme ici, le Recordcount m'indique 48 enregistrements, je ne suis donc pas sure de récupérer ma bonne "motif_description" avec les critères que j'indique. Il y a donc un problème quelque part.
Si j'utilise le test binaire maintenant, il va forcément me trouver un enregistrement vu qu'il considère qu'il y en a plus que prévu, mais pas forcément celui que je cherche (mauvaise "motif_description").
En fait, je ne comprends pas pourquoi le recordset me trouve autant d'enregistrements alors que la requête seule n'en trouve qu'un.

[argyronet]

Ne te cantonne pas à essayer d'appliquer cette méthode qui marchait jusqu'alors...

Créée une fonction correcte de comptage et ton problème est résolu.

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
Public Function CountRecords(ByVal SQLDynaset As String) As Long
Dim oRS As DAO.Recordset
  
  On Error GoTo L_ErrNoData
  Set oRS = CurrentDb.OpenRecordset(SQLDynaset, 2)
  With oRS
    .MoveLast
     CountRecords = .RecordCount
    .Close
  End With
  Set oRS = Nothing
  
L_ExNoData:
  Exit Function
L_ErrNoData:
  CountRecords = 0
  Resume L_ExNoData
End Function

Argy

[Nenette_cherie]

j'essaie de suite et reviens ensuite vous dire si ça fonctionne.

[Kloun]

Et l'utilisation d'un debug.print query2, afin de vérifier ce que vaut réellement query2 et combien elle ramène effectivement d'enregistrements ne peut pas faire de mal.

[Nenette_cherie]

Et l'utilisation d'un debug.print query2, afin de vérifier ce que vaut réellement query2 et combien elle ramène effectivement d'enregistrements ne peut pas faire de mal.

Je vois ce que vaut query2 dans la fenêtre des variables lors du pas en pas en débuggage. Et cette requête copier coller en mode création ne donne qu'un seul enregistrement. Je vais essayer debug.print query2 pour voir ce que ça donne.

sinon, j'ai testé la fonction de comptage de argyronet : résultat = "1" avec la même requête.

J'explique toujours pas les "48" mais même si j'aimerais bien comprendre, je crois que je vais devoir passer outre....

Merci à Tous !!

[Nenette_cherie]

En fait, j'avais tort pour le MoveLast.....

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
    Dim query2 As String
    Dim db As DAO.Database, rst As DAO.Recordset, fld As DAO.field
    ' open the database
    Set db = CurrentDb
    query2 = "SELECT motifs.motif_description" _
            & " FROM motifs" _
            & " WHERE motifs.motif = " & Chr(34) & Pattern & Chr(34) _
            & " AND motifs.fitness = " & fitness _
            & " AND motifs.tools_number_tool = " & tool & ";"
    Debug.Print query2
    Set rst = db.OpenRecordset(query2, dbOpenDynaset)
    
    rst.MoveLast

    If rst.RecordCount = 0 Then

Et bien avec cette ligne en plus, j'obtiens bien recordcount=1 !!!!
Et avec le bon enregistrement ! (pas comme je le craignais, le dernier des 48)
Sans devoir rajouter de fonction et sans trop modifier mon code.
De plus, avec le fonction de comptage, je ne voyais plus comment récupérer mon champ "motif_description" en gardant quand même la fonction générique. Et c'est là que j'ai vu que la seule différence dans le fonctionnement, c'est le MoveLast.

Encore merci à tous !!