[Resolvido]Actualizar positivamente um stock

Boas amigos mais uma vez

Estou tentando actualizar o stock, mas mais uma vez estou com dificuldades na aplicação do código.

Primeiro criei uma consulta de forma a poder actualizar lhe o stock (Chamei lhe EntradaStock), e posteriormente criei este código, mas está me faltando qualquer coisa...

Private Sub Quantidade_GotFocus()

Dim StrStock As Double
DoCmd.RunCommand acCmdSaveRecord

CurrentDb.Execute "UPDATE Material SET Material.Stock = [Stock]+" & Me.Quantidade & " WHERE CódigoInterno=" & Me.códigointerno & ";"
StrStock = DLookup("Stock", "Material", "CódigoInterno=" & Me.códigointerno)
CurrentDb.Execute "UPDATE Entrada_Material SET Stock = " & StrStock & " Where CódigoInterno=" & Me.códigointerno & ";"

End Sub

A minha DB para vocês verem tabelas e o formulário que criei

--> http://www.speedyshare.com/files/29803362/stock.mdb

Cumprimentos. E mais uma vez desde já agradeço muito !

Explique detalhadamente o que está a ocorrer de erro...
Qual o form? etc...

o form é o (entrada_Material), quero introduzir um valor no campo (Quantidade) e ele me actualize o campo Stock (soma o que introduzo ao que lá está guardado)na tabela Material, mas não está funcionando amigo !

veja o que fiz no formulário se concorda ..

Cumprimentos

Este form é para quando Compra do fornecedor e dá entrada no estoque?

Hoje não dá mais tempo para mim.. Mas amanha pela manhã vejo

Tenha uma ótima noite

Saudações

Exato amigo, é mesmo isso !

Muito obrigado !

Uma optima noite para si!

Cumprimentos

Abri o teu exemplo.. esta utilizando uma consulta do Access.. é perfeitamente possivel...

Atualmente prefiro em VBA deixando o BD mais limpo...
Aquele outro exemplo que resolvemos utiliza a consulta atualização porem em SQL-VBA

Fale qual o problema exatamente amigão

oi amigão.

O problema é que no form Entrada_Material depois de carregar no campo quantidade (depois de perder o focus) ele tá me dando um erro e não actualiza nada de nada :s

experimente entrar no form e acrescentar materia que vê logo o erro que ele aparece.

A consulta foi só um dos testes para ele tentar por ele a trabalhar

Obrigado amigão

Nuno Amigão presta atenção no que vou te explicar...

Para realizar um UPDATE em uma tabela... é necessário ter os campo da chave primária tanto na tabela quanto no Form!!!!

A chave primária é o Documento de Identidade de teu registro.. é ele que identifica o material...

Teu form está baseado na tabela Item Armazem... que não tem nada preenchido neste campo... Ele está vazio..
então o código não encontra um valor para realizar a comparação e gera este erro...

COmo voce vai compara um produto com o CódigoInterno = 10 na tabela com um registro em branco na no form????

Veja:

CurrentDb.Execute "UPDATE Material SET Material.Stock = [Stock]-" & Me.Quantidade & " WHERE CódigoInterno=" & Me.códigointerno & ";"

Aqui ele fala:

Olha consultinha metida a besta.. eu quero que voce atualize o produto XXX WHERE (Quando) o Código na tabela for igual ao Código no form!!!!

Se a consultinha não encontra o valor no campo no form... ai ela ri de voce e te mostra um belo do erro... e te responde:

Olha aqui Seu programador...:

Coomo é que voce quer que eu ache alguma coisa dentro de um campo sem Operador???

Sem chances.. toma-lhe Erro... rsrs


Saudações

voçê me fez rir muito agora

Vou tentar que ela não se ria mais espere um bocadinho

Agora.. defina teu projeto corretamente... Veja quem é quem....

Tabela Materiais é a tabela do Estoque...
Ao invés da tabela Item Armazem Nomei-e de TblEntrada... onde se registra a entrada do material...
AQo registrar a entrada do material é necessário especificar o código interno deste material para realizar o UPDATE na tabela Materiais...

No form de entrada voce pode ter um form semelhante aquele que lanca os produtos no form Factura.. Sakou!!!???
Ai lanca a entrada do produto na tblEntrada com seus dados completos... e realiza o Update (Atualização no Stock) na tblMateriais....

Veja e estude este exemplo:

http://maximoaccess.forumeiros.com/t3197-cadastro-de-produtos-e-alteracao-no-estoque


Saudações

Ou vai ou racho com o computador todo agora

Amigo pelo que entendi diz aqui que:

CurrentDb.Execute "UPDATE Material SET Material.Stock = [Stock]+" & Me.Quantidade & " WHERE CódigoInterno=" & Me.códigointerno & ";"

Na database atual ele vaai fazer o update ao campo Stock que se encontra na tabela Material, fazendo uma actualização positiva do mesmo com a adição da quantidade do formulário, correto ?

Onde os dois campos de identificação sejam iguais correto ?

O código que desenvolvi foi (já com as alterações) :



Private Sub id_stock_AfterUpdate()

Me!códigointerno = [id_stock].Column(0) -> Está a guardar no formulário o valor que vem da outra tabela, o id_principal
Me!Material = [id_stock].Column(1)
Me!StockActual = [id_stock].Column(2)

DoCmd.RunCommand acCmdSaveRecord

End Sub

Private Sub Quantidade_GotFocus()

Dim StrUpdate As Double


CurrentDb.Execute "UPDATE Material SET Material.Stock = [Stock]+" & Me.Quantidade & " WHERE CódigoInterno=" & Me.códigointerno & ";"
StrStock = DLookup("Stock", "Material", "CódigoInterno=" & Me.códigointerno)
CurrentDb.Execute "UPDATE Teste SET Stock = " & StrUpdate & " Where CódigoInterno=" & Me.códigointerno & ";"

End Sub

Amigão.. veremos isso amanha.. envie-me e-mail me lembrando, pois tenho estsdo muito aterefado...
Abraços

Está correta sua observação...

Para FOrm de Vendas o processo é o inverso [Stok] -
Sakou?

sim amigo percebi !

Mas mesmo assim devo estar fazendo algo errado não entendo é o quê :s

Eu vou colocar aqui a minha DB, para quando tiver alguma disponibilidade me dar uma olhada amigo

http://www.speedyshare.com/files/29826992/stock.mdb

Abraço

Consegui ahahahah

E com uma simples linha de código

"
Option Compare Database
Private Sub Quantidade_afterupdate()

CurrentDb.Execute "UPDATE Material SET Material.Stock = [Stock]+" & Me.Quantidade & " WHERE CódigoInterno=" & Me.códigointerno & ";"

End Sub
"

Para quem precisar !

Obrigado pela ajuda amigo !

Esse fórum só produz feras...

Bom trabalho e sucesso!