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

4 participantes

    [Resolvido]Update no formulario ou outra função

    avatar
    Carlos Rugno
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 56
    Registrado : 20/06/2013

    [Resolvido]Update no formulario ou outra função Empty [Resolvido]Update no formulario ou outra função

    Mensagem  Carlos Rugno 8/10/2020, 19:42

    usei o comando
    UPDATE tbl_Epis SET datatroca = (
    SELECT DataTroca
    FROM (SELECT tbl_Epis.CodEpei, tbl_Cad_Epi.CODIGOPRD, tbl_Epis.Integrante, tbl_Epis.Matricula, tbl_Epis.Setor, tbl_Epis.Cod_Funcao, tbl_Epis.Cargo, tbl_Epis.Descricao, tbl_Epis.DataAquisicao, tbl_Epis.DataEntrega, tbl_Epis.DataReprogramacao, tbl_Epis.Qtde, tbl_Epis.Status, tbl_Cad_Epi.Validade AS Val, IIf([TBL_EPIS].[STATUS] Not In ('DEVOLUÇÃO') And [TBL_EPIS].[STATUS] Not In ('PERDA') And [TBL_EPIS].[STATUS] Not In ('REPROGRAMADO'),IIf([Cons_Epi_x_Funcao].[PERIODICIDADE] Is Not Null,[Cons_Epi_x_Funcao].[periodicidade],[tbl_cad_epi].[validade]),IIf([TBL_EPIS].[STATUS] In ('REPROGRAMADO'),"Reprog",IIf([TBL_EPIS].[STATUS] In ('DEVOLUÇÃO'),"Dev","Perda"))) AS Validade, IIf([TBL_EPIS].[STATUS] In ('REPROGRAMADO'),[DataReprogramacao],IIf([TBL_EPIS].[STATUS] Not In ('DEVOLUÇÃO') And [TBL_EPIS].[STATUS] Not In ('PERDA') And [TBL_EPIS].[STATUS] Not In ('REPROGRAMADO'),[tbl_Epis].[dataEntrega]+IIf([Cons_Epi_x_Funcao].[PERIODICIDADE] Is Not Null,[Cons_Epi_x_Funcao].[periodicidade],[tbl_cad_epi].[validade]),IIf([TBL_EPIS].[STATUS] Not In ('REPROGRAMADO'),[DataReprogramacao],Null))) AS DataTroca1, tbl_Epis.Obs, Format$([DataTroca1],'ddd') AS DIA, IIf(Format$([DataTroca1],'ddd')="sáb",[DataTroca1]+2,IIf(Format$([DataTroca1],'ddd')="dom",[DataTroca1]+1,[DataTroca1])) AS DataTroca, tbl_Epis.Motivo, tbl_Epis.Entregue FROM (tbl_Epis LEFT JOIN tbl_Cad_Epi ON tbl_Epis.Descricao = tbl_Cad_Epi.Descricao) LEFT JOIN Cons_Epi_x_Funcao ON (tbl_Epis.Descricao = Cons_Epi_x_Funcao.EPI_DESCRICAO) AND (tbl_Epis.Cod_Funcao = Cons_Epi_x_Funcao.COD_FUNCAO) WHERE (((tbl_Epis.Status) Not In ("EXCLUIDO")))) AS EPI
    WHERE epi.codepei = tbl_epis.codepei);

    Mas esta dando a seguinte mensagem:

    A OPERAÇÃO DEVE USAR UMA CONSULTA ATUALIZAVEL,

    Como resolver este problema?




    Gostaria de dar upadate na tabela tbl_Epi no campo DataTroca, pois a data esta null

    select abaixo:
    codepei DataTroca
    33258 2003/11/20
    33258 03/11/2020
    30728 29/07/2020
    32785 25/08/2020
    32610 28/11/2019
    32609 28/11/2019
    32905 26/08/2020
    32611 28/11/2019
    32782 25/08/2020

    Tabela: para o updade
    CodEpei DataTroca
    33258 null
    33258
    30728
    32785
    32610
    32609
    32905
    32611
    32782

    Gostaria de dar upadate na tabela tbl_Epi acima, pois a data esta null


    select com o retorno da data:
    SELECT codepei, DataTroca
    FROM (SELECT tbl_Epis.CodEpei, tbl_Cad_Epi.CODIGOPRD, tbl_Epis.Integrante, tbl_Epis.Matricula, tbl_Epis.Setor, tbl_Epis.Cod_Funcao, tbl_Epis.Cargo, tbl_Epis.Descricao, tbl_Epis.DataAquisicao, tbl_Epis.DataEntrega, tbl_Epis.DataReprogramacao, tbl_Epis.Qtde, tbl_Epis.Status, tbl_Cad_Epi.Validade AS Val, IIf([TBL_EPIS].[STATUS] Not In ('DEVOLUÇÃO') And [TBL_EPIS].[STATUS] Not In ('PERDA') And [TBL_EPIS].[STATUS] Not In ('REPROGRAMADO'),IIf([Cons_Epi_x_Funcao].[PERIODICIDADE] Is Not Null,[Cons_Epi_x_Funcao].[periodicidade],[tbl_cad_epi].[validade]),IIf([TBL_EPIS].[STATUS] In ('REPROGRAMADO'),"Reprog",IIf([TBL_EPIS].[STATUS] In ('DEVOLUÇÃO'),"Dev","Perda"))) AS Validade, IIf([TBL_EPIS].[STATUS] In ('REPROGRAMADO'),[DataReprogramacao],IIf([TBL_EPIS].[STATUS] Not In ('DEVOLUÇÃO') And [TBL_EPIS].[STATUS] Not In ('PERDA') And [TBL_EPIS].[STATUS] Not In ('REPROGRAMADO'),[tbl_Epis].[dataEntrega]+IIf([Cons_Epi_x_Funcao].[PERIODICIDADE] Is Not Null,[Cons_Epi_x_Funcao].[periodicidade],[tbl_cad_epi].[validade]),IIf([TBL_EPIS].[STATUS] Not In ('REPROGRAMADO'),[DataReprogramacao],Null))) AS DataTroca1, tbl_Epis.Obs, Format$([DataTroca1],'ddd') AS DIA, IIf(Format$([DataTroca1],'ddd')="sáb",[DataTroca1]+2,IIf(Format$([DataTroca1],'ddd')="dom",[DataTroca1]+1,[DataTroca1])) AS DataTroca, tbl_Epis.Motivo, tbl_Epis.Entregue FROM (tbl_Epis LEFT JOIN tbl_Cad_Epi ON tbl_Epis.Descricao = tbl_Cad_Epi.Descricao) LEFT JOIN Cons_Epi_x_Funcao ON (tbl_Epis.Cod_Funcao = Cons_Epi_x_Funcao.COD_FUNCAO) AND (tbl_Epis.Descricao = Cons_Epi_x_Funcao.EPI_DESCRICAO) WHERE (((tbl_Epis.Status) Not In ("EXCLUIDO"))))  AS EPI
    WHERE DataTroca Is not null;


    Última edição por Carlos Rugno em 14/10/2020, 21:12, editado 2 vez(es) (Motivo da edição : update na tabela tbl_Epi pois a data esta null)
    avatar
    Misson Lira
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 334
    Registrado : 01/12/2016

    [Resolvido]Update no formulario ou outra função Empty Re: [Resolvido]Update no formulario ou outra função

    Mensagem  Misson Lira 12/10/2020, 15:16

    Não compreendi muito bem sua duvida, mais se for para editar os dados que estão no formulário e mudar na tabela
    pode usar o:





    Sel = "SELECT * from NomeTabela where Código=" & Me!txtCódigo & ""
    Set rst = CurrentDb.OpenRecordset(Sel)
    rst.Edit
    rst(CampoTabela) = Me(CampoFormulario)
    rst.Update
    rst.Close

    espero ter ajudado
    avatar
    Carlos Rugno
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 56
    Registrado : 20/06/2013

    [Resolvido]Update no formulario ou outra função Empty Update em tabela

    Mensagem  Carlos Rugno 19/10/2020, 14:11

    Como poderia usar o comando abaixo no acess?

    UPDATE tbl_Epis SET datatroca = (
    SELECT DataTroca
    FROM (SELECT tbl_Epis.CodEpei, tbl_Cad_Epi.CODIGOPRD, tbl_Epis.Integrante, tbl_Epis.Matricula, tbl_Epis.Setor, tbl_Epis.Cod_Funcao, tbl_Epis.Cargo, tbl_Epis.Descricao, tbl_Epis.DataAquisicao, tbl_Epis.DataEntrega, tbl_Epis.DataReprogramacao, tbl_Epis.Qtde, tbl_Epis.Status, tbl_Cad_Epi.Validade AS Val, IIf([TBL_EPIS].[STATUS] Not In ('DEVOLUÇÃO') And [TBL_EPIS].[STATUS] Not In ('PERDA') And [TBL_EPIS].[STATUS] Not In ('REPROGRAMADO'),IIf([Cons_Epi_x_Funcao].[PERIODICIDADE] Is Not Null,[Cons_Epi_x_Funcao].[periodicidade],[tbl_cad_epi].[validade]),IIf([TBL_EPIS].[STATUS] In ('REPROGRAMADO'),"Reprog",IIf([TBL_EPIS].[STATUS] In ('DEVOLUÇÃO'),"Dev","Perda"))) AS Validade, IIf([TBL_EPIS].[STATUS] In ('REPROGRAMADO'),[DataReprogramacao],IIf([TBL_EPIS].[STATUS] Not In ('DEVOLUÇÃO') And [TBL_EPIS].[STATUS] Not In ('PERDA') And [TBL_EPIS].[STATUS] Not In ('REPROGRAMADO'),[tbl_Epis].[dataEntrega]+IIf([Cons_Epi_x_Funcao].[PERIODICIDADE] Is Not Null,[Cons_Epi_x_Funcao].[periodicidade],[tbl_cad_epi].[validade]),IIf([TBL_EPIS].[STATUS] Not In ('REPROGRAMADO'),[DataReprogramacao],Null))) AS DataTroca1, tbl_Epis.Obs, Format$([DataTroca1],'ddd') AS DIA, IIf(Format$([DataTroca1],'ddd')="sáb",[DataTroca1]+2,IIf(Format$([DataTroca1],'ddd')="dom",[DataTroca1]+1,[DataTroca1])) AS DataTroca, tbl_Epis.Motivo, tbl_Epis.Entregue FROM (tbl_Epis LEFT JOIN tbl_Cad_Epi ON tbl_Epis.Descricao = tbl_Cad_Epi.Descricao) LEFT JOIN Cons_Epi_x_Funcao ON (tbl_Epis.Descricao = Cons_Epi_x_Funcao.EPI_DESCRICAO) AND (tbl_Epis.Cod_Funcao = Cons_Epi_x_Funcao.COD_FUNCAO) WHERE (((tbl_Epis.Status) Not In ("EXCLUIDO")))) AS EPI
    WHERE epi.codepei = tbl_epis.codepei);
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8210
    Registrado : 05/11/2009

    [Resolvido]Update no formulario ou outra função Empty Re: [Resolvido]Update no formulario ou outra função

    Mensagem  Alexandre Neves 19/10/2020, 16:44

    Boa tarde
    Será
    UPDATE tbl_Epis SET datatroca = (SELECT DataTroca FROM (SELECT IIf(Format$([DataTroca1],'ddd')="sáb",[DataTroca1]+2,IIf(Format$([DataTroca1],'ddd')="dom",[DataTroca1]+1,[DataTroca1])) AS DataTroca
    FROM (tbl_Epis LEFT JOIN tbl_Cad_Epi ON tbl_Epis.Descricao = tbl_Cad_Epi.Descricao) LEFT JOIN Cons_Epi_x_Funcao ON (tbl_Epis.Descricao = Cons_Epi_x_Funcao.EPI_DESCRICAO) AND (tbl_Epis.Cod_Funcao = Cons_Epi_x_Funcao.COD_FUNCAO) WHERE (((tbl_Epis.Status) Not In ("EXCLUIDO")))) AS EPI WHERE epi.codepei = tbl_epis.codepei);


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3707
    Registrado : 22/11/2016

    [Resolvido]Update no formulario ou outra função Empty Re: [Resolvido]Update no formulario ou outra função

    Mensagem  DamascenoJr. 18/11/2021, 00:25

    Tópicos fundidos. Mesmo autor, mesma dúvida.

    Carlos, os colegas estão a pouco mais de um ano esperando saber se a dica dada ajudou.

    O retorno é importante para aqueles que tiraram um tempo para ajudar.

    Aguardamos seu retorno.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    avatar
    Carlos Rugno
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 56
    Registrado : 20/06/2013

    [Resolvido]Update no formulario ou outra função Empty Re: [Resolvido]Update no formulario ou outra função

    Mensagem  Carlos Rugno 18/11/2021, 12:18

    Desculpe não ter fechado a pendencia

    Os colega foram muito util

    Obrigado


      Data/hora atual: 6/10/2022, 08:32