Octava parte del CRUD. Botón Eliminar

 Continuamos con la siguiente entrada al Blog con el objeto de insertar un botón para eliminar un registro con los datos introducidos en el formulario. Por supuesto, lo que haremos será copiar nuestro botón, y le insertaremos el icono que más nos guste para este botón.

Por supuesto, primero debemos buscar el registro que queremos eliminar, para ello introduciremos el id y pulsaremos en buscar, y obtendremos el registro, procediendo a borrarlo, y con ello también eliminaremos toda la fila donde se encontraba el registro de la base de datos.

Crearemos una macro llamada eliminar y se la asignaremos a nuestro botón.

Sub Eliminar()

    With Hoja2

        'recuperar el id del articulo

        Dim Id As Long

        Id = Hoja3.Cells(4, 3)

        'comprobamos si vamos bien

        'buscando el codigo

        Dim fila, filamax As Long

        filamax = .UsedRange.Rows.Count

        'localizar el registro y eliminarlo

        For fila = 2 To filamax

                If (.Cells(fila, 1) = Id) Then

                .Rows(fila).Delete

                 'mensaje

                MsgBox ("REGISTRO ELIMINADO")

                'limpiar

                 limpiar

              End If

       Next fila

    End With

End Sub

Lo primero que tenemos que hacer es buscar el registro que queremos eliminar. Y una vez encontrado por el Id, lo que hace la macro es buscar el registro en la hoja donde se encuentran todos los registro y una vez encontrado lo elimina.

Con el código  If (.Cells(fila, 1) = Id) Then  lo que hace es que una vez que coincida el registro buscado por el id con un registro de la hoja BBDD procederá a eliminarlo con la sentencia  .Rows(fila).Delete.