Discussion :

[electrosat03]

Salut,

J'aimerais savoir comment faire pour : après s'être positionné sur un enregistrement dans un form en continu et activé un autre form à l'aide d'un bouton, je suis sur ce 2° form et j'exécute un del d'un enregistrement.

Après ça, je fais un requery du premier form, car les données doivent être réactualisées, et je me retrouve positionné sur le premier enregistrement du 1° form.

Comment me repositionner sur l'enregistrement que j'étais avant ou sur celui d'avant si c'est celui que je viens d'effacer.

Merci de votre aide A+

[marot_r]

As-tu une clef unique que tu pourrais récupérer ?

Si oui tu peux utiliser le code suivant (Access XP) :

Code :

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

1
2
3
 
me.recordset.clone.findfirst("[MaClef]=" & maClef)
me.bookmark=me.recordset.bookmark

pour te replacer sur le même enr.

Attention, code non testé !!!

Code :

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

1
2
3
4
5
6
7
 
dim maNouvelleClef as boolean
maNouvelleClef=DMax("[maClef]","maTable","[MaClef]<=" & maVielleClef)
if not isNull(maNouvelleClef) then
  me.recordset.clone.findfirst("[MaClef]=" & maNouvelleClef)
  me.bookmark=me.recordset.bookmark
end if

après une suppression

A+

[The_Super_Steph]

Autrement,

Il y a des choses dans la FAQ à ce sujet...

[Tofalu]

Bonjour,

j'imagine qu'on est sur le formulaire 2, sur le code qui fais ton requery :

Code :

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

1
2
3
4
5
6
Dim b as variant
with Forms("Formulaire1")
b=.bookmark
.requery
.bookmark=b
end with

Je suppose que ça devrait fonctionner

[electrosat03]

Salut,

Merci pour vos réponse,

Je vais essayer ça.

The_Super_Steph, j'ai cherché dans la FAQ avant de poster, comme je le fais souvent mais je n'ai pas trouvé.

Merci A+

[electrosat03]

Re,

Merci à tous pour vos réponses rapide.

J'ai pris le code de Tofalu , ça marche au poil, merci.

A+