Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Access Elément non trouvé

Elément non trouvé

9 réponses
Avatar
Jacques
Bonjour,

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

=AB El=E9ment non trouv=E9 dans cette collection =BB et le curseur se
positionne sur rs("DateRemise")

'---Ouverture de la base
Set db =3D CurrentDb

'--Int=E9rogation de la tbl ch=E8ques
rq =3D "SELECT [tbl Ch=E8ques].*, [tbl Ch=E8ques].DateRemise, [tbl
Ch=E8ques].N=B0Remise, [tbl Ch=E8ques].Imprim=E9 " & _
"FROM [tbl Ch=E8ques] " & _
"WHERE ((([tbl Ch=E8ques].Imprim=E9)=3DFalse));"

Set rs =3D db.OpenRecordset(rq, dbOpenDynaset)

If rs.EOF Then
MsgBox " Aucun enregistrement ne r=E9pond au crit=E8re !",
vbExclamation
Else
rs.Edit
rs("DateRemise") =3D lstr_date
rs(" N=B0Remise") =3D lstr_N=B0Remise

rs.Update
End If

Merci pour votre aide.

Salutations
Signaler un problème avec ce contenu

9 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
ze Titi
Hello Jacques !

rs.Fields("DateRemise")
ou
rs!DateRemise

fonctionnera beaucoup mieux.

En ce jour mémorable du jeudi 07/06/2007, tu as entrepris la lourde
tâche de taper sur ton clavier :
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")

'---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é)úlse));"

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


--
Cordialement,
Ze Titi

Tout pour réussir avec Access :
http://www.mpfa.info

Avatar
Jacques
On 7 juin, 11:38, ze Titi wrote:
Hello Jacques !

rs.Fields("DateRemise")
ou
rs!DateRemise

fonctionnera beaucoup mieux.

En ce jour mémorable du jeudi 07/06/2007, tu as entrepris la lourde
tâche de taper sur ton clavier :





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

'---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é)úlse));"

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


--
Cordialement,
Ze Titi

Tout pour réussir avec Access :http://www.mpfa.info- Masquer le texte d es messages précédents -

- Afficher le texte des messages précédents -


Bonjour,

Merci pour ta réponse, mais cela ne corrige pas mon problème.

Salutations


Avatar
ze Titi
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é)úlse));"

db.CreateQueryDef "R1",rq
Set rs = db.OpenRecordset("R1", 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
Set rs=Nothing
db.QueryDefs.Delete "R1"

Peut-être ?

Dans ton message
du jeudi
On 7 juin, 11:38, ze Titi wrote:
Hello Jacques !

rs.Fields("DateRemise")
ou
rs!DateRemise

fonctionnera beaucoup mieux.

En ce jour mémorable du jeudi 07/06/2007, tu as entrepris la lourde
tâche de taper sur ton clavier :





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

'---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é)úlse));"
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


--
Cordialement,
Ze Titi

Tout pour réussir avec Access :http://www.mpfa.info- Masquer le texte des
messages précédents -

- Afficher le texte des messages précédents -


Bonjour,

Merci pour ta réponse, mais cela ne corrige pas mon problème.

Salutations


--
Cordialement,
Ze Titi

Tout pour réussir avec Access :
http://www.mpfa.info



Avatar
ze Titi
.../...
en n'oubliant pas de modifier les lignes que je t'avais suggérées dans
mon premier post...

En ce jour mémorable du jeudi 07/06/2007, tu as entrepris la lourde
tâche de taper sur ton clavier :
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é)úlse));"

db.CreateQueryDef "R1",rq
Set rs = db.OpenRecordset("R1", 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
Set rs=Nothing
db.QueryDefs.Delete "R1"

Peut-être ?

Dans ton message du
On 7 juin, 11:38, ze Titi wrote:
Hello Jacques !

rs.Fields("DateRemise")
ou
rs!DateRemise

fonctionnera beaucoup mieux.

En ce jour mémorable du jeudi 07/06/2007, tu as entrepris la lourde
tâche de taper sur ton clavier :





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

'---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é)úlse));"
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


--
Cordialement,
Ze Titi

Tout pour réussir avec Access :http://www.mpfa.info- Masquer le texte des
messages précédents -

- Afficher le texte des messages précédents -


Bonjour,

Merci pour ta réponse, mais cela ne corrige pas mon problème.

Salutations



--
Cordialement,
Ze Titi

Tout pour réussir avec Access :
http://www.mpfa.info




Avatar
Jacques
On 7 juin, 12:59, ze Titi wrote:
.../...
en n'oubliant pas de modifier les lignes que je t'avais suggérées dans
mon premier post...

En ce jour mémorable du jeudi 07/06/2007, tu as entrepris la lourde
tâche de taper sur ton clavier :





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é)úlse));"

