Discussion :

[Mariboo]

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 :

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

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"

[loufab]

Bonjour,

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

Cordialement

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

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

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

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

[Mariboo]

Bon j'ai essayé de décortiquer la solution microsoft et j'ai pondu ça :

Code :

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

1
2
 
If tableDetailCommande.Find (critere) And tableDetailCommande.Find(critere2) Then

MAIS ..... j'ai l'erreur : "Fonction ou variable attendue"

[Mariboo]

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

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

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

[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

[Massiliya]

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 :

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

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

rsDimensions.FindFirst critere04

J'ai essayé au début:

call rsDimensions.FindFirst (critere04)

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

[tee_grandbois]

Bonsoir,

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.

[Massiliya]

Access 2016

[Massiliya]

Je pense que le problème provient plutôt du "call"
Peut-être la syntaxe est incorrecte ! ! !

[tee_grandbois]

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 ?

[Massiliya]

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
A+