Discussion :

[Pitou5464]

Salut a tous,

Je voudrais savoir dans mon recordset quel champ contient la valeur indiqué? est ce que cela est possible de lui faire parcourir tous les champs d'un recordset?

Code :

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

1
2
3
4
5
6
7
8
Dim db As DAO.database
Dim rst As DAO.Recordset, rst2 As DAO.Recordset
Dim Wcmp As Variant
For Each Wcmp In Me.ListeBoxClientPrescripteur.ItemsSelected
Set db = CurrentDb
Set rst = db.OpenRecordset("SELECT * FROM T_Abonne WHERE T_Abonne.N° = " & Me.ListeBoxClientPrescripteur.Column(0) & "")
Set rst2 = db.OpenRecordset("SELECT * FROM T_Conseils2 Where T_Conseils2.AUTO = " & Me.ListeBoxClientPrescripteur.Column(0) & "")
rst2.FindFirst "rst2!* = " & rst!DIR_NOM

Merci pour votre aide

[pgz]

Bonjour,

est ce que cela est possible de lui faire parcourir tous les champs d'un recordset?

Pour parcourir tous les champs d'un recordset

Code :

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

1
2
3
4
5
6
Dim fld As Field, blnMatch As boolean
blnMatch = False
For each fld In rst.Fields
    If fld.Value = MaValeur Then blnMatch = True : Exit For
next fld
'ici blnMatch est vrai si la valeur a été trouvée et fld est le champ concerné.

Bon courage,

PGZ

[Pitou5464]

ok, merci pour ton aide.
je voudrais maintenant récupérer le nom du champ et effacer la valeur qu'elle contient par exemple par

Code :

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

1
2
3
rst.edit
rst.Champ = ""
rst.update

[pgz]

Re,

Tu fais

Code :

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

1
2
3
4
5
If blnMatch Then
    rst.Edit
    rst.(fld.Name) = ""
    rst.UpDate
End if

Bon courage,

PGZ

[Pitou5464]

ya un probleme avec les parentheses
de
rst.(fld.Name) = ""

"attendu identificateur ou expression entre crochet"

[pgz]

Oui, au temps pour moi :

Code :

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

rst.Fields(fld.Name) = ""

Avec mes excuses,

PGZ

[Pitou5464]

Super tu m'as trop trop aidé.merci pgz