[VB6] comando moveprevious

[Alarico_Re]

Salve a tutti
ho creato un database ,che visualizzo in text1(index)
con i comandi DATA i record vanno tutto ok,
poi ho creato dei comandi a parte Primo Ultimo Avanti Indietro
i comandi Primo e Ultimo vanno ok,invece con i comandi Avanti e Indietro quando arriva all'ultimo record e lo supera mi da errore .

Comando1 Primo data1.recordset.movefirst
Comando2 Ultimo data1.recordset.movelast
Comando3 Avanti data1.recorset.movenext
Comando4 Indietro data1.recorset.moveprevious

Alarico_Re

[Alarico_Re]

Grazie al forum ho risolto
così

Data1.Recordset.MoveNext
If Data1.Recordset.BOF = True Then
Data1.Recordset.MoveNext
ElseIf Data1.Recordset.EOF = True Then
Data1.Recordset.MovePrevious
End If

Alarico_Re