db.CreateQueryDef "R1",rq
Set rs = db.OpenRecordset("R1", 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
Set rs=Nothing
db.QueryDefs.Delete "R1"

Peut-être ?

Dans ton message > du
On 7 juin, 11:38, ze Titi wrote:
Hello Jacques !

rs.Fields("DateRemise")
ou
rs!DateRemise

fonctionnera beaucoup mieux.

En ce jour mémorable du jeudi 07/06/2007, tu as entrepris la lourde
tâche de taper sur ton clavier :

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

'---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é)úlse));"
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


--
Cordialement,
Ze Titi

Tout pour réussir avec Access :http://www.mpfa.info-Masquer le text e des
messages précédents -

- Afficher le texte des messages précédents -


Bonjour,

Merci pour ta réponse, mais cela ne corrige pas mon problème.

Salutations



--
Cordialement,
Ze Titi

Tout pour réussir avec Access :http://www.mpfa.info- Masquer le texte d es messages précédents -

- Afficher le texte des messages précédents -


Re bonjour,

Non ça ne marche pas.

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





Avatar
ze Titi
Orthographe des champs ?
Par ailleurs, quel est l'intérêt d'afficher les champs DateRemise,
N°Remise et Imprimé alors que tu fais un [tbl Chèques].* juste avant ?

Dans ton message
On 7 juin, 12:59, ze Titi wrote:
.../...
en n'oubliant pas de modifier les lignes que je t'avais suggérées dans
mon premier post...

En ce jour mémorable du jeudi 07/06/2007, tu as entrepris la lourde
tâche de taper sur ton clavier :





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é)úlse));"
db.CreateQueryDef "R1",rq
Set rs = db.OpenRecordset("R1", 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
Set rs=Nothing
db.QueryDefs.Delete "R1"

Peut-être ?

Dans ton message du
On 7 juin, 11:38, ze Titi wrote:
Hello Jacques !

rs.Fields("DateRemise")
ou
rs!DateRemise

fonctionnera beaucoup mieux.

En ce jour mémorable du jeudi 07/06/2007, tu as entrepris la lourde
tâche de taper sur ton clavier :

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

'---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é)úlse));"
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


--
Cordialement,
Ze Titi

Tout pour réussir avec Access :http://www.mpfa.info-Masquer le texte des
messages précédents -

- Afficher le texte des messages précédents -
Bonjour,


Merci pour ta réponse, mais cela ne corrige pas mon problème.
Salutations



--
Cordialement,
Ze Titi

Tout pour réussir avec Access :http://www.mpfa.info- Masquer le texte des
messages précédents -

- Afficher le texte des messages précédents -


Re bonjour,

Non ça ne marche pas.

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


--
Cordialement,
Ze Titi

Tout pour réussir avec Access :
http://www.mpfa.info






Avatar
3stone
Salut,

"Jacques"
[...]
Non ça ne marche pas.

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 ?


"N°Remise" utilise un caractère qui demande les crochets...

"[N°Remise]" devrait aller mieux.

--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
MPFA: http://www.mpfa.info/ (infos générales)
Avatar
Jacques
On 7 juin, 13:46, ze Titi wrote:
Orthographe des champs ?
Par ailleurs, quel est l'intérêt d'afficher les champs DateRemise,
N°Remise et Imprimé alors que tu fais un [tbl Chèques].* juste avan t ?

Dans ton message





On 7 juin, 12:59, ze Titi wrote:
.../...
en n'oubliant pas de modifier les lignes que je t'avais suggérées dans
mon premier post...

En ce jour mémorable du jeudi 07/06/2007, tu as entrepris la lourde
tâche de taper sur ton clavier :

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é)úlse));"
db.CreateQueryDef "R1",rq
Set rs = db.OpenRecordset("R1", 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
Set rs=Nothing
db.QueryDefs.Delete "R1"

Peut-être ?

Dans ton message om> du
On 7 juin, 11:38, ze Titi wrote:
Hello Jacques !

rs.Fields("DateRemise")
ou
rs!DateRemise

fonctionnera beaucoup mieux.

En ce jour mémorable du jeudi 07/06/2007, tu as entrepris la lour de
tâche de taper sur ton clavier :

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

'---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é)úlse));"
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


--
Cordialement,
Ze Titi

Tout pour réussir avec Access :http://www.mpfa.info-Masquerle tex te des
messages précédents -

- Afficher le texte des messages précédents -
Bonjour,


Merci pour ta réponse, mais cela ne corrige pas mon problème.
Salutations



--
Cordialement,
Ze Titi

Tout pour réussir avec Access :http://www.mpfa.info-Masquer le texte des
messages précédents -

- Afficher le texte des messages précédents -


Re bonjour,

Non ça ne marche pas.

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


--
Cordialement,
Ze Titi

Tout pour réussir avec Access :http://www.mpfa.info- Masquer le texte d es messages précédents -

- Afficher le texte des messages précédents -


Re bonjour,
Oui en éffet je peut faire çà:

StrSql = "SELECT [tbl Chèques].*, [tbl Chèques].Imprimé " & _
"FROM [tbl Chèques] " & _
"WHERE ((([tbl Chèques].Imprimé)úlse));

L'Orthographe des champs est identique à la tbl

Salutations.







Avatar
Jacques
On 7 juin, 15:28, Jacques wrote:
On 7 juin, 13:46, ze Titi wrote:





Orthographe des champs ?
Par ailleurs, quel est l'intérêt d'afficher les champs DateRemise,
N°Remise et Imprimé alors que tu fais un [tbl Chèques].* juste av ant ?

Dans ton message

On 7 juin, 12:59, ze Titi wrote:
.../...
en n'oubliant pas de modifier les lignes que je t'avais suggérée s dans
mon premier post...

En ce jour mémorable du jeudi 07/06/2007, tu as entrepris la lourde
tâche de taper sur ton clavier :

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é)úlse));"
db.CreateQueryDef "R1",rq
Set rs = db.OpenRecordset("R1", 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
Set rs=Nothing
db.QueryDefs.Delete "R1"

Peut-être ?

Dans ton message .com> du
On 7 juin, 11:38, ze Titi wrote:
Hello Jacques !

rs.Fields("DateRemise")
ou
rs!DateRemise

fonctionnera beaucoup mieux.

En ce jour mémorable du jeudi 07/06/2007, tu as entrepris la lo urde
tâche de taper sur ton clavier :

Bonjour,

Lorsque je lance ce code j'obtiens le message suivant :
« Elément non trouvé dans cette collection » et le curse ur se
positionne sur rs("DateRemise")

'---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é)úlse));"
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


--
Cordialement,
Ze Titi

Tout pour réussir avec Access :http://www.mpfa.info-Masquerlete xte des
messages précédents -

- Afficher le texte des messages précédents -
Bonjour,


Merci pour ta réponse, mais cela ne corrige pas mon problème.
Salutations



--
Cordialement,
Ze Titi

Tout pour réussir avec Access :http://www.mpfa.info-Masquerle text e des
messages précédents -

- Afficher le texte des messages précédents -


Re bonjour,

Non ça ne marche pas.

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 "DateRemi se"
et "N°Remise"
mais quel problème ?

Salutations


--
Cordialement,
Ze Titi

Tout pour réussir avec Access :http://www.mpfa.info-Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -


Re bonjour,
Oui en éffet je peut faire çà:

StrSql = "SELECT [tbl Chèques].*, [tbl Chèques].Imprimé " & _
"FROM [tbl Chèques] " & _
"WHERE ((([tbl Chèques].Imprimé)úlse));

L'Orthographe des champs est identique à la tbl

Salutations.- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -


Re bonjour,

Avec ce code ça fontionne.

rs.Fields(2).Value

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

Salutations