Eliminar datos
Hola de nuevo, tengo un problema al eliminar datos de la base de datos perteneciente a una tabla llamada Legalización y a la vez eliminar los datos de una tabla llamada recibos, tengo este código, espero que me pueda ayudar.
Este es el código:
Private Sub cmdBorrar_Click()
Dim msg As Integer
msg = MsgBox("DESEA ELIMINAR EL REGISTRO?", vbYesNo, "T & T Construcciones")
If msg = vbNo Then Exit Sub
With Rec2
.Delete
.MovePrevious
If .EOF Then .MoveLast
If .BOF Then .MoveFirst
End With
With Rec3
.Delete
.MovePrevious
If .EOF Then .MoveLast
If .BOF Then .MoveFirst
End With
Display
Display2
End Sub
Rec y Rec2 son recordset.
Este es el código:
Private Sub cmdBorrar_Click()
Dim msg As Integer
msg = MsgBox("DESEA ELIMINAR EL REGISTRO?", vbYesNo, "T & T Construcciones")
If msg = vbNo Then Exit Sub
With Rec2
.Delete
.MovePrevious
If .EOF Then .MoveLast
If .BOF Then .MoveFirst
End With
With Rec3
.Delete
.MovePrevious
If .EOF Then .MoveLast
If .BOF Then .MoveFirst
End With
Display
Display2
End Sub
Rec y Rec2 son recordset.
Respuesta de Isaac Reyes
1
MM.. NO me dices cuál es el error que te envía, pero, por lo que veo, intuyo que no te borra el registro. Si es así, es porque no has elegido registro alguno.
De cualquier forma, necesito que me Aclares cuál es el error para poderte ayudar.
De cualquier forma, necesito que me Aclares cuál es el error para poderte ayudar.
El error que aparece es :
Error '-2147217885 (80040e23)' en tiempo de ejecución:
El identificador de fila se refirió a una fila eliminada o a una fila marcada para eliminar.
Error '-2147217885 (80040e23)' en tiempo de ejecución:
El identificador de fila se refirió a una fila eliminada o a una fila marcada para eliminar.
Pruebo tu código y me funciona todo OK, el error que me indicas me lo envía en la línea
.Delete
Si eliminola línea
. MovePrevious
Pero así como tienes especificado el código, no tengo problema al ejecutarlo.
Vas a tener que revisar lo que estás haciendo antes del evento cmdBorrar_Click, porque a mí me funciona bien tal cual como lo tienes.
.Delete
Si eliminola línea
. MovePrevious
Pero así como tienes especificado el código, no tengo problema al ejecutarlo.
Vas a tener que revisar lo que estás haciendo antes del evento cmdBorrar_Click, porque a mí me funciona bien tal cual como lo tienes.
Lo extraño es que me sale ese error y es en la parte de .Delete del Rec3, es al eliminar el datagrid.
With Rec3
For i = 1 To Me.DataGrid1.ApproxCount
.Delete
Next
End With
Cambie el código como este y cuando ejecuto la aplicación paso por paso F8 no mel anza ningún error y elimina todo correctamente, pero ya cuando la ejecuto sin el F8 me aparece el error que te había explicado.
For i = 1 To Me.DataGrid1.ApproxCount
.Delete
Next
End With
Cambie el código como este y cuando ejecuto la aplicación paso por paso F8 no mel anza ningún error y elimina todo correctamente, pero ya cuando la ejecuto sin el F8 me aparece el error que te había explicado.
Esa nueva sentencia debería funcionarte si la escribes de esta forma
With Rec3
For i = 1 To Me.DataGrid1.ApproxCount
.MoveFirst
.Delete
Next
End With
Una pregunta...
¿La idea es eliminar un conjunto de registros o limpiar la tabla?
With Rec3
For i = 1 To Me.DataGrid1.ApproxCount
.MoveFirst
.Delete
Next
End With
Una pregunta...
¿La idea es eliminar un conjunto de registros o limpiar la tabla?
