Hola radenf.
No conozco la sintáxis de Access, pero proba de este modo:
Código Delphi
[-]
with QryTmp do
begin
Close;
SQL.Clear;
SQL.Add('UPDATE TABLA SET CPO_BOOLEAN = (');
SQL.Add('CASE WHEN (ID = :PID) THEN TRUE ELSE FALSE END)');
ParamByName('PID').Value:= tuValor_ID; ExecSQL;
end;
Si no soporta el modo anterior, de este tendría que funcionar:
Código Delphi
[-]
with QryTmp do
begin
Close;
SQL.Text:= 'UPDATE TABLA SET CPO_BOOLEAN = FALSE';
ExecSql;
SQL.Text:= 'UPDATE ATABLA SET CPO_BOOLEAN = TRUE WHERE ID = :PID';
ParamByName('PID').AsString:= tuValor_ID; ExecSql;
end;
Saludos.