Discussion :

[Frenchguy]

Bonjour,

Je debute avec DAO et les recordset, et je me base sur la FAQ DAO de Christophe WARIN.

j'ai ce bout de code:

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
Private Sub Commande40_Click()
Dim db As DAO.Database
Dim rst As DAO.Recordset
 
Set db = Application.CurrentDb
Set rst = db.OpenRecordset("Prix_Produits1", dbOpenDynaset)
 
 rst.Edit
 rst.Fields("Prix_P1").Value = Me.[BLABLA1]
 rst.Update
 
 
rst.FindFirst ("BLABLA2")
If rst.NoMatch Then MsgBox "Aucun enregistrement n'a été trouvé"
 rst.Edit
 rst.Fields("Prix_P1").Value = Me.[BLABLA2]
 rst.Update
 
rst.Close
db.Close
Set rst = Nothing
Set db = Nothing
End Sub

donc la premiere partie du code modifie bien mon 1er enregistrement de recordset en y appliquant à prix_1, la valeur du champ BLABLA1 du formulaire.

Pour modifier l'enregistrement, plutot que faire un move (au cas ou on ajoute des prix, par exemple) il m'a semblé plus judicieux de tester le nom du produit.

Donc j'essaye de trouver mon produit BLABLA2.
sauf qu'a l'execution, je me retrouve avec une "erreur de synthaxe, opérateur absent" pour:

Code :

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

rst.FindFirst ("BLABLA2")

j'ai esayé

Code :

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

rst.FindFirst = ("BLABLA2")

mais c'est pareil.
qu'est ce qui ne va pas???

merci

[Frenchguy]

Apres autres recherches et ne pas trouver d'autres methode pour Findfirst, j'ai refait, et je me suis rendu compte que el bout de code que j'avais zappé etait bien UTILE !!!

Code :

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

rst.FindFirst ("Nom_Produit1 LIKE " & Chr(34) & "BLABLA2" & Chr(34))

Là ça marche!!!
En fait le recordseet ce n'est pas si sorcier!!!

à épurer donc!!