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]Automatização da Data Inicio do novo registo na Data Fim do registo anterior

    brunogor
    brunogor
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 273
    Registrado : 24/02/2013

    [Resolvido]Automatização da Data Inicio do novo registo na Data Fim do registo anterior Empty [Resolvido]Automatização da Data Inicio do novo registo na Data Fim do registo anterior

    Mensagem  brunogor 11/3/2014, 22:35

    Viva, então aqui vai mais uma:

    Pretendia que ao inserir a Data Início num novo registo esta fosse actualizada, ou seja, na Data Fim no registo anterior.

    Espero ter-me feito entender.

    O meu obrigado antecipado.

    Bruno Gordino


    Última edição por brunogor em 12/3/2014, 14:01, editado 1 vez(es)
    avatar
    Convidado
    Convidado


    [Resolvido]Automatização da Data Inicio do novo registo na Data Fim do registo anterior Empty Re: [Resolvido]Automatização da Data Inicio do novo registo na Data Fim do registo anterior

    Mensagem  Convidado 11/3/2014, 22:38

    Carregue a data Fim em uma variável antes de criar o novo registro
    Dim DtDataFin as Date
    dtDataFin = DLast("CampoData","SuaTabela")

    Ao criar o novo registro utilize esta variável para inserir a data inicial.


    Cumprimentos.
    brunogor
    brunogor
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 273
    Registrado : 24/02/2013

    [Resolvido]Automatização da Data Inicio do novo registo na Data Fim do registo anterior Empty Automatização da Data Inicio do novo registo na Data Fim do registo anterior

    Mensagem  brunogor 12/3/2014, 12:05

    Viva,

    Estou a fazer qualquer coisa mal, ou então expliquei-me mal.

    Objectivo: Ao criar um novo registo e após escolher a Data_Inicio esta ficar prenchida na Data_Fim do registo anterior.

    Fiz isto mas não está a funcionar da maneira que quero:
    Código:
    Option Compare Database
    Dim DtData As Date

    Private Sub Data_Inicio_AfterUpdate()
    On Error Resume Next
    DtData = DLast("Data_Inicio", "Tbl_1")
    Data_Fim = DtData
    End Sub

    Era óptimo se a Data_Inicio do novo registo não pudesse ser inferior à Data_Inicio do registo anterior.

    Mais uma vez obrigado pela atenção dispensada.


    Bruno Gordino


    Última edição por brunogor em 7/9/2015, 19:23, editado 1 vez(es)
    avatar
    Convidado
    Convidado


    [Resolvido]Automatização da Data Inicio do novo registo na Data Fim do registo anterior Empty Re: [Resolvido]Automatização da Data Inicio do novo registo na Data Fim do registo anterior

    Mensagem  Convidado 17/3/2014, 12:50

    Cite o passo a passo para que eu repoduza e possa entender.

    Cumprimentos.
    brunogor
    brunogor
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 273
    Registrado : 24/02/2013

    [Resolvido]Automatização da Data Inicio do novo registo na Data Fim do registo anterior Empty Data Inicio do novo registo na Data Fim do registo anterior

    Mensagem  brunogor 17/3/2014, 16:44

    Viva,

    Vou tentar ser claro.

    No Form tem este registos:
    Registo 101: Data Inicio "11-11-1111" e a Data Fim "22-22-2222";
    Registo 150: Data Inicio "22-22-2222" e a Data Fim "33-33-3333";
    Registo 300: Data Inicio "33-33-3333" e a Data Fim "Vazio";

    Quando criar um novo registo:
    Registo 320: Data Inicio "44-44-4444" e a Data Fim "Vazio";

    Queria que o registo 300 ficasse assim:
    Registo 300: Data Inicio "33-33-3333" e a Data Fim "44-44-4444".

    Muito obrigado por se ter disponibilizado.

    Bruno Gordino
    avatar
    Convidado
    Convidado


    [Resolvido]Automatização da Data Inicio do novo registo na Data Fim do registo anterior Empty Re: [Resolvido]Automatização da Data Inicio do novo registo na Data Fim do registo anterior

    Mensagem  Convidado 19/3/2014, 00:31

    ==================================================================================
    Antes de criar o novo registro guarde a ID do ultimo registro, isso servirá para atualizar o registro quando criar o novo registro
    ==================================================================================
    Dim lngIDAnt as long
    lngIDAnt = DLast("SeuCampoID","SuaTabela")

    ==================================================================================
    Após criar o novo registro basta atualizar o registro anterior baseado na Id guardada na variável lndIDAnt
    ==================================================================================
    Dim dtDataFim
    dtDataFim = DLast("DataInicio","SuaTabela")
    '--------------------------
    'Atualiza o registro Anterior
    '--------------------------
    CurrentDb.Execute "UPDATE SuaTabela Set DataFim =  #" &  dtDataFim & "# WHERE SeuCampoID = " & lngIDAnt & ""

    Veja se consegue com estas dicas.

    Cumprimentos.
    brunogor
    brunogor
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 273
    Registrado : 24/02/2013

    [Resolvido]Automatização da Data Inicio do novo registo na Data Fim do registo anterior Empty Data Inicio do novo registo na Data Fim do registo anterior

    Mensagem  brunogor 19/3/2014, 09:58

    Viva,

    Vou experimentar depois dou o retorno.

    Entretanto ...

    o meu obrigado mais uma vez.

    Bruno Gordino
    brunogor
    brunogor
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 273
    Registrado : 24/02/2013

    [Resolvido]Automatização da Data Inicio do novo registo na Data Fim do registo anterior Empty Data Inicio na Nata Fim

    Mensagem  brunogor 21/3/2014, 22:55

    Viva.

    Desculpe a demora ...

    ... já bomba.

    Muito Obrigado

    Valeu
    brunogor
    brunogor
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 273
    Registrado : 24/02/2013

    [Resolvido]Automatização da Data Inicio do novo registo na Data Fim do registo anterior Empty Data Inicio na Nata Fim

    Mensagem  brunogor 21/3/2014, 22:57

    Viva.

    Desculpe a demora no retorno...

    ... já bomba.

    Muito Obrigado

    Valeu
    avatar
    Convidado
    Convidado


    [Resolvido]Automatização da Data Inicio do novo registo na Data Fim do registo anterior Empty Re: [Resolvido]Automatização da Data Inicio do novo registo na Data Fim do registo anterior

    Mensagem  Convidado 22/3/2014, 15:31

    O Fórum agradece o Retorno.

    Conteúdo patrocinado


    [Resolvido]Automatização da Data Inicio do novo registo na Data Fim do registo anterior Empty Re: [Resolvido]Automatização da Data Inicio do novo registo na Data Fim do registo anterior

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 17:47