Discussion :

[maximath]

Bonjour,

J'ai essayé de reproduire un simple formulaire qui navigue dans les données d'une table avec les boutons précédent, suivant, delete, ajouter.
Ca fonctionne plutôt bien, à condition qu'il y ait au moins une donnée dans la table. Si la table est vide, il m'indique à l'ouverture du formulaire "erreur 3021 , aucun enregistrement" et me situe l'erreur au niveau du rs.moveFirst.

Je suppose que pour résoudre cette erreur, je dois indiquer via un "if" que s'il n'y a aucune donnée alors il ne doit pas "movefirst", mais juste ne rien faire, cependant je ne sais pas comment le traduire en langage vba/sql.

Si je l'enlève (rs.movefirst), c'est alors mon bouton delete qui m'indique une erreur vu qu'il ne sait pas où rebondir.

Est-ce que quelqu'un saurait dire comment résoudre le problème ?

bien à vous,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub refreshlisttype()
 
Me.ListType.RowSource = ""
 
rs.MoveFirst
 
Do Until rs.EOF
 
    Me.ListType.AddItem rs!Typesuivi
    rs.MoveNext
 
Loop
 
End Sub

[tee_grandbois]

bonsoir,

Je suppose que pour résoudre cette erreur, je dois indiquer via un "if" que s'il n'y a aucune donnée alors il ne doit pas "movefirst", mais juste ne rien faire, cependant je ne sais pas comment le traduire en langage vba/sql.

Effectivement, il faut tester si EOF est actif:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub refreshlisttype()
Me.ListType.RowSource = ""
If Not(rs.EOF) Then
    rs.MoveFirst
 
    Do Until rs.EOF
 
        Me.ListType.AddItem rs!Typesuivi
        rs.MoveNext
 
    Loop
End If
 
End Sub

[maximath]

super merci beaucoup !