Codice VB esercizio tabella editori controllo Data

Dim segnalibro As Variant

Private Sub cmdannulla_Click()
Editore.Recordset.Bookmark = segnalibro
End Sub

Private Sub cmdcancella_Click()
Editore.Recordset.Delete
Editore.Recordset.MoveNext
End Sub

Private Sub cmdmodifica_Click()
segnalibro = Editore.Recordset.Bookmark
Editore.Recordset.Edit
End Sub

Private Sub cmdnuovo_Click()
segnalibro = Editore.Recordset.Bookmark
Editore.Recordset.AddNew
End Sub

Private Sub cmdprecedente_Click()
Editore.Recordset.MovePrevious
If Editore.Recordset.BOF Then
MsgBox ("Va che sei al primo!")
Editore.Recordset.MoveFirst
End If
End Sub

Private Sub cmdprimo_Click()
Editore.Recordset.MoveFirst
End Sub

Private Sub cmdsalva_Click()
Editore.Recordset.Update
End Sub

Private Sub cmdsuccessivo_Click()
Editore.Recordset.MoveNext
If Editore.Recordset.EOF Then
MsgBox ("Va che sei all'ultimo!")
Editore.Recordset.MoveLast
End If
End Sub

Private Sub cmdtrova_Click()
Dim nome As String
nome = InputBox("dammi il nome editore")
If nome = "" Then
MsgBox ("titolo nullo")
Else
Editore.Recordset.FindFirst "name ='" + nome + "'"
If Editore.Recordset.NoMatch = True Then
MsgBox ("non ci sono editori con questo nome")
Editore.Recordset.MoveFirst
End If
End If
End Sub

Private Sub cmdUltimo_Click()
Editore.Recordset.MoveLast
End Sub