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

2 participantes

    [Resolvido]Repetir a última Data Fim no próximo registro, no campo Data Início

    grbpereira
    grbpereira
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 148
    Registrado : 11/05/2012

    [Resolvido]Repetir a última Data Fim no próximo registro, no campo Data Início Empty [Resolvido]Repetir a última Data Fim no próximo registro, no campo Data Início

    Mensagem  grbpereira 19/12/2018, 11:55

    Olá, Equipes! sunny  


    Bom dia.  cheers  


    Turmas, estou a buscar nos códigos, na Web, algo que me ajude no meu sistema de controle de obras.  santa


    A Solução do Problema, para vocês que são feras no VBA, farão com as mãos para trás.  farao  

    Problema: Sempre que eu digitar a última Data Final, no subformulário Etapas da Obra, o Próximo Registro tenha a Data Início IGUAL à Data Final anterior.


    Um forte e Fraterno Abraço a Todos e um Natal bem Porreta!!! santa  



    []'s
    Guilherme
    Anexos
    [Resolvido]Repetir a última Data Fim no próximo registro, no campo Data Início AttachmentAcompanhamento da Obra.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (29 Kb) Baixado 16 vez(es)
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Repetir a última Data Fim no próximo registro, no campo Data Início Empty Re: [Resolvido]Repetir a última Data Fim no próximo registro, no campo Data Início

    Mensagem  DamascenoJr. 19/12/2018, 12:18

    Abra seu subformulário f2EtapaS1 em modo design e na folha de propriedades do objeto formulário, guia eventos, evento "No atual", cole o código abaixo

    Código:
    Dim dtTemp As Date

        If Me.NewRecord Then
            dtTemp = Nz(DMax("DthObraDataFim", "t2Etapa", "DthObra_ObraId = " & Parent.ObraId), 0)
            If dtTemp > 0 Then Me!DthObraDataInicio.Value = dtTemp
        End If


    .................................................................................
    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.
    grbpereira
    grbpereira
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 148
    Registrado : 11/05/2012

    [Resolvido]Repetir a última Data Fim no próximo registro, no campo Data Início Empty Re: [Resolvido]Repetir a última Data Fim no próximo registro, no campo Data Início

    Mensagem  grbpereira 19/12/2018, 12:24

    Mestre Ivan!!! bounce bounce bounce bounce


    Show de Bola!!! cheers cheers cheers cheers farao farao farao


    Valeu, Mestre! Smile)


    Um forte Abraço,
    Guilherme
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Repetir a última Data Fim no próximo registro, no campo Data Início Empty Re: [Resolvido]Repetir a última Data Fim no próximo registro, no campo Data Início

    Mensagem  DamascenoJr. 19/12/2018, 12:26

    O fórum agradece o retorno. Sucesso.


    .................................................................................
    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.

      Data/hora atual: 27/1/2023, 04:52