MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Mover linhas com base em Status

    gabrielpn06
    gabrielpn06
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 180
    Registrado : 17/01/2017

    [Resolvido]Mover linhas com base em Status Empty [Resolvido]Mover linhas com base em Status

    Mensagem  gabrielpn06 4/7/2017, 10:37

    Bom dia amigos, estou com dificuldade para uma automação.

    -Tenho três tabelas: TbTemp (atualizada diariamente), TbBaixas (recebe linhas da "TbTemp") e TbHistorico (recebe as linhas que foram baixadas depois que o processo foi considerado "Apto");

    -Nas três tabelas tenho campos em comum ("ID" e "Status");

    -Na TbTemp chegam linhas de processos classificados como "Inapto" (E eles continuam chegando diariamente até que cheguem com a coluna "Status" definida como "Apto")

    -Quando chegar uma linha desse processo na TbTemp e essa estiver classificada como "Apto", preciso que todas as outras linhas desse mesmo processo (Reconhecido pelo "ID"), sejam movidas para a "TbHistorico" e somente a linha com a classificação "Apto" permaneça na "TbBaixas".

    Podem me ajudar nessa? Desde já agradeço! Smile
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10614
    Registrado : 04/11/2009

    [Resolvido]Mover linhas com base em Status Empty Re: [Resolvido]Mover linhas com base em Status

    Mensagem  JPaulo 4/7/2017, 12:41

    Ola;

    Pode testar;

    Código:
    Private Sub SeuBotao_Click()
        CurrentDb.Execute "insert into TbBaixas select * from TbTemp where Status='Apto'"
        CurrentDb.Execute "insert into TbHistorico select * from TbTemp where Status='Inapto' and TbTemp.ID IN (select ID from TbBaixas)"
        CurrentDb.Execute "delete * from TbTemp where TbTemp.ID IN (select ID from TbBaixas) and Status='Apto' or (TbTemp.ID IN (select ID from TbHistorico) and Status='Inapto')"
    End Sub


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Mover linhas com base em Status Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Mover linhas com base em Status Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Mover linhas com base em Status Folder_announce_new Instruções SQL como utilizar...
    gabrielpn06
    gabrielpn06
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 180
    Registrado : 17/01/2017

    [Resolvido]Mover linhas com base em Status Empty Re: [Resolvido]Mover linhas com base em Status

    Mensagem  gabrielpn06 4/7/2017, 14:31

    Boa tarde JPaulo, agradeço pela ajuda.
    Me gerou o seguinte erro:

    "Erro em tempo de execução '3061': Parâmetros insuficientes.Eram esperados 2."
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10614
    Registrado : 04/11/2009

    [Resolvido]Mover linhas com base em Status Empty Re: [Resolvido]Mover linhas com base em Status

    Mensagem  JPaulo 4/7/2017, 14:40

    As instruções funcionam lindo.

    Esse erro só acontece, quando você tem campos diferentes, a mais, ou a menos nas 3 tabelas.

    Isso somente funciona, se as 3 tabelas forem iguais.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Mover linhas com base em Status Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Mover linhas com base em Status Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Mover linhas com base em Status Folder_announce_new Instruções SQL como utilizar...
    gabrielpn06
    gabrielpn06
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 180
    Registrado : 17/01/2017

    [Resolvido]Mover linhas com base em Status Empty Re: [Resolvido]Mover linhas com base em Status

    Mensagem  gabrielpn06 4/7/2017, 15:33

    Ainda não obtive sucesso, pode postar a parte do bd que usou para montar o exemplo por favor?
    gabrielpn06
    gabrielpn06
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 180
    Registrado : 17/01/2017

    [Resolvido]Mover linhas com base em Status Empty Re: [Resolvido]Mover linhas com base em Status

    Mensagem  gabrielpn06 4/7/2017, 16:07

    Boa tarde mestre, consegui. O erro realmente era na igualdade dos campos presentes nas 3 tabelas.
    Muito obrigado pela ajuda! Smile
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10614
    Registrado : 04/11/2009

    [Resolvido]Mover linhas com base em Status Empty Re: [Resolvido]Mover linhas com base em Status

    Mensagem  JPaulo 4/7/2017, 16:42

    Fico feliz.
    Obrigado pelo retorno o forum agradece.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Mover linhas com base em Status Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Mover linhas com base em Status Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Mover linhas com base em Status Folder_announce_new Instruções SQL como utilizar...

      Data/hora atual: 16/6/2021, 15:29