Jimmy
02 de Mayo del 2003

Hola. Una consulta a algún experto. Tengo una aplicación de VB6.0 con SQL Server. Trabajo con la base Northwind con la tabla Customers.
Mi código para borrar es el siguiente:
Private Sub cmdeliminar_Click()
On Error GoTo Errores
If MsgBox("Deseas eliminar al cliente con código " + rs(0), vbYesNo + vbQuestion, "Confirmar borrado") <> vbNo Then
rs.Delete
rs.MoveNext
If rs.EOF Then
rs.MoveLast
End If
End If
Errores:

MsgBox "Error número " & Str(Err.Number) & " " & Err.Description
End Sub
Este código me impide borrar un registro que está relacionado en otra tabla, lo cual está bien. Sin embargo, si luego de capturado el error doy click a un botón para ir al siguiente registro
Private Sub cmdsiguiente_Click()
rs.MoveNext
cmdanterior.Enabled = True
cmdprimero.Enabled = True
If rs.EOF = True Then
rs.MoveLast
cmdsiguiente.Enabled = False
cmdultimo.Enabled = False

End If
End Sub
la aplicación se cae en rs.Movenext.
Alguien me podría ayudar
Jimmy