Práctica 4

Añadir y Eliminar Registros
1.- En el proyecto anterior, añadir dos nuevos botones y asignarle los nombres cmdAdd y cmdBorrar, así como los Captions Añadir y Eliminar. El codigo para cada boton sera el siguiente:

Private Sub cmdAdd_Click()
     'Añadir un nuevo registro
        Data1.Recordset.AddNew
End Sub
Private Sub cmdBorrar_Click()
        'Eliminar el registro actual
     Data1.Recordset.Delete
End Sub

Tanto cuando se añade, como cuando se borra, se debería mover el registro actual para que los cambios tengan efecto en la base de datos, ya que si se añade un nuevo registro y el mismo no se actualiza se pierde, para ello se puede agregar un botón para Actualizar y otro para Refrescar que recargara los datos del Control Data
En el caso de Eliminar, se debe mover al primer registro, para que el registro activo sea uno con información.
Este seria el código de los eventos Click de los botones:

Private Sub cmdAdd_Click()
     'Refreca o recarga los datos del Control Data
Data1.Refresh
     'Añadir un nuevo registro
     Data1.Recordset.AddNew
     'Coloca el Cursor en el Text2 (Nombre)
     Text2.SetFocus
End Sub
Private Sub cmdBorrar_Click()
     ' Borrar el registro actual
     ' Se comprueba que haya algún registro activo,
     ' para ello se comprueba que no haya pasado 
        ' del principio o el final del Recordset
     '
     ' Comprobar que hay registros, porque si no hay, dará error
     If (Data1.Recordset.EOF Or Data1.Recordset.BOF) Then
             ' Avisar de que no hay registros
             Data1.Caption = "Ningún registro activo"
     Else
             ' Eliminar el registro actual
             Data1.Recordset.Delete
             '
             ' Se Mueve al primer registro para que 
             ' los cambios se hagan permanentes
             ' (también podriamos haberlo movido al último registro)
             Data1.Recordset.MoveFirst
     End If
End Sub
Private Sub cmdActualizar_Click()
     'Actualiza el Control Data
     Data1.UpdateRecord
     ' Se marca al ultimo registro modificado
     Data1.Recordset.Bookmark = Data1.Recordset.LastModified
     Exit Sub
End Sub
Private Sub cmdRefrescar_Click()
     'Refreca o recarga los datos del Control Data
     Data1.Refresh
End Sub