[Resolvido]Valores minimos III ModMinimo

Boa tarde caros colegas..!!
To com uma dificuldade, e gostaria da ajuda de vocês....ou até mesmo do próprio mestre JPaulo, que é o desenvolvedor desse ModMinimo

Baixei esse exemplo do tópico minimos III, e tentei fazer algumas adaptações e não consegui...Se alguém puder me ajudar com explicação ou se não fosse pedir muito fazendo as próprias adaptações diretamente no exemplo anexado a este tópico...

Esse exemplo busca através de uma consulta o valor mínimo entre 5 campos.....

1ª necessidade de adaptação: Se eu digitar um valor no campo 2 ele me retorna esse único valor como sendo o mínimo, mesmo que outros campos não estejam preenchidos.....é isso que preciso que aconteça com os outros campos, ou seja, se eu digitar apenas um valor no campo 1, ou no campo 3, ou no campo4, ou no campo5 ele não retorna nada....

2ª necessidade de adaptação: Para que ele faça comparação obrigatoriamente o campo 2 tem que estar preenchido, ou seja, ele compara apenas o campo2 com campo 1, ou campo2 com campo 3, campo 2 com campo 4, campo 2 campo5, ou até mesmo todos os campos preenchidos.....Porém ele não compara isoladamente o campo 1 com campo 3, ou campo 1 com campo4, ou campo 1 com campo 5......Eu precisava que ele fizesse essa comparação isolada, mesmo o campo 2 não estivesse preenchido...link do exemplo minimoIII

Boa tarde e bem-vindo ao fórum

Leia e respeite as regras. Eliminei-lhe a duplicação desta dúvida, que colocou junto a outro tema

Sobre a sua dúvida, sem dados é difícil trabalhar

Alexandre Neves....me desculpe pela falta de atenção....obrigado pela gentileza....e segue modulo anexo

Boa noite
Veja se lhe serve (não testei)

Código:

Function Menor5Campos(Optional Valor1, Optional Valor2, Optional Valor3, Optional Valor4, Optional Valor5) As Single
    ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    '  código criado por Alexandre Neves, do Fórum MaximoAccess  '
    ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

    If IsMissing(Valor1) = False Then Menor5Campos = Valor1
    If IsMissing(Valor2) = False Then
        If Valor2 < Menor5Campos Then Menor5Campos = Valor2
    End If
    If IsMissing(Valor3) = False Then
        If Valor3 < Menor5Campos Then Menor5Campos = Valor3
    End If
    If IsMissing(Valor4) = False Then
        If Valor4 < Menor5Campos Then Menor5Campos = Valor4
    End If
    If IsMissing(Valor5) = False Then
        If Valor5 < Menor5Campos Then Menor5Campos = Valor5
    End If
End Function


Alexandre....
obrigado pelo retorno...
Infelizmente...não funcionou...Eu adaptei seu código ao módulo...porém ele apenas inverteu o que acontecia no campo2, e passou a funcionar no campo1, ou seja, o campo1 retorna se estiver só ele preenchido e faz comparações com com qualquer outro campo...Demais campos não retornam isoladamente e só fazem comparações se o campo1 estiver preenchido...

Código:

Function Menor5Campos(Optional Valor1, Optional Valor2, Optional Valor3, Optional Valor4, Optional Valor5) As Variant
    ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    '  código criado por Alexandre Neves, do Fórum MaximoAccess  '
    ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    Dim bolIniciado As Boolean
   
    If Not (IsMissing(Valor1) Or IsNull(Valor1)) Then Menor5Campos = Valor1: bolIniciado = True
   
    If Not (IsMissing(Valor2) Or IsNull(Valor2)) Then
        If bolIniciado Then
            If Valor2 < Menor5Campos Then Menor5Campos = Valor2
        Else
            Menor5Campos = Valor2
            bolIniciado = True
        End If
    End If
   
    If Not (IsMissing(Valor3) Or IsNull(Valor3)) Then
        If bolIniciado Then
            If Valor3 < Menor5Campos Then Menor5Campos = Valor3
        Else
            Menor5Campos = Valor3
            bolIniciado = True
        End If
    End If
   
    If Not (IsMissing(Valor4) Or IsNull(Valor4)) Then
        If bolIniciado Then
            If Valor4 < Menor5Campos Then Menor5Campos = Valor4
        Else
            Menor5Campos = Valor4
            bolIniciado = True
        End If
    End If
       
    If Not (IsMissing(Valor5) Or IsNull(Valor5)) Then
        If bolIniciado Then
            If Valor5 < Menor5Campos Then Menor5Campos = Valor5
        Else
            Menor5Campos = Valor5
            bolIniciado = True
        End If
    End If
   
End Function


Alexandre...!!!

Parabéns....ficou perfeito...eu to sem palavras pra te agradecer e elogiar o seu conhecimento...!!!
Muito obrigado mesmo...!!!