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