Discussion :

[jmde]

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 :

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

[Invité]

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

[Dolphy35]

Salut

je verrais plus un truc comme ceci :

Code :

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

rs.Fields("DateRemise").Value

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


Dolphy

[jmde]

Bonjour Starec

Voici mes déclarations:

Code :

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

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

[Invité]

Re

Essaye la solution de Dophy35, sinon essaye

Code :

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

rs.Fields(2).Value

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

Starec

[Kloun]

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

[jmde]

Re bonjour Starec,

Merci pour ta solution ça marche

Code :

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

rs.Fields(2).Value

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

Salutations

[Dolphy35]

re,

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 :

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

rs.Fields("DateRemise").Value

Dolphy

[jmde]

Bonsoir Dolphy35,

Oui j'ai essayé

Code :

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

rs.Fields("DateRemise").Value

Mais il ne comprend que cela,

Code :

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

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

[Dolphy35]

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 :

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

MsgBox rs.Fields(2).Name

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

Code :

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

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 :

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

[tbl Chèques].*

maintenant les deux codes précédents fonctionnent

Dolphy