[Resolvido]Ao selecionar um produto, inserir no form o fornecedor com menor cotação

Olá pessoal
Faz tempo que passei por aqui solucionando minhas duvidas, mas o bom filho a casa volta.

Estou fazendo manutenção em um sistema de Oticas, já em funcionamento e agora me fizeram uma solicitação quem não estou conseguindo solucionar

No formulario de cadastro de pedido para confecção da lente do cliente, no campo Lente Solicitada (combo): ao selecionar a lente desejada, o programa inserisse automaticamente em um campo no formulario o fornecedor com menor preço

Tablente:
CodLente - autonum - chave,
Nomelente - texto

TabLaboratorio:
CodLab - autonum - chave,
Codlente - numero
NomeLab - texto,
ValorServiço - moeda

Form: FrmPedidoLente:
NomeCliente
DataPedido
Vendedor
LenteSolicitada:(selecionar a lente em uma combo), inserir o laboratorio com menor preço no form

Observação: as Tabelas: Tablente e Tablaboratrio estão relacionadas e a lentes estão cadastradas com os respectivos laboratorios e seus preços, ou seja, para cada lente, terei 3 laboratorios (são sempre os mesmo, só mudando os valores)

Boa noite.
Se for trabalhar com 4 campos de Preços utilize este código na consulta:

MenorValor: fncMenorValor([Lab01];[Lab02];[Lab03];[Lab04])

Em seguida cole este código em um módulo qualquer ou crie um:

Public Function fncMenorValor(c1, c2, c3, c4)
Dim k

If c1 <= Nz(c2) Then If (c1) <= (c3) Then If c1 <= c4 Then k = Format(c1, "##,##0.00")
If c2 <= Nz(c1) Then If (c2) <= (c3) Then If c2 <= c4 Then k = Format(c2, "##,##0.00")
If c3 <= Nz(c1) Then If (c3) <= (c2) Then If c3 <= c4 Then k = Format(c3, "##,##0.00")
If c4 <= Nz(c1) Then If (c4) <= (c2) Then If c4 <= c3 Then k = Format(c4, "##,##0.00")
fncMenorValor = k

End Function


Agora se for trabalhar com um único campo vindo da tabela. Coloque na consulta no campo Total: Mín

Espero que ajude.

Vanderlei, conseguiu resolver?

Aguardamos...

resolvido