Eliminar una linea en una base de datos

Hola Dam…
Tu apoyo de nuevo… tengo esta macro para eliminar una línea en la base de
datos. Escribo el nombre en el “CMB2”, presiono consulta y aparecen los 7 datos
de esa persona en los siguientes textbox. Presiono modificar (algún dato) si es el casoy se hace correctamente esta tarea. Presiono eliminar completo un registro que no sirva y al aceptar la eliminación me regresa el aviso “Error de compilación, el número de argumentos es incorrecto o la asignación de propiedad no es válida”. . Te envío la macro para que me ayudes en la solución, Gracias mil.
Private Sub CommandButton5_Click() ‘Eliminar
Hoja1.Unprotect
Dim respuesta AsInteger, ctr As Control
respuesta = MsgBox(“¿Estás seguro
de eliminar el registro?”, vbCritical + vbOKCancel, “AVISO”)
If respuesta = vbOK Then
Cells(Rango.Row, Rango,
Column).EntireRow.Delete
MsgBox “Registro eliminado !!”, vbInformation, “LISTO”
For Each ctr In Me.Controls

If TypeOf ctr Is MSForms.TextBox Then
ctr = “”
End If
Next ctr
ComboBox2.SetFocus
Exit Sub
End If
MsgBox “Ok, Operación cancelada.”, vbOKOnly + vbInformation, “AVISO”
For Each ctr In Me.Controls
If TypeOf ctr Is MSForms.TextBox Then
ctr = “”
End If
Next ctr
ComboBox2.SetFocus
Hoja1.Protect
End Sub

0

Añade tu respuesta

Haz clic para o