[Resolvido]Numa consulta obter menor valor de várias colunas

bom dia a todos !

esta é minha primeira abordagem no site.
estou a procurar criar uma consulta em que obtenha o menor valor de várias colunas:

campoprincipal campo1 campo2 campo3 campo4
1 1 2 3 7
2 0 7 5 0
3 2 2 2 6
4 3 4 5 5
5 7 7 2 5
6 3 4 6 3


Esse seria o resultado a obter:
campoprincipal campo1
1 1
2 0
3 2
4 3
5 2
6 3
eEstou a iniciar no acess, tenho procurado esclarecer minha dúvidas apenas por consulta no site, mas dessa vez estou com dificuldades em avançar.

podem me ajudar ?
Obrigado
Marco Sousa
Marsnext

Ola seja bem vindo ao forum;

Cole esta função num modulo novo e salve.

Public Function MenorValorVariasColunas(arg1, arg2, arg3, arg4, arg5) As Variant
'By JPaulo ® Maximo Access
'Função obter valores minimos em 5 colunas
'Chamar a função numa consulta;
'Resultado:MenorValorVariasColunas(Campo1,Campo2,Campo3,Campo4,Campo5)
    Dim intMin As Variant
    
    If arg1 < arg2 Then
        intMin = arg1
    Else
        intMin = arg2
    End If
    If Not IsMissing(arg3) Then
        If arg3 < intMin Then
            intMin = arg3
        End If
    End If
    
    If Not IsMissing(arg4) Then
        If arg4 < intMin Then
            intMin = arg4
        End If
    End If
    
    If Not IsMissing(arg5) Then
        If arg5 < intMin Then
            intMin = arg5
        End If
    End If
        
    MenorValorVariasColunas = intMin
End Function

Numa coluna nova na sua consulta:

Resultado: MenorValorVariasColunas([CampoPrincipal];[Campo1];[Campo2];[Campo3];[Campo4])

Veja o exemplo;

Não tinha entendido que o CampoPrincipal seria o ID da tabela;

Correção, para campos opcionais no código;

Public Function MenorValorVariasColunas(arg1, Optional arg2, Optional arg3, Optional arg4, Optional arg5) As Variant
'By JPaulo ® Maximo Access
'Função obter valores minimos em 5 colunas ou menos, sendo que apatir da segunda é opcional
'Chamar a função numa consulta;
'Resultado:MenorValorVariasColunas(Campo1,Campo2,Campo3,Campo4,Campo5)
    Dim intMin As Variant
    
    If arg1 < arg2 Then
        intMin = arg1
    Else
        intMin = arg2
    End If
    If Not IsMissing(arg3) Then
        If arg3 < intMin Then
            intMin = arg3
        End If
    End If
    
    If Not IsMissing(arg4) Then
        If arg4 < intMin Then
            intMin = arg4
        End If
    End If
    
    If Not IsMissing(arg5) Then
        If arg5 < intMin Then
            intMin = arg5
        End If
    End If
        
    MenorValorVariasColunas = intMin
End Function

Fantástico
Agora parece bem mais fácil !

Vou testar no meu aplicativo, depois retorno.
Obrigado JPaulo

Ok, aguardamos o seu retorno.

adaptei o módulo e a função na consulta aos registos do meu aplicativo e funciona na perfeição!

JPaulo obrigado pela preciosa ajuda.

Marsnext
até breve

Obrigado pelo retorno o forum agradece.