[Resolvido]Relatórios - Preencher campo não acoplado automático

Bom dia Todos!

Bom pessoal, mais uma vez venho pedir socorro a vocês. Tem um Relatório que lista para mim todos os produtos cadastrados no sistema. Este relatório é alimentado pela tabela "Produtos" e contém os campos: PRODUTO, QTD. ESTOQUE, ESTOQUE MÍNIMO, VALOR E ESTADO DO PRODUTO (Campo não acoplado).

Dúvida:
Necessito que quando o usuário abra o Relatório e algum produto que esteja com a estoque abaixo da quantidade mínima registrada na tabela, exiba a mensagem no campo não acoplado (ESTADO DO PRODUTO) a mensagem: Produto abaixo do mínimo e quando o estoque estiver acima da quantidade mínima exiba a mensagem (Estoque acima do mínimo).
Ex.:

PRODUTO VALOR ESTOQUE ESTOQUE MÍNIMO ESTADO DO PRODUTO
Arroz R$ 5,50 20 10 Estoque acima do mínimo
Feijão R$ 3,00 5 10 Estoque abaixo do mínimo

Desde já agradeço pela atenção de todos!

Talvez usando o DCount e uma variável para representar os produtos...

Não entendi amigo... teria como ser pouco mais claro... tenho pouco entendimento access.

Obrigado pela ajuda!

Todas as veses que abrir seu relatório, uma função contaria os produtos e informaria que há alguns produto com estoque mínimo...
Para isso sugiro usar o DCount, mas sem dúvidas há outras formas... Infelizmente, agora estou sem tempo para elaborar algo... Mas como demos um Up no tópico, pode ser alguém te auxilie, inclusive usando outros métodos...

Marx
Como o Marcelo está sem tempo, vou tentar ajudar.

O Código que você pode usar é:

If Dcount("*","Produtos","QTD.ESTOQUE <= Produtos.ESTOQUE MINIMO then
msgbox "Quantidade do estoque está no limite mínimo",vbinformation, "Estoque mínimo"
'>>AQUI você pode abrir um formulário com todos os produtos com o estoque mínimo.

Endif

'A origem de registro desse formulário seria assim, respeitando-se os nomes e campos existentes no teu aplicativo:
SELECT tblProdutos.IDProduto, tblProdutos.Descrição, tblProdutos.Estoque, tblProdutos.EstMinimo
FROM tblProdutos
WHERE (((tblProdutos.Estoque)<=[EstMinimo]) AND ((tblProdutos.EstMinimo)<>0) AND ((tblProdutos.[Desativado])=No))
ORDER BY tblProdutos.Descrição;

Abraços

Opa Belém!

Primeiramente obrigado pela sua atenção!

O código que você descreve é para o formulário. Na verdade tal mensagem deve aparecer na na caixa não acoplada do Relatório que lista todos os produtos. Como poderá conferir na descrição da dúvida. Haveria como fazer isto?

Desde já obrigado.

Sim

O código está ai.

Agora é só você tentar usá-lo, justamente na caixa Estado do produto
'Dica: Nunca use espaço em nomes de campos e controles
If Dcount("*","Produtos","QTD.ESTOQUE < Me.[ESTOQUE MINIMO] then
Me.EstadoDoProduto.text = "Estoque abaixo do mínimo"
Endif


O mesmo serve para quando o estoque estiver acima.

Esse é o caminho das pedras.

Abraços

Opa boa tarde!!

Tem essa forma também! Onde:

ESTOQUE, ESTOQUEMAXIMO E ESTOQUEMINO são os campos de sua tabela, e STATUS é o campo não vinculado...


Private Sub Detalhe_Format(Cancel As Integer, FormatCount As Integer)

If [ESTOQUE] > [ESTOQUEMAXIMO] Then

[STATUS] = "ESTOQUE ALEM DO PLANEJADO"

ElseIf [ESTOQUE] < [ESTOQUEMINIMO] Then

[STATUS] = "ESTOQUE ABAIXO DO PLANEJADO"

End If

End Sub

--------------

Espero que ajude...

Sds,


Pablo

Valeu Pessoal, deu certo!
Obrigado a todos pelo pronto-atendimento!

Só faltou o resolvido!!

Ok! Obrigado a todos mais uma vez.