HOLA AMIGOS:
He creado una base de datos Dao para visual basic 6. Tengo un botón borrar un registro con el siguiente código:
Private Sub cmdBorrar_Click()
' Comprobar que hay registros, porque si no hay, dará error
If (Data1.Recordset.EOF Or Data1.Recordset.BOF) Then
' Avisar de que no hay registros
Else
' Eliminar el registro actual
Data1.Recordset.Delete
'
' Movemos al primer registro para que los cambios se hagan permanentes
' (también podriamos haberlo movido al último registro)
Data1.Recordset.MoveFirst
End If
End Sub
El problema es que cuando lo borro, los datos van con un autonumérico, y el hueco me queda entonces vacante, sin poder cubrirlo al añadir un nuevo registro, porque este se añade al final del último, sin que me valga entonces el autonumérico.
Como modifico este código para que al borrar un registro, estos se autonumeren de nuevo y cubran el hueco.
Ya puestos, si quiero intercalar un registro, como lo hago. solo se insertarlo el último y a veces me interesa que valla en determinado puesto.
MUCHAS GRACIAS POR VUESTRO TIEMPO.
