Discussion :

[willytito]

Bonjour à tous,

J'ai créé un bouton (suivant)
Sur l'évènement clic()
J'exécurte le code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
On Error GoTo Err_Cmd_Suivant_Click
 
 
    DoCmd.GoToRecord , , acNext
 
Exit_Cmd_Suivant_Click:
    Exit Sub
 
Err_Cmd_Suivant_Click:
    MsgBox Err.Description
    Resume Exit_Cmd_Suivant_Click

Le problème est le suivant :
Quand on se trouve sur le dernier enregistrement
Le fait de cliquer sur le bouton (suivant) fait apparaître un enregistrement vide
J'aimerais qu'il affiche le dernier enregistrement au lieu de l'enregistrement vide

Si vous pouvez m'aider
Merci
Willy

[Faw]

Salut,

Code :

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

1
2
3
If Me.CurrentRecord < Me.RecordsetClone.RecordCount Then
DoCmd.GoToRecord , , acNext
end if

[willytito]

Bonjour,

Merci pour le code
Ca marche
Willy