MaximoAccess

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

Obrigado

Administração do MaximoAccess

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]Update mais que um campo e calculo com datas

    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4225
    Registrado : 06/11/2009

    [Resolvido]Update mais que um campo e calculo com datas Empty [Resolvido]Update mais que um campo e calculo com datas

    Mensagem  Assis em 26/7/2019, 10:51

    Bom dia

    Onde estou a errar

    Obrigado

     SSQL = "UPDATE tbSistema SET NomePC = '" & Environ("ComputerName") & ",DataInicio = #" & Format(Now, "mm/dd/yyyy") & "#, DataFim = #" & Format(Now, "mm/dd/yyyy") & "#"


    Mas a Data Fim seria a Data Inicio + 30


    .................................................................................
    *** Só sei que nada sei ***
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6905
    Registrado : 15/03/2013

    [Resolvido]Update mais que um campo e calculo com datas Empty Re: [Resolvido]Update mais que um campo e calculo com datas

    Mensagem  ahteixeira em 26/7/2019, 11:12

    Bom dia Assis,

    A dúvida é:

    1) essa instrução dá erro?
    2) como adicionar 30 dias?

    Aguardo
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4225
    Registrado : 06/11/2009

    [Resolvido]Update mais que um campo e calculo com datas Empty Re: [Resolvido]Update mais que um campo e calculo com datas

    Mensagem  Assis em 26/7/2019, 11:40

    Pode ser estes ?

    Pata a Data Inicio - DateSerial(Year(Date), Month(Date), 1)
    Para a Data Fim - DateSerial(Year(Date), Month(Date) + 1, 0)

    Obrgado


    .................................................................................
    *** Só sei que nada sei ***
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6905
    Registrado : 15/03/2013

    [Resolvido]Update mais que um campo e calculo com datas Empty Re: [Resolvido]Update mais que um campo e calculo com datas

    Mensagem  ahteixeira em 26/7/2019, 11:52

    Olá Assis,

    Leia com atenção a mensagem nº 2, responda se a dúvida é o nº 1 ou nº 2 ou as duas.

    Aguardo

    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4225
    Registrado : 06/11/2009

    [Resolvido]Update mais que um campo e calculo com datas Empty Re: [Resolvido]Update mais que um campo e calculo com datas

    Mensagem  Assis em 26/7/2019, 12:08

    Teixeira

    O comando funciona como está na linha a seguir só com um campo.

    SSQL = "UPDATE tbSistema SET NomePC = '" & Environ("ComputerName") & "'"


    Mas coloquei mais 2 campos na tabela e queria gravar na tabela "tbSistema" com o comando que postei mas não grava nenhum dos 3 campos.

    NomePC

    DataInicio

    DataFim

    Obrigado





    .................................................................................
    *** Só sei que nada sei ***
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6905
    Registrado : 15/03/2013

    [Resolvido]Update mais que um campo e calculo com datas Empty Re: [Resolvido]Update mais que um campo e calculo com datas

    Mensagem  ahteixeira em 26/7/2019, 12:11

    Olá Assis,

    Considerando que a resposta é 1 e 2, teste assim:
    Código:
    SSQL = "UPDATE tbSistema SET NomePC = '" & Environ("ComputerName") & ",DataInicio = #" & Format(DateSerial(Year(Now), Month(Now), 1), "mm/dd/yyyy") & "#, DataFim = #" & Format(DateSerial(Year(Now), Month(Now) + 1, 0), "mm/dd/yyyy") & "#'"

    Nota: espero que o destino para isto tudo na tabela seja o campo NomePC . Shocked

    Vou almoçar, abraço
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4225
    Registrado : 06/11/2009

    [Resolvido]Update mais que um campo e calculo com datas Empty Re: [Resolvido]Update mais que um campo e calculo com datas

    Mensagem  Assis em 26/7/2019, 12:27

    Teixeira


    Gravou tudo no campo "NomePC"

    NomePC - Aqui grava o Environ("ComputerName")

    DataInicio - Aqui a data Inicio

    DataFim - Aqui a data Fim


    .................................................................................
    *** Só sei que nada sei ***
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6905
    Registrado : 15/03/2013

    [Resolvido]Update mais que um campo e calculo com datas Empty Re: [Resolvido]Update mais que um campo e calculo com datas

    Mensagem  ahteixeira em 26/7/2019, 13:42

    Olá Assis,

    Eu por duas vezes insisti nas perguntas, mas parece que tem dificuldade em dar detalhes.

    Na primeira mensagem vi que faltava a aspa simples no fim, e quanto ao "adicionar 30 dias" era só mesmo fazer isso adicionar.
    Apesar de não ter dado detalhes, dei a resposta na mensagem nº 6 , adivinhando o que pretendia e calculando que talvez não fosse tudo que pretende, por isso escrevi:
    "Nota: espero que o destino para isto tudo na tabela seja o campo NomePC .  Shocked "

    Era só olhar para a consulta e ver que está adicionar apenas a um campo.

    O fórum é para inter-ajuda e partilha do conhecimento, a ajuda em qualquer tópico pode ser útil para outro membro.
    Os membros devem dar o máximo de detalhes do que pretendem, descrevendo o que está acontecer e o que é pretendido, pois assim fica mais fácil para qualquer membro poder ajudar.


    Quanto à dúvida a sintaxe é:
    Código:
    UPDATE NomeTabela SET [Campo1] = "111", [Campo2] = "222", [CampoN] = "nnn";

    Se a dúvida se mantiver, crie pelo assistente a consulta actualizar e depois veja em modo SQL.

    Vou ajustar o título do tópico e mover para a sala consultas.

    Abraço
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1148
    Registrado : 13/12/2016

    [Resolvido]Update mais que um campo e calculo com datas Empty Re: [Resolvido]Update mais que um campo e calculo com datas

    Mensagem  Alexandre Fim em 26/7/2019, 14:19

    Assis,
    Aproveitando o gancho do amigo ahteixeira, tente isso:

    Código:


    SSQL = "UPDATE tbSistema SET "
    SSQL = SSQL & "  NomePC = '" & Environ("ComputerName") & "'"
    SSQL = SSQL & " ,DataInicio = #" & Format(Now, "mm/dd/yyyy") & "#"
    SSQL = SSQL & " ,DataFim = #" & Format(Now + 30, "mm/dd/yyyy") & "#"
    CurrentDB.Execute (SSQL)

    Boa sorte !!!


    .................................................................................
    - Procure sempre anexar seu projeto para análise do problema/dúvida.
    - Ao copiar/colar um código VBA, procure entender seu funcionamento.
    - Se o problema foi resolvido, não se esqueça de marcar o tópico como RESOLVIDO.
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4225
    Registrado : 06/11/2009

    [Resolvido]Update mais que um campo e calculo com datas Empty Re: [Resolvido]Update mais que um campo e calculo com datas

    Mensagem  Assis em 26/7/2019, 14:40

    Obrigado Teixeira

    Obrigado Alexandre



    .................................................................................
    *** Só sei que nada sei ***
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1148
    Registrado : 13/12/2016

    [Resolvido]Update mais que um campo e calculo com datas Empty Re: [Resolvido]Update mais que um campo e calculo com datas

    Mensagem  Alexandre Fim em 26/7/2019, 14:42

    Valeu Assis... cheers cheers
    Valeu ahteixeira !!!

    O fórum agradece.


    .................................................................................
    - Procure sempre anexar seu projeto para análise do problema/dúvida.
    - Ao copiar/colar um código VBA, procure entender seu funcionamento.
    - Se o problema foi resolvido, não se esqueça de marcar o tópico como RESOLVIDO.
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6905
    Registrado : 15/03/2013

    [Resolvido]Update mais que um campo e calculo com datas Empty Re: [Resolvido]Update mais que um campo e calculo com datas

    Mensagem  ahteixeira em 26/7/2019, 15:07

    cheers

      Data/hora atual: 19/10/2020, 17:01