Ajuda com rotina de verificação

Boa tarde, mestres!

Venho com mais uma dúvida cabeluda!
Bom, é o seguinte:
Tenho um formulário e um subformulário que quando é aberto, clicando duas vezes em um campo de um outro formulário, pega os dados de uma consulta.
O Formulário gera um novo pedido e recebe o código do cliente e o código do vendedor.
O subformulário pega os dados dos produtos que estão em uma outra tabela através de uma consulta de acréscimo, que insere os dados na tabela original e este subformulário dá um requery para exibir os produtos na tela.
(É um sistema de pedido online que criei aqui na empresa com uma página PHP inserindo dados em uma tabela)

O formulário tem um botão para imprimir o pedido, mas com o seguinte critério:
Se o valor do produto inserido for menor do que o preço de tabela deste produto, ele não deixa imprimir (estes dados estão no subformulário).
Pois bem, isso só funciona no se este erro estiver no primeiro registro. Se estiver a partir do segundo em diante, ele deixa passar.

Queria saber como faço para percorrer os registros desse pedido e verificar todos.
Lembrando que o formulário trabalha com uma tabela e o subformulário trabalha com outra.

Desde já agradeço a ajuda de todos!

Boa tarde,
Crie um recordset com os registos pretendidos e faça a verificação, percorrendo todos os registos do recordset

Pois é, Alexandre...
Não sei como fazer isso...

Só com a descrição, só dá para descrever

Segue um exemplo de como estou fazendo, mas não estou conseguindo:

Código:

Dim ValMenor
Dim rst As Recordset
Set rst = Me.Recordset
'rst.MoveFirst


    'If Forms![PEDIDO-Teste]![detalhepedi subformulário]![Preço] < PTabela Then
    If ValMenor = "SELECT Detalhe.Codigo, [Valor]<[PrecoTabela] AS ValorMenor, Detalhe.Ped FROM Detalhe WHERE (((Detalhe.Ped)=[Forms]![PEDIDO]-[Teste]![Pedido]))" Then
 
    MsgBox "Insira um valor maior ou igual a tabela de preço", vbOKOnly, "Atenção!"
    'Forms![PEDIDO-Teste]![detalhepedi subformulário]![Preço] = 0

Do While Not rst.EOF
With rst
.MoveNext
End With
Loop
Set rst = Nothing

Exit Sub
End If

Boa tarde,
Não percebi o alcance do código que tem, até me parece que não funciona nem para um único preço, mas tente assim
Dim ValMenor as double
Dim rst As Recordset
Set rst = currentdb.openrecordset("SELECT PrecoTabela FROM Detalhe WHERE Ped=" & [Forms]![PEDIDO]-[Teste]![Pedido])
ValMenor =-1
do while not rst.eof
if rst(0)rst.movenext
Loop
Set rst = Nothing

if Forms![PEDIDO-Teste]![detalhepedi subformulário]![Preço] MsgBox "Insira um valor maior ou igual a tabela de preço", vbOKOnly, "Atenção!"
Forms![PEDIDO-Teste]![detalhepedi subformulário]![Preço] = 0
End If

Na verdade, Alexandre, ele não está indo para o registro de baixo do subformulário.
Ele fica somente no primeiro registro.

Boa tarde,
Se disponibilizar dados significativos para se testar...