Pulsanti avanti indietro Recordset

Private Sub Primo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Primo.Click

MiStoMuovendo = True

'E' lo stesso comando di VB6

If AmministratoriBindingSource.Count > 0 Then
AmministratoriBindingSource.MoveFirst()
'

'*********************************************************************************************************************

'* legge il valore di un campo dentro alla tabella

'* utilizza la funzione PER ORA COMMENTATA Leggi__Valore

'*********************************************************************************************************************

' Leggi__Valore()

'

LblStatus.Text = AmministratoriBindingSource.Position & "/" & AmministratoriBindingSource.Count - 1
Else
MsgBox("Recordset vuoto!", MsgBoxStyle.Information, "Non ci sono Record")
LblStatus.Text = "Recordset Vuoto"
End If

End Sub


Private Sub Successivo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Successivo.Click

MiStoMuovendo = True

'E' lo stesso comando di VB6

' in the BindingSource.

If AmministratoriBindingSource.Count > 0 Then
If AmministratoriBindingSource.Position + 1 <= AmministratoriBindingSource.Count - 1 Then
AmministratoriBindingSource.MoveNext()
Else
Beep()
AmministratoriBindingSource.MoveFirst()
End If
'

'*********************************************************************************************************************

'* legge il valore di un campo dentro alla tabella

'* utilizza la funzione PER ORA COMMENTATA Leggi__Valore

'*********************************************************************************************************************

' Leggi__Valore()

'

LblStatus.Text = AmministratoriBindingSource.Position & "/" & AmministratoriBindingSource.Count - 1
Else
MsgBox("Recordset vuoto!", MsgBoxStyle.Information, "Non ci sono Record")
LblStatus.Text = "Recordset Vuoto"
End If


End Sub


Private Sub Precedente_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Precedente.Click

MiStoMuovendo = True

'E' lo stesso comando di VB6

If AmministratoriBindingSource.Count > 0 Then
If AmministratoriBindingSource.Position > 0 Then
AmministratoriBindingSource.MovePrevious()
Else
Beep()
AmministratoriBindingSource.MoveLast()
End If
LblStatus.Text = AmministratoriBindingSource.Position & "/" & AmministratoriBindingSource.Count - 1
'

'*********************************************************************************************************************

'* legge il valore di un campo dentro alla tabella

'* utilizza la funzione PER ORA COMMENTATA Leggi__Valore

'*********************************************************************************************************************

' Leggi__Valore()

'

Else
MsgBox("Recordset vuoto!", MsgBoxStyle.Information, "Non ci sono Record")
LblStatus.Text = "Recordset Vuoto"
End If

End Sub


Private Sub Ultimo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ultimo.Click

MiStoMuovendo = True

'E' lo stesso comando di VB6

If AmministratoriBindingSource.Count > 0 Then
AmministratoriBindingSource.MoveLast()
LblStatus.Text = AmministratoriBindingSource.Position & "/" & AmministratoriBindingSource.Count - 1
'

'*********************************************************************************************************************

'* legge il valore di un campo dentro alla tabella

'* utilizza la funzione PER ORA COMMENTATA Leggi__Valore

'*********************************************************************************************************************

' Leggi__Valore()

'

Else
MsgBox("Recordset vuoto!", MsgBoxStyle.Information, "Non ci sono Record")
LblStatus.Text = "Recordset vuoto!"
End If


End Sub