Bonjour, j'ai un petit soucis. Dans mon évènement form_current, j'ai mis ce code pour qu'il désactive les boutons de déplacements dans les enregistrement si je suis au dernier, ou au premier. Mais mon code l'exécute, mais trop vide. lol Je m'explique.

Quand j'exécute la fonction en mode pas à pas, il le fait très bien, tout fonctionne, mais si je mets pas de point d'arrêt, on dirait qu'il le saute ou qu'il va trop vite.

J'ai essayé en mettant plein de DoEvents, mais rien y fait

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
 
 
If Me.CurrentRecord = 1 Then
    DoEvents
    cmd_premier.Enabled = False
    cmd_precedent.Enabled = False
    cmd_dernier.Enabled = True
    cmd_suivant.Enabled = True
    DoEvents
    'controle qu'il n'y ait pas qu'un seul pv
    If Me.CurrentRecord = Me.RecordsetClone.RecordCount Then
        cmd_dernier.Enabled = False
        cmd_suivant.Enabled = False
    End If
    DoEvents
'code permettant de désactiver les deux boutons pour aller en avant
ElseIf Me.CurrentRecord = Me.RecordsetClone.RecordCount Then
    DoEvents
    cmd_dernier.Enabled = False
    cmd_suivant.Enabled = False
    cmd_premier.Enabled = True
    cmd_precedent.Enabled = True
    DoEvents
'sinon active les quatres boutons
Else
    DoEvents
    cmd_premier.Enabled = True
    cmd_precedent.Enabled = True
    cmd_dernier.Enabled = True
    cmd_suivant.Enabled = True
    DoEvents
End If
DoEvents
Merci d'avance pour votre futur aide