[AC-2003] Comparer plusieurs valeurs avec un Dlookup [Résolu]

[Skootman]

Bonjour,

J'effectue un petit test avec un Dlookup:

Code :

1
2
3
 If Abs(DLookup("error", "Registration", "Temp_ID ='" & str & "'")) 
> DLookup("allowed", "Registration", "Temp_ID ='" & str & "'") 
Then

Le problème c'est que dans ma DB "registration" il y a plusieurs lignes contenant pour un même "Temp_ID" plusieurs "error".
Le dlookup n'effectue donc mon test que sur la première et ne vérifie pas les autres

Comment faire pour qu'il vérifie sur chaque ligne

Merci d'avance

[pgz]

Bonjour.

Tu ouvres un jeu d'enregistrement sur le même Temp_ID, et tu fais un test pour chaque enregistrement.

Cordialement,

PGZ

[Skootman]

Merci pour la réponse rapide mais je ne connais absolument pas les objets recordset. Et quand je vois les 110 pages du tutorial de ce site sur les record set je suis plutot découragé


Y aurait-il moyen d'avoir le bout de code correspondant à ces opérations.

En vous remerciant d'avance

Cdlt

[Skootman]

Bonjour,

Personne pour me donner le bout de code correspondant ?

Cdlt

[pier.antoine]

Bonjour

Lire et connaître par coeur les 110 pages du tutoriel n'est pas nécessaire (dans un premier temps, bien sûr!!!)

Il faut se consacrer sur la partie des recordset, à savoir Partie 5 : DAO et l'accés aux données

Je pense que vous pourriez y parvenir.

Pierre

[Skootman]

Bonjour,

Première question:

Y-a-t-il un risque que je bousille la DB en essayant de manipuler des recordset ? Pcq je vous avoue que c'est ce qui me bride le plus à tenter l'aventure.

Sinon, voici ce vers quoi je me lancerais (absolument pas testé):

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
 
            i = 0
            Do
            Set RstTest = dbs.OpenRecordset("Select * from Registration where Temp_ID=" & Chr(34) & str & Chr(34), dbOpenDynaset, [dbSeeChanges])
            If Abs(RstTest.Fields("error")) > RstTest.Fields("allowed") Then
            Me.error_text.Visible = True
            Me.error_text = "          Attention !!!!          Ce numéro provisoire n'a pas réussi les tests primitifs"
            Exit Do
            End If
            i = 1 + 1
            RstTest.MoveNext
 
             Loop Until i < RstTest.RecordCount

Je me doute qu'il doit y avoir une méthode plus élégante mais c'est déja un début

Cdlt

[pier.antoine]

Bonjour

Dans un premier temps, vous pouvez bien sûr travailler sur des sauvegarde, bien sûr.

Pour répondre plus précisément, l'utilisation des recordset peut bien sûr "bousiller" des données, mais pas plus qu'avec certaines inscructions SQL.

Les méthode ".AddNew" et ".edit" modifie le contenu des données.

Pierre

[Skootman]

BOnjour

Voila j'ai avancé mais y'a encore un ou 2 trucs qui posent problème.

En faisant des tests, j'ai remarqué que la fonction .recordcount ne me renvoit pas ce que je souhaite.

Lorsque je crée un recordset sur un temp_id qui a passé 4 tests (donc d'après moi 4 lignes dans le recordset) la fonction recordcount me renvoit 1...

Je suis donc exactement à mon point de départ (je ne test que le premier test) à part que cette fois ci j'utilise un recordset

Qqu à une idée ?

Deuxième petit problème, le lisais dans la doc qu'il faut fermer lme recordset pour éviter de devoir trop régulièrement compacter la base. Je le ferme à quel moment ?
Cdlt

[Skootman]

Voila corrigé et réglé

Tout fonctionne

Merci bcp:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
 
 
            i = 0
            Set RstTest = dbs.OpenRecordset("Select * from Registration where Temp_ID=" & Chr(34) & str & Chr(34), dbOpenDynaset, [dbSeeChanges])
            Do
            If Abs(RstTest.Fields("error")) > RstTest.Fields("allowed") Then
            Exit Do
            End If
            i = i + 1
            RstTest.MoveNext
 
             Loop Until i = RstTest.RecordCount

[pier.antoine]

Bonjour

1/ la propriété "recordcount" a une petite subtilité.
Tant que le pointeur n'a pas atteint le dernier enregistrement, recordcount renvoie le nombre d'enregistrement jusqu'à celui qu'il pointe actuellement (si j'ai bien compris).
Solution : avant d'utiliser un recordcount, aller jusqu'au dernier enregistrement (movelast)


2/ on le ferme une fois qu'on a plus besoin ni de lire des données, ni d'en modifier, ni d'en ajouter.
Bref, en général quand on sort de la procédure.

PS : j'ai vu qu'entre temps vous aviez trouvé.

Pierre