item suivant dans liste modifiable

J'ai trouvé !

me.maliste.value = me.maliste.itemdata(me.maliste.index + 1)

Désolé pour le dérangement. J'espére juste que cela servira à quelqu'un
d'autre.



JD a pensé très fort :

Bonjour,
je pense que la question a déjà été posée mais je ne trouve pas la réponse
exacte dans le forum

je souhaite que l'opérateur puisse "incrémenter" et "décrémenter" les valeurs
d'une zone de liste modifiable en appuyant sur les touches F10 et F11.

Je connais le nombre d'item de la liste (listcount)
je connais l'item actuellement sélectionné (listindex)

mais impossible de trouver la syntaxe pour passer à l'item suivant :

je pensais à ceci, mais ça ne fonctionne pas .
Me.maliste.itemdata(me.maliste.listindex + 1).select



Merci par avance

--
Ceci est une signature automatique de MesNews.
Site : http://www.mesnews.net

Bonjour JD,

Bien qu'il est dit dans l'aide que la propriété ListIndex est en Lecture
Seule, tu peux y arriver avec ce code. Par contre, j'ai remplacé les
touches F10 et F11 par PgUp et PgDn car F11 appelle la fenêtre Base de
données.


Private Sub Modifiable0_KeyDown(KeyCode As Integer, Shift As Integer)
On Error GoTo Err_index
Me.Modifiable0.SetFocus
If KeyCode = 33 Then ' PgUp
Me.Modifiable0.ListIndex = Me.Modifiable0.ListIndex + 1
ElseIf KeyCode = 34 Then 'PgDn
Me.Modifiable0.ListIndex = Me.Modifiable0.ListIndex - 1
End If
Exit Sub
Err_index:
If Me.Modifiable0.ListIndex = Me.Modifiable0.ListCount - 1 Then
MsgBox "Dernier Item"
End If
End Sub

A+
Eric

Bonjour,
je pense que la question a déjà été posée mais je ne trouve pas la
réponse exacte dans le forum

je souhaite que l'opérateur puisse "incrémenter" et "décrémenter" les
valeurs d'une zone de liste modifiable en appuyant sur les touches F10
et F11.

Je connais le nombre d'item de la liste (listcount)
je connais l'item actuellement sélectionné (listindex)

mais impossible de trouver la syntaxe pour passer à l'item suivant :

je pensais à ceci, mais ça ne fonctionne pas .
Me.maliste.itemdata(me.maliste.listindex + 1).select



Merci par avance

Merci beaucoup, cet exemple pourra m'être utile, même si j'avais trouvé
d'une autre façon.

JD


Eric avait prétendu :

Bonjour JD,

Bien qu'il est dit dans l'aide que la propriété ListIndex est en Lecture
Seule, tu peux y arriver avec ce code. Par contre, j'ai remplacé les touches
F10 et F11 par PgUp et PgDn car F11 appelle la fenêtre Base de données.


Private Sub Modifiable0_KeyDown(KeyCode As Integer, Shift As Integer)
On Error GoTo Err_index
Me.Modifiable0.SetFocus
If KeyCode = 33 Then ' PgUp
Me.Modifiable0.ListIndex = Me.Modifiable0.ListIndex + 1
ElseIf KeyCode = 34 Then 'PgDn
Me.Modifiable0.ListIndex = Me.Modifiable0.ListIndex - 1
End If
Exit Sub
Err_index:
If Me.Modifiable0.ListIndex = Me.Modifiable0.ListCount - 1 Then
MsgBox "Dernier Item"
End If
End Sub

A+
Eric

Bonjour,
je pense que la question a déjà été posée mais je ne trouve pas la réponse
exacte dans le forum

je souhaite que l'opérateur puisse "incrémenter" et "décrémenter" les
valeurs d'une zone de liste modifiable en appuyant sur les touches F10 et
F11.

Je connais le nombre d'item de la liste (listcount)
je connais l'item actuellement sélectionné (listindex)

mais impossible de trouver la syntaxe pour passer à l'item suivant :

je pensais à ceci, mais ça ne fonctionne pas .
Me.maliste.itemdata(me.maliste.listindex + 1).select



Merci par avance

--
Ceci est une signature automatique de MesNews.
Site : http://www.mesnews.net