Discussion :

[LeMin]

Bonjour à tous,

J'ai un bouton, avec déclenchement d'un évènement sir Click
Voici mon code dans l'évènement

Code :

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

1
2
3
4
5
Private Sub Commande5_Click()
 
   Me.Recordset.Delete
   'Forms![Anonymisation].Refresh
End Sub

1 premier click sur le bouton : l'enregistrement en cours disparaît
Si je clique sur la même ligne (donc, l'enregistrement suivant qui est remonté), j'ai une erreur3021 "aucun enregistrement en cours"
Par contre, si je me déplace dans le formulaire, et que je clique sur 1 autre enregistrement, ça le supprime à nouveau

J'ai essayé de faire un refresh du formulaire, mais c'est pareil ...
Une idée ?
Merci.

[nico84]

Bonjour,

C'est requery qui fait ce boulot, pas refresh
Pour bien faire il faut d'abord mémoriser la position du curseur et la remettre ensuite car le requery remonte systématiquement en tête de liste ce qui est perturbant pour l'utilisateur

[LeMin]

Bonjour,

C'est requery qui fait ce boulot, pas refresh
Pour bien faire il faut d'abord mémoriser la position du curseur et la remettre ensuite car le requery remonte systématiquement en tête de liste ce qui est perturbant pour l'utilisateur

Merci beaucoup @Nico84 pour ta réactivité.
Voici le code avec mémorisation de la position

Code :

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

1
2
3
4
5
6
Dim Position As Variant
 
   Position = Me.Bookmark
   Me.Recordset.Delete
   Forms![Anonymisation].Requery
   Me.Bookmark = Position

ça marche nickel
Merci !

[nico84]

Je ne connaissais pas bookmark, il faudra que j'essaie
J'utilise ceci qui a pour seul défaut de remonter la ligne pointée en tête de liste :

Code :

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

pointeur = Me.CurrentRecord: Me.Requery: Me.SelTop = pointeur

[LeMin]

Je ne connaissais pas bookmark, il faudra que j'essaie
J'utilise ceci qui a pour seul défaut de remonter la ligne pointée en tête de liste :

Code :

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

pointeur = Me.CurrentRecord: Me.Requery: Me.SelTop = pointeur

A priori, ça fait pareil que toi. La ligne pointée remonte en haut