Discussion :

[erma01]

Bonsoir,

Je dispose d'une table, dans laquelle je cherche à trouver un enregistrement à l'aide de plusieurs critères:
* Champs Marque= "PEUGEOT"
* Champs Modele = "508"

Voici mon code, qui fonctionne correctement avec un seul des deux critères!!!

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 rst As DAO.Recordset
Dim strCritere As String
 
Var_Marque = "PEUGEOT"
Var_Modele= "508"
Var_Carburant= " Essence"
 
Set rst = CurrentDb.OpenRecordset("T_Importation_lst")  ', dbOpenDynaset)
'strCritere = "[Marque] = '" & Var_Marque& "' AND [Modele] = '" & Var_Modele& "'"
strCritere = "[Marque] = '" & Var_Marque & "'"
Debug.Print strCritere
rst.Index = "Model"
rst.Seek "=", strCritere
rst.Edit
rst.Fields("Carburant").Value = Var_Carburant
rst.Update
rst.Close
Set rst = Nothing
End Sub

Merci pour vos réponses.

[marot_r]

Bonjour.

Tu as mélangé 2 métodes de recherche.

La méthode la plus générale est :

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
Set rst = CurrentDb.OpenRecordset("T_Importation_lst", dbOpenDynaset)
strCritere = "[Marque] = '" & Var_Marque & "' AND [Modele] = '" & Var_Modele& "'"
Debug.Print strCritere
 
call rst.findfirst(strCritere)
 
if not rst.nomatch then
    rst.Edit
    rst.Fields("Carburant").Value = Var_Carburant
    rst.Update
end if
 
rst.Close
 
Set rst = Nothing

Seek est significativement plus rapide mais il est aussi terriblement restreint. Il ne marche que sur les tables locales.

Donc il n'est pas recommandé pour une application qui évoluera gracieusement.
Notement quand tu découperas la BD en Frontale (interface + code au sens large) et Dorsale (Juste les tables et les relations).

A+

[erma01]

En effet, une partie du code que j'ai collé était erroné!!!

En tout état de cause, hormis une petite erreur d'écriture sur le Dynaset, cela fonctionne très bien.

Je te remercie pour ta réponse...

Cordialement,

Eric

[marot_r]

Bonjour.

Si tu considère le sujet clos, merci d'appuyer sur le bouton en bas de discussion.

A+