Perfecto Revija
Controlo el error de esta manera
Cita:
'Eliminar registro
On Error GoTo VerError
Dim mensaje
mensaje = MsgBox("Esta seguro de eliminar el registro", vbYesNo)
If mensaje = 6 Then rsCargo.Delete
Exit Sub
VerError:
If Err.Number = -2147467259 Then
MsgBox "Se ha producido el siguiente error:" & vbCrLf & _
Err.Number & ", " & Err.Description, , "Error controlado"
End If
Al cargar mi form lleno el datagrid de esta manera
Set DataGrid1.DataSource = rsCargo
Y al producirse el error igual se borra el registro del datagrid, el registro solo vuelve aparecer cuando cargo nuevamente el formulario he intentado colocando despues del mensaje de error rscargo.cancel y datagrid1.refresh y nada