Ayhan hocam elinize sağlık
Ben farklı bir metod uyguladığım için
örneğimi ekliyorum. Ürün sıra no yerine
combo satır no kullanarak yaptım
Selamlar

Private Sub Komut9_Click()

Dim listem As Long

Dim satirlar As Long

listem = Forms!pers!Metin6.ListIndex

satirlar = Forms!pers!Metin6.ListCount

If listem = satirlar - 1 Then

Forms!pers!Metin6.SetFocus

Forms!pers!Metin6.ListIndex = 0

Else

Forms!pers!Metin6.SetFocus

Forms!pers!Metin6.ListIndex = listem + 1

End If

End Sub