Discussion :

[talere]

Bonjour,

J'ai un formulaire qui s'initialise trop vite par rapport à la requete (du moins, c'est ce que j'en conclu). En effet, j'active ou non des boutons de naviguation en fonction du nbre d'enregistrements, seulement, ma procedeure ne marche que si je fonctionne au pas à pas (debugage), sinon, c'est trop rapide et mes boutons ne s'active pas (un debug.print affiche 1 enr au lieu de 3 en réalité)

J'ai essayé DoEvents mais ça ne marche pas ... quelqu'un aurait la solution de suspendre mon code pendant un laps de temps, histoire que toutes les propriétés de mon recordset soient mise à jour ?

Merci,

TALERE

[micniv]

Bonjour,
Pour pouvoir t'aider :

Dans quel évènement du formulaire déclenches-tu la procédure qui affiche ou non les boutons ?
Est-il en continu ?
y-a-t'il aussi un sous-formulaire dans le coup ?

[talere]

Bonjour,

L'evenement qui execute le code est "Form_Current", soit à chaque changement d'enregistrement.
Je n'ai qu'un seul formulaire (non continu), et mes boutons sont dans l'entête du formulaire (bouton + gros que la petite barre, en bas à gauche).
Enfin, j'ai aussi un sous formulaire dans ce formulaire.

Pour l'instant, j'execute 250 fois "DoEvents" pour que ça marche.

Merci pour ton aide ...

TALERE

[Domi2]

Bonjour,

Pour mieux cerner ton problème, peux-tu nous fournir plus de précisions ?

Tu as donc un formulaire dont la source est une requête. Celle-ci est-elle basée sur une ou plusieurs tables ? Combien d'enregistrements dans la ou les table(s) sous-jacente(s) ?

D'autre part :

j'active ou non des boutons de naviguation en fonction du nbre d'enregistrements

Tu peux nous donner plus d'explications ?

Et éventuellement, peux-tu également poster le code d'activation des boutons ?

Domi2

[talere]

Mon formulaire est lié à une table (et non une requete), et la table sous jacente contient 2 enregistrements maxi.

Voici mon code :

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
34
Private Sub CmdPremier_Click()
On Error Resume Next
    DoCmd.GoToRecord , , acFirst ' aller au premier enregistrement
End Sub
 
Private Sub CmdPrecedant_Click()
On Error Resume Next
    DoCmd.GoToRecord , , acPrevious    ' aller à l'enregistrement précédent
End Sub
 
Private Sub CmdSuivant_Click()
On Error Resume Next
    DoCmd.GoToRecord , , acNext   ' aller à l'enregistrement suivant
End Sub
 
Private Sub CmdDernier_Click()
On Error Resume Next
    DoCmd.GoToRecord , , acLast ' aller au dernier enregistrement
End Sub
 
Private Sub Form_Current()
On Error Resume Next
Dim i As Long
Debug.print "Avant :" & Me.Recordset.RecordCount
' Sans la boucle suivante, le recordset ne contient qu'un enregistrement au lieu des 3 que j'ai actuellement
For i = 1 To 500
    DoEvents
Next i
Debug.print "Après :" & Me.Recordset.RecordCount
Me.CmdPremier.Enabled = Me.CurrentRecord > 1
Me.CmdPrecedant.Enabled = Me.CurrentRecord > 1
Me.CmdSuivant.Enabled = Me.CurrentRecord < Me.Recordset.RecordCount
Me.CmdDernier.Enabled = Me.CurrentRecord < Me.Recordset.RecordCount
End Sub

Je n'ai pas mis tout le code qui va avec (qui est un peu + long)

TALERE

[Tofalu]

Bonjour

Vous faites un mauvais usage de la propriété Recordcount

Code :

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

1
2
3
4
Me.CmdPremier.Enabled = Me.CurrentRecord > 1
Me.CmdPrecedant.Enabled = Me.CurrentRecord > 1
Me.CmdSuivant.Enabled = Me.CurrentRecord < Me.Recordset.RecordCount
Me.CmdDernier.Enabled = Me.CurrentRecord < Me.Recordset.RecordCount

dans le cas d'un recordset de type dynaset, Recordcount indique l'indice de l'enregistrement courant et non le nombre total d'enregistrements.

Pour connaitre le nombre d'enregistrements max, il est nécessaire d'utiliser le recordsetClone du formulaire et d'aller au dernier enregistrement.

http://access.developpez.com/sources...NavigSansAjout

En particulier la procédure sActivation