Merci pour cette réponse mais concrètement comment je fais?
Merci
Codial
"3stone" a écrit dans le message de news: Omp$
Salut,
"Codial"
Quelqu'un peut m'expliquer comment marquer un enregistrement et y revenir
après une annulation par exemple ?
Mémoriser la clé primaire ou le Bookmark et se repositionner après, par exemple...
-- A+ Pierre (3stone) Access MVP ~~~~~~~~~~~~~~~~~~~~~~~ http://users.skynet.be/mpfa http://users.skynet.be/accesshome
3stone
Salut,
Merci pour cette réponse mais concrètement comment je fais?
Déclarer la variable (en haut avant les sub...)
'Dim vBM As Variant (pour le Bookmark) Dim lgID As Long (pour un ID numauto)
Sur Activation, mémoriser soit le Bookmark, soit l'identifiant
Private Sub Form_Current() If Not Me.NewRecord Then 'vBM = Me.Bookmark lgID = Me.ID End If End Sub
Après ta manip / annulation , te repositionner
' manip / annulation ...
Se repositionner 'Me.Bookmark = vBM
With Me.RecordsetClone .FindFirst "[ID]=" & lgID Me.Bookmark = .Bookmark End With
Mais, normalement, une annulation ne modifie pas le recordset... Si pour une raison autre, il se modifie (changement du CurrentRecord) utilise la seconde méthode qui consiste à te repositionner à l'aide de l'identifiant unique (ID)
-- A+ Pierre (3stone) Access MVP ~~~~~~~~~~~~~~~~~~~~~~~ http://users.skynet.be/mpfa http://users.skynet.be/accesshome
Salut,
Merci pour cette réponse mais concrètement comment je fais?
Déclarer la variable (en haut avant les sub...)
'Dim vBM As Variant (pour le Bookmark)
Dim lgID As Long (pour un ID numauto)
Sur Activation, mémoriser soit le Bookmark, soit l'identifiant
Private Sub Form_Current()
If Not Me.NewRecord Then
'vBM = Me.Bookmark
lgID = Me.ID
End If
End Sub
Après ta manip / annulation , te repositionner
' manip / annulation
...
Se repositionner
'Me.Bookmark = vBM
With Me.RecordsetClone
.FindFirst "[ID]=" & lgID
Me.Bookmark = .Bookmark
End With
Mais, normalement, une annulation ne modifie pas le recordset...
Si pour une raison autre, il se modifie (changement du CurrentRecord)
utilise la seconde méthode qui consiste à te repositionner à l'aide
de l'identifiant unique (ID)
--
A+
Pierre (3stone) Access MVP
~~~~~~~~~~~~~~~~~~~~~~~
http://users.skynet.be/mpfa
http://users.skynet.be/accesshome
Merci pour cette réponse mais concrètement comment je fais?
Déclarer la variable (en haut avant les sub...)
'Dim vBM As Variant (pour le Bookmark) Dim lgID As Long (pour un ID numauto)
Sur Activation, mémoriser soit le Bookmark, soit l'identifiant
Private Sub Form_Current() If Not Me.NewRecord Then 'vBM = Me.Bookmark lgID = Me.ID End If End Sub
Après ta manip / annulation , te repositionner
' manip / annulation ...
Se repositionner 'Me.Bookmark = vBM
With Me.RecordsetClone .FindFirst "[ID]=" & lgID Me.Bookmark = .Bookmark End With
Mais, normalement, une annulation ne modifie pas le recordset... Si pour une raison autre, il se modifie (changement du CurrentRecord) utilise la seconde méthode qui consiste à te repositionner à l'aide de l'identifiant unique (ID)
-- A+ Pierre (3stone) Access MVP ~~~~~~~~~~~~~~~~~~~~~~~ http://users.skynet.be/mpfa http://users.skynet.be/accesshome
Codial
Merci pour cette réponse détaillée, j'y vois un peu plus clair !! Cordialement
Codial
"3stone" a écrit dans le message de news:
Salut,
Merci pour cette réponse mais concrètement comment je fais?
Déclarer la variable (en haut avant les sub...)
'Dim vBM As Variant (pour le Bookmark) Dim lgID As Long (pour un ID numauto)
Sur Activation, mémoriser soit le Bookmark, soit l'identifiant
Private Sub Form_Current() If Not Me.NewRecord Then 'vBM = Me.Bookmark lgID = Me.ID End If End Sub
Après ta manip / annulation , te repositionner
' manip / annulation ...
Se repositionner 'Me.Bookmark = vBM
With Me.RecordsetClone .FindFirst "[ID]=" & lgID Me.Bookmark = .Bookmark End With
Mais, normalement, une annulation ne modifie pas le recordset... Si pour une raison autre, il se modifie (changement du CurrentRecord) utilise la seconde méthode qui consiste à te repositionner à l'aide de l'identifiant unique (ID)
-- A+ Pierre (3stone) Access MVP ~~~~~~~~~~~~~~~~~~~~~~~ http://users.skynet.be/mpfa http://users.skynet.be/accesshome
Merci pour cette réponse détaillée, j'y vois un peu plus clair !!
Cordialement
Codial
"3stone" <threestone@cielreseau.be> a écrit dans le message de news:
uLYF21nvEHA.1308@TK2MSFTNGP09.phx.gbl...
Salut,
Merci pour cette réponse mais concrètement comment je fais?
Déclarer la variable (en haut avant les sub...)
'Dim vBM As Variant (pour le Bookmark)
Dim lgID As Long (pour un ID numauto)
Sur Activation, mémoriser soit le Bookmark, soit l'identifiant
Private Sub Form_Current()
If Not Me.NewRecord Then
'vBM = Me.Bookmark
lgID = Me.ID
End If
End Sub
Après ta manip / annulation , te repositionner
' manip / annulation
...
Se repositionner
'Me.Bookmark = vBM
With Me.RecordsetClone
.FindFirst "[ID]=" & lgID
Me.Bookmark = .Bookmark
End With
Mais, normalement, une annulation ne modifie pas le recordset...
Si pour une raison autre, il se modifie (changement du CurrentRecord)
utilise la seconde méthode qui consiste à te repositionner à l'aide
de l'identifiant unique (ID)
--
A+
Pierre (3stone) Access MVP
~~~~~~~~~~~~~~~~~~~~~~~
http://users.skynet.be/mpfa
http://users.skynet.be/accesshome
Merci pour cette réponse détaillée, j'y vois un peu plus clair !! Cordialement
Codial
"3stone" a écrit dans le message de news:
Salut,
Merci pour cette réponse mais concrètement comment je fais?
Déclarer la variable (en haut avant les sub...)
'Dim vBM As Variant (pour le Bookmark) Dim lgID As Long (pour un ID numauto)
Sur Activation, mémoriser soit le Bookmark, soit l'identifiant
Private Sub Form_Current() If Not Me.NewRecord Then 'vBM = Me.Bookmark lgID = Me.ID End If End Sub
Après ta manip / annulation , te repositionner
' manip / annulation ...
Se repositionner 'Me.Bookmark = vBM
With Me.RecordsetClone .FindFirst "[ID]=" & lgID Me.Bookmark = .Bookmark End With
Mais, normalement, une annulation ne modifie pas le recordset... Si pour une raison autre, il se modifie (changement du CurrentRecord) utilise la seconde méthode qui consiste à te repositionner à l'aide de l'identifiant unique (ID)
-- A+ Pierre (3stone) Access MVP ~~~~~~~~~~~~~~~~~~~~~~~ http://users.skynet.be/mpfa http://users.skynet.be/accesshome
