Crear botón SI/NO para eliminar un registro
Tengo un problema con un check SI/NO para eliminar registros. Lo tengo implementando en un formulario emergente en el cual tengo habilitado este check para eliminar un registro y enviarlo a otra tabla.
El problema es que, por algún motivo que desconozco me duplica los valores en la segunda tabla. Es decir, el registro se encuentra en la Tabla1 y mediante el ckeck implementado en el formulario lo envío a la Tabla2 (Eliminados).
Cuando elimino el registro 15 (Por ejemplo) se envía a la tabla 2 (De la tabla1 no queda ni rastro) pero se duplica por dos. Si después elimino el registro 16, se duplica aun más...
Private Sub Baja_Click() DoCmd.SetWarnings (WarningsOff) If Me.Baja.Value = True Then DoCmd.RunSQL "INSERT INTO Tabla2 SELECT Delegacion, Provincia, Localidad, Domicilio, Contacto, Notas FROM Tabla1;" DoCmd.RunSQL "DELETE * FROM Tabla 1 WHERE Tabla1.IdDelegacion = " & Me.IdDelegacion & "", dbFailOnError DoCmd.Save acForm, "FichaSede" End If DoCmd.Close acForm, "FichaSede" End Sub
¿Sabéis porque puede estar pasando esto?
1 respuesta
Respuesta de Julián González Cabarcos
2