Can't find error in code!
This keeps going to my error statement after one song is played. Can anyone find my error in code? I've included some notes it to help you follow it. Any help appreciated.
Code:
Private Sub Timer2_Timer()
On Error GoTo Nomoreitems
counter.Caption = Format$(songTime - (Now() - origTime), "n:ss")
If Now() > origTime + songTime Then 'check for end of song
Timer2.Enabled = False
counter = ""
Songtitle = ""
Frequency = ""
bitrate = ""
If shuffle.Checked = True Then 'Shuffle Play is enabled
ListView2.SelectedItem = ListView2.ListItems(random) 'select random item
Else 'Shuffle Play is disabled
ListView2.ListItems(MusicMaster.ListView2.SelectedItem.Index + 1).Selected = True
End If
'Load file information to player
Let Songtitle = "*** " & ListView2.SelectedItem.Text & " ***"
Let bitrate = ListView2.SelectedItem.SubItems(3) & " KBPS"
Let Frequency = ListView2.SelectedItem.SubItems(4) & " KHZ"
Let counter = ListView2.SelectedItem.SubItems(1)
origTime = Now()
songTime = "00:" & counter
counter.Caption = Format$(songTime, "n:ss")
Timer2.Enabled = True
Call Playlister
End If
Exit Sub
Nomoreitems:
MsgBox "END OF PLAYLIST!"
End Sub