Discussion :

[patoche47200]

Salut à tous,

Désolé par avance si ce message a déjà été posté ou si je suis pas dans la bonne section mais je suis nouveau et après avoir écumé le net et les forums je ne trouve pas de réponses à mon problème.

Sous Access 2002/2003 j'utilise un formulaire avec une zone de liste et je veux utiliser une procédure que j'ai déjà utilisé sous Access 2000 et qui fonctionnait très bien. Maintenant j'ai un message d'erreur 91 "Variable d'objet ou variable bloc With non définie" qui pointe à la ligne en rouge sur le code suivant :

Private Sub Liste0_AfterUpdate()

Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[N°] = " & Str(Me![Liste0])
Me.Bookmark = rs.Bookmark

End Sub

Est-ce que quelqu'un a déjà rencontré ce problème mais surtout, comment le solutionner.
Merci d'avance.

[Arkham46]

slt,

utilise les balises [code] c'est mieux

sinon c'est RecordsetClone en un seul mot

[patoche47200]

Merci mais j'ai déjà essayé et là j'ai une autre erreur 7951 "clonerecordset pas valide". Je tourne en rond depuis un moment la dessus donc si une autre idée, je suis preneur merci.

[Arkham46]

il y a une source de données ou est-ce un formulaire déconnecté?

cette erreur apparaît entre autre lorsque le formulaire n'a pas de source

[cafeine]

slt,

utilise les balises [code] c'est mieux

sinon c'est RecordsetClone en un seul mot

+1, ça donne quoi avec Me.RecordsetClone ?

[patoche47200]

Merci pour la solution Arkham46 comment j'ai fait pour louper ça je suis un idiot... Allez y lapidez moi je le mérite. Le seul truc que j'avais pas regardé. Enfin

Code :

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

Recordset.Clone

et

Code :

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

Recordsetclone

fonctionne tous les 2

Merci et encore désolé de vous avoir déranger pour une broutille

Je m'en veux...

[Arkham46]

oui c'est vrai y a une méthode clone je l'avais oubliée
à partir de access 2000 RecordSetclone est prévu

mais n'oublie pas de libérer ton recordset à la fin, même si c'est un objet local

Code :

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

1
2
rs.close
set rs = nothing