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]Buscar a menor data em varios campos

    avatar
    Dery_santos
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 62
    Registrado : 03/10/2016

    [Resolvido]Buscar a menor data em varios campos Empty [Resolvido]Buscar a menor data em varios campos

    Mensagem  Dery_santos em 23/1/2020, 00:18

    Pessoal boa noite,

    Eu tenho um formulário onde existem vários campos datas tipo para controlar validade de documentos e emissão tipo assim

    CND Federal - [data_de_emissão_cnd_federal] [ data de vencimento]
    CND municial- [data_de_emissão_cnd_municipal] [ data de vencimento]
    CND estadual- [data_de_emissão_cnd_estadual] [ data de vencimento]

    e por ai vai , ao todo são 12 documentos onde informo a data de emissão e data de vencimento.

    No final do formulário tenho um campo chamado documento mais antigo.

    Queria saber como eu faço para verificar qual documento foi emitido primeiro e me retome no campo[ documento mais antigo] a menor data .

    pensei em fazer o inf else mas acho que o código ficaria muito grande , tem como fazer isso diferente ?


    desde ja agradeço a todos

    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4637
    Registrado : 20/04/2011

    [Resolvido]Buscar a menor data em varios campos Empty Re: [Resolvido]Buscar a menor data em varios campos

    Mensagem  Silvio em 23/1/2020, 16:50

    Boas..

    Você disse....
    "Queria saber como eu faço para verificar qual documento foi emitido primeiro e me retome no campo[ documento mais antigo] a menor data ."

    Então, se todos esse documentos estão dentro do mesmo formulário e tabela basta criar uma consulta e classificar o mesmo pela menor data ( isso no campo referido em tua questão).

    Depois basta criar um formulário continuo, baseado nessa consulta para ver as menores datas.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    avatar
    Dery_santos
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 62
    Registrado : 03/10/2016

    [Resolvido]Buscar a menor data em varios campos Empty Re: [Resolvido]Buscar a menor data em varios campos

    Mensagem  Dery_santos em 23/1/2020, 16:58

    Boa tarde e obrigado,

    O problema não sei como fazer isso considerando que cada data e um campo ou melhor uma coluna diferente.

    OBRIGADO
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    [Resolvido]Buscar a menor data em varios campos Empty Re: [Resolvido]Buscar a menor data em varios campos

    Mensagem  Alexandre Neves em 23/1/2020, 20:49

    Boa noite
    Deve explicar melhor e disponibilizar material para se testar
    Quer que o cálculo seja feito durante o preenchimento do registo no formulário? Ter campo (ou rótulo) para data mais antiga e ir actualizando conforme vai preenchendo os campos?


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

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 62
    Registrado : 03/10/2016

    [Resolvido]Buscar a menor data em varios campos Empty Re: [Resolvido]Buscar a menor data em varios campos

    Mensagem  Dery_santos em 23/1/2020, 22:39

    Estou enviando o arquivo com a tabela e o formulário, no formulário existem algumas datas de emissão e datas de vencimento, no final do formulário te o botão verificar data mais antiga, ao clicar nele preciso que ele verifique entre as datas de emissão qual a data mais antiga e grave no campo Data mais antiga que se encontra no inicio do formulário.

    Sei que se fosse para verificar umas duas datas seria fácil , mas ainda estou montando essa tabela e ao todo vão ser mais ou menos uns 12 campos para verificar , mas pelo menos com esse arquivo que estou encaminhando já daria para eu saber como montar a consulta dos 12 campos.

    Obrigado
    Anexos
    [Resolvido]Buscar a menor data em varios campos AttachmentCad_documentos.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (34 Kb) Baixado 5 vez(es)
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    [Resolvido]Buscar a menor data em varios campos Empty Re: [Resolvido]Buscar a menor data em varios campos

    Mensagem  Alexandre Neves em 24/1/2020, 11:15

    Bom dia,
    Nomeie de forma normalizada
    Código:
    Private Sub Comando15_Click()
        '--------------------------------------------------------------'
        '  código criado por Alexandre Neves, do Fórum MaximoAccess  '
        '    utilize o código livremente mas mantenha os créditos    '
        '--------------------------------------------------------------'
        Dim SegData As Boolean, dtDataMaisAntiga As Date
        If IsDate(CND_federal_emissão) Then
            If SegData = False Or CND_federal_emissão < dtDataMaisAntiga Then dtDataMaisAntiga = CND_federal_emissão: SegData = True
        End If
        If IsDate(CND_Estadual_emissão) Then
            If SegData = False Or CND_Estadual_emissão < dtDataMaisAntiga Then dtDataMaisAntiga = CND_Estadual_emissão: SegData = True
        End If
        If IsDate(CND_Municipal_emissão) Then
            If SegData = False Or CND_Municipal_emissão < dtDataMaisAntiga Then dtDataMaisAntiga = CND_Municipal_emissão: SegData = True
        End If
        If IsDate(FGTS_emissão) Then
            If SegData = False Or FGTS_emissão < dtDataMaisAntiga Then dtDataMaisAntiga = FGTS_emissão: SegData = True
        End If
        If IsDate(Falencia_concordata_emissao) Then
            If SegData = False Or Falencia_concordata_emissao < dtDataMaisAntiga Then dtDataMaisAntiga = Falencia_concordata_emissao: SegData = True
        End If
        If IsDate(CND_federal_Vencimento) Then
            If SegData = False Or CND_federal_Vencimento < dtDataMaisAntiga Then dtDataMaisAntiga = CND_federal_Vencimento: SegData = True
        End If
        If IsDate(CND_Estadual_Vencimento) Then
            If SegData = False Or CND_Estadual_Vencimento < dtDataMaisAntiga Then dtDataMaisAntiga = CND_Estadual_Vencimento: SegData = True
        End If
        If IsDate(CND_Municipal_Vencimento) Then
            If SegData = False Or CND_Municipal_Vencimento < dtDataMaisAntiga Then dtDataMaisAntiga = CND_Municipal_Vencimento: SegData = True
        End If
        If IsDate(FGTS_Vencimento) Then
            If SegData = False Or FGTS_Vencimento < dtDataMaisAntiga Then dtDataMaisAntiga = FGTS_Vencimento: SegData = True
        End If
        If IsDate(FGTS_Vencimento) Then
            If SegData = False Or FGTS_Vencimento < dtDataMaisAntiga Then dtDataMaisAntiga = FGTS_Vencimento: SegData = True
        End If
        Datadocumentomaisantigo = Null
        If dtDataMaisAntiga > 0 Then Datadocumentomaisantigo = dtDataMaisAntiga
    End Sub


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

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 62
    Registrado : 03/10/2016

    [Resolvido]Buscar a menor data em varios campos Empty Re: [Resolvido]Buscar a menor data em varios campos

    Mensagem  Dery_santos em 24/1/2020, 11:26

    Bom dia,

    Muito obrigado, vou testar e reporto o resultado.
    avatar
    Dery_santos
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 62
    Registrado : 03/10/2016

    [Resolvido]Buscar a menor data em varios campos Empty Re: [Resolvido]Buscar a menor data em varios campos

    Mensagem  Dery_santos em 24/1/2020, 22:25

    Boa noite,

    Era isso mesmo que eu queria , só tenho a agradecer , muito obrigado.

      Data/hora atual: 5/12/2020, 08:24