[Resolvido]Buscar a menor data em varios campos

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

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.

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

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?

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

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

Bom dia,

Muito obrigado, vou testar e reporto o resultado.

Boa noite,

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