Eliminar y Copiar Registros a otra tabla
Tengo el sig código para identificar unos riesgos y sus recomendaciones
como puedo hacer para eliminarlas de la
tabla y copiarlas a otra tabla
public ries_excluido
SELECT riesgos
GO TOP
DO WHILE NOT EOF()
&&Excluir los riesgos y sus recomendaciones de un intervalo de fechas especificadas en donde el estado de los
&&Riesgos esten como concluidos
IF (riesgos.estadonum=3 .and. Riesgos.fecha_cumplimiento>=thisform.txtfecha_detec.value .and. Riesgos.fecha_cumplimiento<=thisform.txtfecha_mayor.value)
Messagebox("El riesgo cae dentro de este rango de fechas y esta concluido")
ries_excluido=riesgos.clave_riesgo
SELECT recomendaciones
GO TOP
DO WHILE NOT EOF()
IF (recomendaciones.clave_riesgo=ries_excluido)
Messagebox("Recomendacion pertenece a un riesgo excluido")
&&aqui quiero que la quite de la tabla
&&y copie a otra tabal todos los campos
ENDIF
if not eof() &&si no es fin de archivo que se brinque al sig. Registro
SKIP
ENDIF
ENDDO
ELSE &&en caso de que no se deba excluir
Messagebox("Riesgo no cae dentro de este intervalo o no esta concluido")
&&aqui quiero que la quite de la tabla
&&y copie a otra tabal todos los campos
Endif
if not eof() &&si no es fin de archivo que se brinque al sig. Registro
SKIP
ENDIF
enddo
como puedo hacer para eliminarlas de la
tabla y copiarlas a otra tabla
public ries_excluido
SELECT riesgos
GO TOP
DO WHILE NOT EOF()
&&Excluir los riesgos y sus recomendaciones de un intervalo de fechas especificadas en donde el estado de los
&&Riesgos esten como concluidos
IF (riesgos.estadonum=3 .and. Riesgos.fecha_cumplimiento>=thisform.txtfecha_detec.value .and. Riesgos.fecha_cumplimiento<=thisform.txtfecha_mayor.value)
Messagebox("El riesgo cae dentro de este rango de fechas y esta concluido")
ries_excluido=riesgos.clave_riesgo
SELECT recomendaciones
GO TOP
DO WHILE NOT EOF()
IF (recomendaciones.clave_riesgo=ries_excluido)
Messagebox("Recomendacion pertenece a un riesgo excluido")
&&aqui quiero que la quite de la tabla
&&y copie a otra tabal todos los campos
ENDIF
if not eof() &&si no es fin de archivo que se brinque al sig. Registro
SKIP
ENDIF
ENDDO
ELSE &&en caso de que no se deba excluir
Messagebox("Riesgo no cae dentro de este intervalo o no esta concluido")
&&aqui quiero que la quite de la tabla
&&y copie a otra tabal todos los campos
Endif
if not eof() &&si no es fin de archivo que se brinque al sig. Registro
SKIP
ENDIF
enddo
1 Respuesta
Respuesta de Víctor Arturo Mercado Fernández
1