Eliminar ultimo registro de una base de datos
Tengo uma base de datos donde pongo la fecha, nombre, puesto, profesión, sueldo
Como puedo hacer para eliminar y editar el ultimo registro, pero que no se pueda eliminar ni editar el registro del día anterior mediante un userform.
1 respuesta
Te dejo el código para la búsqueda del último registro. Esto te permitirá obtener los campos en diferentes textbox para sobreescribirlos o como control del registro encontrado para eliminarlo posteriormente.
Dim filx As Integer
Private Sub CommandButton1_Click()
'x Elsamatilde
'guarda la última fila ocupada de la hoja activa
filx = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row
'evalua si es de fecha de ayer o anterior al día de hoy
If Range("A" & filx) < Date Then
MsgBox "No se puede editar registros anteriores al día de hoy.", , "ATENCIÓN"
Exit Sub
End If
'si corresponde muestra los campos en los diferentes controles para editarlos
TextBox1 = Range("A" & filx)
TextBox2 = Range("B" & filx)
TextBox3 = Range("C" & filx)
TextBox4 = Range("D" & filx)
TextBox5 = Range("E" & filx)
End SubLuego necesitarás otro botón para cada una de las tareas ya sea eliminarlo o modificarlo.
Te dejo el código para Eliminarlo:
Private Sub CommandButton2_Click()
'x Elsamatilde
'eliminar el registro encontrado
sino = MsgBox("¿Confirmas que deseas eliminar este registro?", vbQuestion + vbYesNo, "CONFIRMAR")
'por No cancela
If sino <> vbYes Then Exit Sub
'elimina la fila
Range("A" & filx).EntireRow.Delete
'limpia los controles
TextBox1 = "": TextBox2 = "": TextBox3 = "": TextBox4 = "": TextBox5 = ""
TextBox1.SetFocus
End SubSi se trata solo de eliminarlo, continuamos el tema en una nueva consulta titulada Modificar registro. En el cuerpo del mensaje indica que es 'Para Elsa' así continúo con el ejemplo.
Sdos.
Elsa
http://aplicaexcel.galeon/manuales.htm
