Discussion :

[krfa1]

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

[mcdotta]

Hello,


Pour info je viens de tester chez moi, ca marche nickel...

T'as quoi pour une machine... File lui du vallium...

[krfa1]

Ca doit pas être le PC car c'est un P4 3.2 Ghz.

J'ai testé sur un autre pc et ça fait la même chose.

Au début que j'ouvre la base ça marche, mais si je mets en mode création par exemple, ça va plus. Mais c'est assez aléatoire comme problème

[Alexandre Sahli]

Il existe aussi une autre possibilité.

Tu mets un code sur les boutons de déplacement et tu testes:

si le prochain enregistrement est la fin du fichier ou le début et si c'est le cas tu ne te déplace pas.

J'ai vu le code dans le forum ou dans la FAQ
je crois que c'est quelque chose du style

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
 
if me.recordsetclone.movenext = eof then
je ne me déplace pas
else
 je me déplace au prochain enregistrement
endif
 
pour le début 
 
if me.recordsetclone.moveprevious = bof then

je ne suis malheureusement pas du tout sur du code mais çà peut te donner une piste
A+