Mi problema es que necesito eliminar un registro pero de manera que quede invisible pero que no se elimine radicalmente de la base de datos de manera que si por ejemplo realizo una busqueda de ese registro a traves de un formulario no aparezca en mi busqueda aunque todavia permanezca en la base de datos guardado
actualmente estoy usando este codigo pero me elimina todo el registro de la base de datos y no es lo que necesito
PUBLIC SUB btneliminarA_Click()
DIM query AS String
DIM pregunta AS Integer
IF (txtcedulaA.Text = "") THEN
message.Warning("El campo Cedula no puede estar vacio" & "\n" & "Por favor introduzca el numero de" & "\n" & "cédula para realizar la búsqueda primero")
ELSE
pregunta = message.Warning("¿Esta seguro de eliminar el registro?", "Si", "No")
IF pregunta = 1 THEN
txtcedulaA.Enabled = TRUE
query = "DELETE from liceo.alumnos where cedula_alumno='" & txtcedulaA.Text & "'"
TRY ModConexion.consulta(query)
IF ERROR THEN
Message.Error("Imposible borrar el registro")
ELSE
message.Info("El registro ha sido eliminado")
txtcedulaA.Clear
cmbnacionalidadA.Clear
txtnombreA.Clear
txtapellidoA.Clear
txtfechanacA.Clear
txtedadA.Clear
txtlugarnacA.Clear
cmbsexoA.Clear
txtprocedenciaA.Clear
cmbturno.Clear
cmbestatus.Clear
cmbmencionA.Clear
cmbnivelA.Clear
txtcedulaRe.Clear
txtcedulaA.SetFocus
'btneliminarA.Enabled = FALSE
END IF
END IF
END IF
END
DIM query AS String
DIM pregunta AS Integer
IF (txtcedulaA.Text = "") THEN
message.Warning("El campo Cedula no puede estar vacio" & "\n" & "Por favor introduzca el numero de" & "\n" & "cédula para realizar la búsqueda primero")
ELSE
pregunta = message.Warning("¿Esta seguro de eliminar el registro?", "Si", "No")
IF pregunta = 1 THEN
txtcedulaA.Enabled = TRUE
query = "DELETE from liceo.alumnos where cedula_alumno='" & txtcedulaA.Text & "'"
TRY ModConexion.consulta(query)
IF ERROR THEN
Message.Error("Imposible borrar el registro")
ELSE
message.Info("El registro ha sido eliminado")
txtcedulaA.Clear
cmbnacionalidadA.Clear
txtnombreA.Clear
txtapellidoA.Clear
txtfechanacA.Clear
txtedadA.Clear
txtlugarnacA.Clear
cmbsexoA.Clear
txtprocedenciaA.Clear
cmbturno.Clear
cmbestatus.Clear
cmbmencionA.Clear
cmbnivelA.Clear
txtcedulaRe.Clear
txtcedulaA.SetFocus
'btneliminarA.Enabled = FALSE
END IF
END IF
END IF
END
Gracias si alguien me puede ayudar con eso seria excelente