Elément non trouvé

Bonjour,

Lorsque je lance ce code j'obtiens le message suivant :


« Elément non trouvé dans cette collection » et le curseur se
positionne sur rs("DateRemise")


'

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

---Ouverture de la base Set db = CurrentDb   '--Intérogation de la tbl chèques rq = "SELECT [tbl Chèques].*, [tbl Chèques].DateRemise, [tbl Chèques].N°Remise, [tbl Chèques].Imprimé " & _ "FROM [tbl Chèques] " & _ "WHERE ((([tbl Chèques].Imprimé)=False));"   Set rs = db.OpenRecordset(rq, dbOpenDynaset)   If rs.EOF Then MsgBox " Aucun enregistrement ne répond au critère !", vbExclamation Else rs.Edit rs("DateRemise") = lstr_date rs("N°Remise") = lstr_N°Remise   rs.Update End If

---

Merci pour votre aide.

Salutations

Bonjour

Contrôle si "DateRemise" s'écrit bien de la même maniére dans ta table "tbl chéque".

rq est-il bien déclaré en string ?
rs est-il bien déclaré en DAO.Recordset ?

Starec

Salut

je verrais plus un truc comme ceci :

Code:

---

rs.Fields("DateRemise").Value

---

ps: un excellent tutot de Tofalu :fleche: http://warin.developpez.com/access/dao/


Dolphy ;)

Bonjour Starec

Voici mes déclarations:

Code:

---

1 2 3

Dim db As DAO.Database Dim rs As DAO.Recordset Dim rq As String

---

les noms des champs sont identiques à la table

Par contre j'ai fait un essai en mettant d'autres champs de la table
et cela fonctionne,
donc dans mon cas le problème doit se situer sur le champ "DateRemise"
et "N°Remise"

mais quel problème ?


Salutations

Re

Essaye la solution de Dophy35, sinon essaye

Code:

---

rs.Fields(2).Value

---

Avec le chiffres correspond à l'emplacement de ton champ dans ta table en commencant pour le premier champ à 0.

Starec

Je pense pas que ça fonctionnera, vu qu'il a une * en premier dans son select.

Re bonjour Starec,

Merci pour ta solution ça marche

Code:

---

rs.Fields(2).Value

---

Pourquoi les autres solutions ne marche pas. A-tu une explication ?

Salutations

re,

Citation:

---

Envoyé par jmde

Re bonjour Starec,

Merci pour ta solution ça marche

rs.Fields(2).Value

Pourquoi les autres solutions ne marche pas. A-tu une explication ?

Salutations

---

une petite question, tu as esseyé :

Code:

---

rs.Fields("DateRemise").Value

---

Dolphy ;)

Bonsoir Dolphy35,

Oui j'ai essayé

Code:

---

rs.Fields("DateRemise").Value

---

Mais il ne comprend que cela,

Code:

---

rs.Fields(2).Value

---

et je vais avoir un sérieux problème si je n'arrive pas à faire autrement.


Merci pour votre aide.

Salutations

Salut,

Je n'avais pas vu l'erreur de suite, tu as une erreur dans ta chaîne SQL.

pour que tu le vois par toi même mais ceci dans ton code sans corriger ta chaîne SQL :

Code:

---

MsgBox rs.Fields(2).Name

---

ceci est dû à ta chaîne SQL, utilise cette chaîne :

Code:

---

1 2 3

rq = "SELECT [tbl Chèques].DateRemise, [tbl chèques].N°Remise, [tbl Chèques].Imprimé " & _ "FROM [tbl Chèques] " & _ "WHERE ((([tbl Chèques].Imprimé)=False));"

---

ceci était de trop

Code:

---

[tbl Chèques].*

---

maintenant les deux codes précédents fonctionnent

Dolphy ;)