Verificação de saldo de todos os itens de 01 subfom

Pessoal, boa tarde!!

depois de algumas pesquisas pelo fórum e no próprio google e não conseguir realizar a contento o que preciso, solicito a ajudas dos caríssimos.

Sei que esse assunto já é bem difundido por aqui, mas já apanhei um pouco e preciso evoluir no meu projeto.

Tenho um Fom_venda com SubForm.

Preciso que ao clicar em um botão no formulário principal (Form_Venda) que percorra os itens do subform e verifique se """"todos"""" tem saldo suficiente na tabela PRODUTOS para efetuar a baixa.

Caso algum dos produtos não tenha saldo , a ação deve ser cancelada e emitir uma mensagem ao usuário.

"O produtos abaixo não tem saldo suficiente"

Produto A
Produto B
Produto c.........

Acredito que os produtos sem saldo devem ser armazenados numa variável e para posteriormente serem apresentados ao usuários via msgbox.
Entendo o conceito de variável mais estou tendo dificuldade para conseguir implantar por limitação de conhecimento.
Não sei o melhor caminho para fazer essa tratativa (se por recordset....dlookup ou outro) por isso peço ajuda aos amigos.

Desde já agradeço.

Apapta ai


ao clicar de um botão


Dim rst As Recordset
Set rst = Me.seusubfrm.Form.Recordset
rst.MoveFirst
Do While Not rst.EOF
With rst

Me.emestoque = DLookup("Estoque", "tbentrada", "codproduto=" & "produto") 'funciona

If Me.emestoque < Me.qnt Then
Me.baixa = False
Me.diferenca = Me.qnt - Me.emestoque
Else
If Me.emestoque >= Me.qnt Then
Me.baixa = True
End If
End If
.MoveNext
End With
Loop
Set rst = Nothing
MsgBox "alguma baixas tera que ser feito manualmente"
Me.Form.Requery
End Sub




qualquer coisa pota seu banco de dados

Meu Nobre Amigo Scandinavo

Não consegui ainda visualizar como aplicar da forma acima mencionada.

Vou tentar explicar dentro do seu exemplo e no que tentei adaptar para tentar explanar melhor.

Private Sub Comando30_Click()

Dim rst As Recordset
Set rst = Me.FRM_SUB_DETALHE_VENDA.Form.Recordset
rst.MoveFirst
Do While Not rst.EOF
With rst

EmEstoque = DLookup("EmEstoqueD001", "PRODUTOS", "codprd= '" & rst![CodigoProduto] & "'")

If EmEstoque >= rst![Quantidade] Then

'Então a baixa para esse produto deverá acontecer se os demais também tiverem saldo suficiente

If EmEstoque < rst![Quantidade] Then

' Então guarda numa variável, ou de alguma outra forma, a "descrição do Produto" para depois da verificação total (de todos os produtos), informar ao usuário quais não tem saldo

End If
End If
.MoveNext
End With
Loop

'Ao sair do loop emitir uma mensagem ao usuário e informar que os produtos x,y,z não possuem saldo sufuciente.
'Portanto a ação de baixa será cancelada até regularização.


Set rst = Nothing
Me.Form.Requery
End Sub

Ou seja
da baixa em todos os produtos ou em nenhum.

Exatamente amigo.

Gostaria que se fosse possível percorresse todos os itens afim de informar o usuário quais não tem saldo suficiente

Veja ai

Será que nosso amigo esta vivo?



Eu estou abandonando o post.