[Resolvido]Erro na Consulta de Stock

boas
reparem na imagem... tenho esta Consulta que esta a dar uma "bug" ou seja imagem se tiver um Produto N com 10 Quantidades, se tirar 5 ficam 5, mas se tirar 11 Soma na Quantidade de Entrada... porque ?



reparem foi o que aconteceu com o Ice ( primeiro Item )




- Help ! -

Olá...

Não seria erro de relacionamento?

Retire o relacionamento TabCadEntradas da TabCadSaidas
Relacione a TabCadSaidas com TabCadProdutos

Aguardo

boas

Olá...

Se você tem controle de entrada e controle de saida em tabelas separadas, o mais fácil seria contabilizar o saldo através de consulta União.

Anexe sua base de dados só com os componentes envolvidos

Aguardo

Olá...

Como andas este assunto, Já resolveu?

Aguardo

Não... irei voltar a carga amanhã - 18/05/2017. Devolvo para você o sugerido para o tal Help ! Obrigado.

Olá...

Conseguiu resolver?

Continuamos aguardando o seu retorno

Abraços

Olá..

Desculpe a demora em responder, muita correria

Segue o exemplo alterado, Sugiro que não use o cadastro atual de suas tabelas com as entradas e saidas.
As de entradas principalmente tem muitos cadastros repetidos e isto dificulta a geração de estoque corretamente.

faça teste Cadastrando novas entradas e saidas e veja se esta de acordo

Aguardo

Abraços

boas
Celso Roberto ficou operacional ! Obrigado - valeu... Obrigado.

Olá...

Obrigado pelo retorno.
O fórum agradece

Abraços

boas Celso
Desculpe mas ainda em relação a este tópico... após importar :
- qryMovimentacao
- qryStockAtual
Eliminando todos os Registos da tabela Entradas ao clicar no formLista, ou mesmo nas Consultas acima descritas da a seguinte mensagem :
Valor do Parâmetro
IDtabCadProdutos
Como ultrapassar ?! ? Obrigado... Desculpe ! Abraço

Aproveitando a importação e deixo a parte do bd que esta dando o tal erro - Valor do Parametro ( Neste bd deixei mesmo com as Entradas todas - mas já experimentei apagar todas e da também o erro )
Agradeço ajuda... Obrigado.

Olá...

Este problema é por motivos de nomes de campos que não existe em alguma tabela.

Corrija o nome do campo da tabela tabCadSaidas de:
IDCadProdutos Para IDtabCadProdutos

Volto a dizer para que delete todos os movimentos da tabela tabCadEntradas por motivvo de inconsistência de dados, isto esta deixando a consulta lenta e o estoque gerado não é correto por motivo de muitos registros repetidos e faltando informações nos campos.

Abraços

Certo... efetuei essa alteração. E sim amigo eliminei todas as entradas... mas continua a dar a mensagem do Valor de Parâmetro.
Você fala em - Este problema é por motivos de nomes de campos que não existe em alguma tabela. - mas só nestas tabelas que mexem com Entrada e Saída ? certo ?

Olá...

O problema de nomes de campos errado esta somente na tabela tabCadSaidas, mas com esta correção é necessário corrigir também o frmCadDSaida .

Primeiro: corrija o Select na fonte de registro do form para este Select: Copie e cole

Código:

SELECT tabCadSaidas.IDCadSaidas, tabCadSaidas.DtData, tabCadSaidas.IDtabCadProdutos, tabCadProdutos.[Produto(Nome)], tabCadSaidas.Lotes, tabCadSaidas.Validade, tabCadSaidas.Unidade, tabCadSaidas.Quantidade, tabCadSaidas.PrecoSemIVA, tabCadSaidas.IDtabCadDocumentosSaidaStock, tabCadProdutos.IVAProdutos, tabCadSaidas.Stock, [PrecoSemIVA]*[Quantidade] AS SubTotal FROM tabCadProdutos INNER JOIN (tabCadDocumentoSaidaSaude INNER JOIN tabCadSaidas ON tabCadDocumentoSaidaSaude.IDtabCadCustosUTSaude = tabCadSaidas.IDtabCadDocumentosSaidaStock) ON tabCadProdutos.IDtabCadProdutos = tabCadSaidas.[IDtabCadProdutos];

Segundo: Na fonte de Controle do campo data corrija para para controle correto que é DtData e o nome do campo também para o mesmo nome.

e no campo ID produto tambem corrija a fonte de controle para IDtabCadProdutos

Sempre se atente para quando alterar nomes de campos nas tabelas corrija tambem nos forms e nos codigos VBA envolvidos, por isto altere este codigo do evento ao receber foco do campo IDtabCadProdutos
para este:

Código:

Private Sub IDtabCadProdutos_GotFocus()
 If IsNull(Me.DtData) Or Me.DtData.Value = "" Then
        MsgBox "Campo obrigatório...", vbCritical
        Me.Data.SetFocus
        Else
        DoCmd.OpenForm "frmLista"
    End If
End Sub

Aguardo