Diviseur d'enregistrement VBA ACCESS

Résolu
shaka17 Messages postés 16 Statut Membre -  
shaka17 Messages postés 16 Statut Membre -
Bonjour,

Je voudrais dans ACCESS 2003 utiliser et afficher les informations du "diviseur d'enregistrement" dans un formulaire.
En effet ce dernier est masqué dans mon formulaire.

Si cela n'est pas possible pouvez vous me dire comment récuperer l'info qui indique si on incremente les enregistrements ou si on décrémente, ceci dans le but de renseigner un simple compteur.

Sachant que j'ai déjà un compteur qui est incrémenté par 2 touches de déplacement (acnext et acprevious) et qui s'affiche dans un champ indépendant dans mon formulaire. Il marche trés bien avec les touches mais si la roulette est actionné il n'est pas incrémenté!

voici le code que j'utilise :
------------------------------------------------------------------------------------------------------------
Private Sub Suivant_Click()

On Error GoTo Err_Suivant_Click

DoCmd.GoToRecord , , acNext
Cpt = Cpt + 1
Cpt_enr = Cpt 'Cpt_enr = affichage dans formulaire

Exit_Suivant_Click:
Exit Sub

Err_Suivant_Click:
MsgBox "Il n'y a pas d'autres installations rattachées à cette machine"
Resume Exit_Suivant_Click

End Sub
------------------------------------------------------------------------------------------------------------
Private Sub Précédent_Click()

On Error GoTo Err_Précédent_Click

DoCmd.GoToRecord , , acPrevious
Cpt = Cpt - 1
Cpt_enr = Cpt

Exit_Précédent_Click:
Exit Sub

Err_Précédent_Click:
MsgBox "Il n'y a pas d'autres installations rattachées à cette machine"
Resume Exit_Précédent_Click


End Sub
------------------------------------------------------------------------------------------------------------

Merci de votre aide

PS : si vous avez une solution plus simple n'hésitez pas! merci
A voir également:

2 réponses

blux Messages postés 27812 Statut Modérateur 3 363
 
Salut,

tu peux utiliser 'currentrecord', il correspond au numéro affiché dans le compteur d'enregistrement

msgbox currentrecord
0
shaka17 Messages postés 16 Statut Membre 1
 
merci beaucoup!

c'est trés simple et ca marche !

Grand merci
0