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
Raymond [mvp]
Bonjour.
Il faut faire comme si tu avais composé un code client et tu te positionnes sur l'enregistrement: IF DLookup ......................... Me.undo Dim rs As Object Set rs = Me.Recordset.Clone rs.FindFirst "[Code] = " & Str(Nz(Me![Code], 0)) If Not rs.EOF Then Me.Bookmark = rs.Bookmark
si le code est trouvé il sera affiché. ensuite tu repasses en nouvel enregistrement pour la nouvelle saisie -- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Jo" a écrit dans le message de news:1953301c41c0c$b5296230$ Bonjour!
En mode AJOUT, je saisie le code et vérifie avec un dlookup s'il existe. Comment faire pour afficher l'enregistrement s'il existe?
Bonjour.
Il faut faire comme si tu avais composé un code client et tu te positionnes
sur l'enregistrement:
IF DLookup .........................
Me.undo
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[Code] = " & Str(Nz(Me![Code], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
si le code est trouvé il sera affiché. ensuite tu repasses en nouvel
enregistrement pour la nouvelle saisie
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"Jo" <rockett09aenlever@yahoo.ca> a écrit dans le message de
news:1953301c41c0c$b5296230$a101280a@phx.gbl...
Bonjour!
En mode AJOUT, je saisie le code et vérifie avec un
dlookup s'il existe.
Comment faire pour afficher l'enregistrement s'il existe?
Il faut faire comme si tu avais composé un code client et tu te positionnes sur l'enregistrement: IF DLookup ......................... Me.undo Dim rs As Object Set rs = Me.Recordset.Clone rs.FindFirst "[Code] = " & Str(Nz(Me![Code], 0)) If Not rs.EOF Then Me.Bookmark = rs.Bookmark
si le code est trouvé il sera affiché. ensuite tu repasses en nouvel enregistrement pour la nouvelle saisie -- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Jo" a écrit dans le message de news:1953301c41c0c$b5296230$ Bonjour!
En mode AJOUT, je saisie le code et vérifie avec un dlookup s'il existe. Comment faire pour afficher l'enregistrement s'il existe?
Jo
Merci de ton aide Raymond!
j'ai une erreur de compilation (membre de méthode ou de données introuvable) à la ligne suivante Set rs = Me.Recordset.Clone j'ai access 97
Johanne
-----Message d'origine----- Bonjour.
Il faut faire comme si tu avais composé un code client et tu te positionnes
sur l'enregistrement: IF DLookup ......................... Me.undo Dim rs As Object Set rs = Me.Recordset.Clone rs.FindFirst "[Code] = " & Str(Nz(Me![Code], 0)) If Not rs.EOF Then Me.Bookmark = rs.Bookmark
si le code est trouvé il sera affiché. ensuite tu repasses en nouvel
enregistrement pour la nouvelle saisie -- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
Merci de ton aide Raymond!
j'ai une erreur de compilation (membre de méthode ou de
données introuvable) à la ligne suivante
Set rs = Me.Recordset.Clone
j'ai access 97
Johanne
-----Message d'origine-----
Bonjour.
Il faut faire comme si tu avais composé un code client et
tu te positionnes
sur l'enregistrement:
IF DLookup .........................
Me.undo
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[Code] = " & Str(Nz(Me![Code], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
si le code est trouvé il sera affiché. ensuite tu
repasses en nouvel
enregistrement pour la nouvelle saisie
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
j'ai une erreur de compilation (membre de méthode ou de données introuvable) à la ligne suivante Set rs = Me.Recordset.Clone j'ai access 97
Johanne
-----Message d'origine----- Bonjour.
Il faut faire comme si tu avais composé un code client et tu te positionnes
sur l'enregistrement: IF DLookup ......................... Me.undo Dim rs As Object Set rs = Me.Recordset.Clone rs.FindFirst "[Code] = " & Str(Nz(Me![Code], 0)) If Not rs.EOF Then Me.Bookmark = rs.Bookmark
si le code est trouvé il sera affiché. ensuite tu repasses en nouvel
enregistrement pour la nouvelle saisie -- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
