[Resolvido]O menor tempo

Boas
Estou a fazer uma tabela para registar tempos de uma corrida e pretendo que no formulario apareça o menor tempo ou que numa consulta dê o menor tempo de cada atleta.

Cumps

Boas amigo, envie-nos o bd para que possamos ver isto pra ti.

Harysoh@hotmail.com

Cumprimentos

O menor tempo por volta? Se volta 1 ou 2 ou 3 ou 4 etc?

Cumprimentos.

Atleta    Melhor Tempo     Volta 1      Volta 2      Volta 3      Volta 4      Volta 5    Volta 6
425               5,3                7,2           6,2          X5,3X             6           7,1
252               5,7                6,9             7             6,2          X5,7X           6

Exacto. Consoante o tempo das voltas no “melhor tempo” surge a volta dado com menos tempo por esse atleta.

Em um módulo cole:

Public Function MenorValorCampo(X, Campo1 As Double, Campo2, Campo3, Campo4, Campo5, Campo6, Campo7, Campo8, Campo9, Campo10) As Double
Dim dblValor        As Double
Dim y               As Byte
Dim dblCampo        As Double

For y = 1 To X
Select Case y
    Case 1
        dblCampo = Nz(Campo1, 0)
        If CDbl(dblCampo) < dblValor Or Nz(Campo1, 0) <> 0 Then
            dblValor = Campo1
        End If
    Case 2
        dblCampo = Nz(Campo2, 0)
        If CDbl(dblCampo) < dblValor And dblCampo <> 0 Then
            dblValor = Campo2
        End If
    Case 3
        dblCampo = Nz(Campo3, 0)
        If CDbl(dblCampo) < dblValor And dblCampo <> 0 Then
            dblValor = Campo3
        End If
    Case 4
        dblCampo = Nz(Campo4, 0)
        If CDbl(dblCampo) < dblValor And dblCampo <> 0 Then
            dblValor = Campo4
        End If
    Case 5
        dblCampo = Nz(Campo5, 0)
        If CDbl(dblCampo) < dblValor And dblCampo <> 0 Then
        MsgBox Nz(Campo5, 0)
            dblValor = Campo5
        End If
    Case 6
        dblCampo = Nz(Campo6, 0)
        If CDbl(dblCampo) < dblValor And dblCampo <> 0 Then
            dblValor = Campo6
        End If
    Case 7
        dblCampo = Nz(Campo7, 0)
        If CDbl(dblCampo) < dblValor And dblCampo <> 0 Then
            dblValor = Campo7
        End If
    Case 8
        dblCampo = Nz(Campo8, 0)
        If CDbl(Nz(Campo8, 0)) < dblValor And dblCampo <> 0 Then
            dblValor = Campo6
        End If
    Case 9
        dblCampo = Nz(Campo9, 0)
        If CDbl(dblCampo) < dblValor And dblCampo <> 0 Then
            dblValor = Campo9
        End If
    Case 10
        dblCampo = Nz(Campo10, 0)
        If CDbl(dblCampo) < dblValor And dblCampo <> 0 Then
            dblValor = Campo10
        End If
End Select
Next y
MenorValorCampo = dblValor
End Function

Em uma consulta em campo desacoplado:

Menor Tempo: MenorValorCampo(10;[Volta 1];[Volta 2];[Volta 3];[Volta 4];[Volta 5];[Volta 6];[Volta 7];[Volta 8];[Volta 9];[Volta 10])


Cumprimentos.

Obrigado HARYSOHN.
Está a funcionar.

Só uma questão. Estou aplicar isto também para provas e se falhar a primeira provar vai dar erro no campo do melhor tempo.
Há maneira de resolver?

Não compreendi, forneça-nos mais detalhes.

Cumprimentos.

Está resolvido.

Obrigado pela atenção HARYSOHN.

O Fórum agradece o Retorno.

Estou com outro problema.
Estou a usar o código dado pelo HARYSOHN noutra bd para corridas de picanços.
Numa corrida vão dois concorrentes, noutra pode ir um desses com outro e assim sucessivamente, vão correndo sempre dois que podem ser da mesma classe ou de classes de veículos diferentes.
Resumindo, vão correndo uns contra os outros, mas o que interessa é o que faz menor tempo por classes.
E já matei a cabeça, fiz diversas consultas, formulários e subformulários e nada.
O que pretendo é que a bd dê os tempos das corridas por piloto / classe de veículo e que diga qual o menor tempo.

Abraço.

não compreendei perfeitamente.. seja mais claro..
se possível poste um exemplo textual do resultado esperado para que eu possa ver aqui.

Cumprimentos.

Segue o exemplo.

Explique o PDF que enviou e segundo o mesmo cite o que deseja de forma o mais clara possível.

Cumprimentos.

Olá HARYSOHN
Espero que agora esteja mais explicito.

up

Estou a ver a bd .. mas ainda não compreendi.. Veja se consegue me explicar em relação ao PDF o que deseja.

Cumprimentos.

Resolvido.
Obrigado pela ajuda