Recherche de plusieurs critères dans un recordset

Version imprimable

Bonjour !

J'ai cherché dans la FAQ et dans le forum mais je ne trouve pas la réponse qui me correspond....

voilà, j'ai un recordset basé sur une requete... avec les 2 champs de ma requete j'aimerai faire une recherche de critère dans une table...

Explications :
Voilà mon code pour ouvrir mon (mes) recordset et la valorisation de mes 2 critères (en gras):
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Set Mabd = CurrentDb Set requete = Mabd.CreateQueryDef("", "Detail commande importee") Set tableRequete = requete.OpenRecordset() Set tableCommande = Mabd.OpenRecordset("COMMANDES", DB_OPEN_DYNASET) Set tableDetailCommande = Mabd.OpenRecordset("DETAILS COMMANDES", DB_OPEN_DYNASET) tableRequete.MoveFirst While Not tableRequete.EOF = False NumeroDeCommande = tableRequete.Fields(0).Value critere = "[N°_commande] = '" & NumeroDeCommande & "'" tableCommande.FindFirst critere If Not (tableCommande.NoMatch) Then NumeroDeFiche = tableRequete.Fields(1).Value critere2 = "[N°_fiche] = '" & NumeroDeFiche & "'"
Ce que je veux c'est écrire après cette dernière ligne un truc du genre :
tableDetailCommande.findFirst critere critere2

c'est à dire rechercher les lignes qui ont ce numéro de commande (critere) ET ce numero de fiche (critere2) pour chaque ligne de ma table "Details COMMANDES"

06/06/2006, 10h36
loufab

Bonjour,

En DAO le findfirst n'accepte qu'un seul critère.
La même méthode ADO en accepte plusieurs.

Cordialement
06/06/2006, 10h43
Mariboo

Oui j'y ai pensé ...

j'ai référencé la bibliothèque ADO et ensuite j'ai redéfini mon recordset
comme ceci :

Code:

Dim tableDetailCommande As ADODB.Recordset

Mais il ne me propose pas la méthode "FindFirst" mais juste "Find" et je n'arrive pas à lui faire mettre 2 critères.... je pense que je ne sais pas bien me servir de la méthode Find
06/06/2006, 10h47
Mariboo

J'ai cherché dans la FAQ , mais la FAQ me renvoi sur le site de microsoft et je n'y comprend rien à leur solution !
06/06/2006, 11h03
Mariboo
Bon j'ai essayé de décortiquer la solution microsoft et j'ai pondu ça :
Code:

1 2 If tableDetailCommande.Find (critere) And tableDetailCommande.Find(critere2) Then
MAIS ..... j'ai l'erreur : "Fonction ou variable attendue"
06/06/2006, 14h17
Mariboo

Quelqu'un peut m'expliquer comment passer deux critères dans la méthode FIND ??

Remonte ta référence ADO avant DAO et tu devrais voir apparaitre la méthode Findfirst dans la liste.

Ci-joint un code ADO qui fonctionne avec des critères multiples.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 Dim RS As Recordset Set RS = Me.RecordsetClone criteria = "[Jour]=" & Me.Jour & " and [Ordre]=" & Me.ORDRE RS.FindFirst criteria If Not RS.NoMatch Then MsgBox "Ce numéro d'ordre existe pour ce jour." Else msgbox "Ce numéro d'ordre n'existe pas pour ce jour." End If RS.close set RS = nothing

07/06/2006, 10h23
Mariboo

MERCI !!

je m'étais débrouillée autrement en passant par une requete paramétrée avec mes critères et en regardant si cette requete retournait un résultat ou pas...

Mais ce que tu m'as donné là me servira pour le futur ...

Merci :D

Citation:

Envoyé par loufab

Remonte ta référence ADO avant DAO et tu devrais voir apparaitre la méthode Findfirst dans la liste.

Ci-joint un code ADO qui fonctionne avec des critères multiples.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Dim RS As Recordset
 
Set RS = Me.RecordsetClone
criteria = "[Jour]=" & Me.Jour & " and [Ordre]=" & Me.ORDRE
 
RS.FindFirst criteria
 
If Not RS.NoMatch Then
 
   MsgBox "Ce numéro d'ordre existe pour ce jour."
 
Else
   msgbox "Ce numéro d'ordre n'existe pas pour ce jour."
 
End If
 
RS.close
set RS = nothing

Bonjour
Il y'a longtemps pour cette discussion mais...
J'ai un problème un peu pareil en fait je dois vérifier deux critè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
    Dim rsDim_aux As Recordset
    Dim rsDimensions As Recordset
    Dim critere04 As String ' On va mettre dans lequel la "référence_dim" de la table "Dimensions"
    Set rsDim_aux = CurrentDb.OpenRecordset("dim_aux")
    Set rsDimensions = CurrentDb.OpenRecordset("Dimensions")
    rsDim_aux.MoveFirst
    While Not rsDim_aux.EOF() 'parcourir la table "dim_aux"
          Debug.Print rsDim_aux![Dimcoupe]
          critere04 = "[Longueur] =" & rsDim_aux![Dimcoupe]
          critere04 = critere04 & " and [Matière première] = """ & Me.CodeMP & """"
          Debug.Print critere04
          rsDimensions.FindFirst critere04
          If Not rsDimensions.NoMatch Then
                 rsDimensions.Edit   'modifier la table "dimensions"
                 rsDimensions![Quantité utilisée] = rsDimensions![Quantité utilisée] + Me.Quantity  'calcul du cumul par MP
                 rsDimensions.Update 'mise à jour de la table "dimensions"
          End If
          rsDim_aux.MoveNext 'longueur suivante de la table "dim_aux"
   Wend
   rsDim_aux.Close
   rsDimensions.Close
   Set rsDim_aux = Nothing
   Set rsDimensions = Nothing

Le problème c'est dans la ligne

Citation:

rsDimensions.FindFirst critere04

J'ai essayé au début:

Citation:

call rsDimensions.FindFirst (critere04)

Mais c'est toujours la source du problème
Merci de m'aider
A+

18/05/2017, 23h13
tee_grandbois

Bonsoir,

Citation:

J'ai un problème un peu pareil en fait je dois vérifier deux critère!!!

Peux-tu préciser ta version d'Access ?
J'utilise Access 2013 et il accepte plusieurs critères et sans la référence ADO.
19/05/2017, 01h38
Massiliya

Access 2016
19/05/2017, 01h40
Massiliya

Je pense que le problème provient plutôt du "call"
Peut-être la syntaxe est incorrecte ! ! !
19/05/2017, 17h28
tee_grandbois

1 pièce(s) jointe(s)

Citation:

Je pense que le problème provient plutôt du "call"

Non, Call n'est pas en cause.
Peux-tu essayer en cochant ADO dans tes références ?
Pièce jointe 277363
21/05/2017, 12h50
Massiliya

Citation:

Envoyé par tee_grandbois

Non, Call n'est pas en cause.
Peux-tu essayer en cochant ADO dans tes références ?

Merci Tee le problème est résolu :mouarf::mouarf::mouarf::mouarf:
A+