[Resolvido]Formulário, relação e quantidade

Bom dia,

Este é meu primeiro projeto em access e estou com alguns problemas.
Basicamente esse é um controle de estoque pra loja da minha irmã.
Temos a tabela e formulário: Peças onde não tem nenhum segredo
Temos a tabela e formulário: Máquinas (tabela usada em todas as outras)

E temos a tabela Retirada, onde aparecem os problemas
Primeiro, na retirada oq eu preciso, preciso pegar o nome da peça (em uma lista, isso tah fazendo), e com o nome jah colocar o preço dela em "valor" (não consigo fazer isso d jeito algum), no formulário retirada tem alguns campos q servem soh pra este relatório, como Funcionario q fez a retirada, data, etc
Outro problema é que, quando eu criasse registro dessa retirada, ele tirasse a quantidade usada na retirada da tabela Peças
Eu tentei fazer algumas relações mas eu fiquei meio perdido

Poderiam, por favor, me ajudar??

Desde já agradeço!!

Luis

Aqui está teu aplicativo modificado

Veja a caixa de combinação do formulário Retirada

Estude sobre caixa de combinação, veja as propriedades dela

Veja o código que coloquei na propriedade Após Atualizar dela.

Apenas fiz para o campo Valor, tem outros campos que devem

ser preenchidos ao clica em um item dessa combo.

Deixei isso pra você fazer e aprender

[ ]'s

Boa tarde, Noobezinho

O código que você colocou na caixa de combinação foi :

Private Sub cbo_Peças_AfterUpdate()
Me.Valor = Me.cbo_Peças.Column(2)
End Sub

Oq entendi foi q o "Me" funciona tipo um "this" em java, certo?
Então fica Me.Valor (o valor do formulário 'Retirada') pega o valor(nao sei aonde tah escrito q pega valor, isso que não entendi. Ele pega o campo de mesmo nome intuitivamente?) da coluna 2(pq a coluna um eh o titulo da caixa de combinação) de cbo_Peças(caixa de combinação das peças)

De qualquer maneira eu consegui usar, mesmo sem entender perfeitamente.
Mas a outra parte da dúvida, é a que mais me tira o sono, haahhaha
Como eu faço pra quando eu salvar o formulário retirada ele tire a quantidade que coloquei na retirada da determinada peça na tabela de peças?
Eu tentei adicionar no macro do botão de salvar, mas eu nao consigo colocar código lah (soh algumas funções prontas) e na verdade eu não sei 100% como chamar em um formulário a tabela d peças.

De qualquer maneira, muito obrigado!

Não entendo de java

"Me" refere-se ao próprio formulário em que se esta usando, então

Me.cbo_Peças.Column(2)

Que dizer, dado da 2ª coluna da combobox cbo_Peças, deste formulário.

As colunas de caixas de combinação, caixa de listagem , conta-se a partir do 0.

E isso tem relação com a consulta que existe na propriedade origem da linha.

Como disse, veja a ajuda pra pode entender.

Somente se baixa a quantidade do estoque, na conclusão da venda.

Assim, evita-se de se  fazer mais uma operação, quando da desistência da mesma.

Procure aqui no fórum (Menu busca ali encima) por venda, estoque..

pois existem vários exemplos.

[ ]'s

Seguinte, soh falta essa parte, os exemplos q eu vejo estão prontos para aquela situação e quando eu tento usar no meu, ele trava
O botão salvar, no "click" tah uma macro de salvar, entao nao consigo colocar código ali, portanto coloquei "ao liberar o mouse", q no fim acaba sendo a mesma coisa
Segue o trecho pra ver se alguma alma caridosa me diga onde está errado

Código:

Private Sub Comando407_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim db As Database
Dim rsPeças As DAO.Recordset
Set db = CurrentDb()
Set rsPeças = db.OpenRecordset("SELECT * FROM Peças")
rsPeças("Quantidade") = rsPeças("Quantidade") - Me.Quantidade
db.Close
rs.Close
End Sub

Comando407 -> botão de salvar registro
Peças -> tabela de peças

O botão de salvar registro no formulário "Formulário Retirada" que salva na tabela "Retirada"

Para tirar a macro do evento ao clicar do botão de comando, selecione e tecle del.
O modo mais fácil de selecionar, é clicar na linha acima ou abaixo da linha que quer selecionar
e depois ir para a linha usando a seta.

Experimente o código abaixo:

Private Sub Comando407_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim db As Database
Dim rsPeças As DAO.Recordset
Set db = CurrentDb()
Set rsPeças = db.OpenRecordset("SELECT * FROM Peças")

rsPeças.index = "PrimaryKey"

rsPeças.Seek  "=", me.Nomedacaixa de texto com o código do produto , ele deve ser a chave primária.

rsPeças.Edit ' abre o modo de edição da tabela
rsPeças("Quantidade") = rsPeças("Quantidade") - Me.Quantidade
rsPeças.update 'grava o dado na tabela.
db.Close
Set rsPeças=Nothing
End Sub

Opaaa!
Vlw, noobezinho!

Agora deu certo aqui, tava com problemas em percorrer a tabela, então fiz assim, achei mais fácil

Código:

Private Sub Comando407_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim db As Database
Dim rsPeças As DAO.Recordset
Set db = CurrentDb()
Set rsPeças = db.OpenRecordset("SELECT Peças.Código, Peças.Quantidade FROM Peças")
rsPeças.Edit
rsPeças("Quantidade") = rsPeças("Quantidade") - Me.Quantidade
rsPeças.Update
db.Close
Set rsPeças = Nothing
End Sub

Muito obrigado.
Gostei muito da disponibilidade que teve em me ajudar.
Quando melhorar as skills em access venho ajudar a galera tb
[]s

Somente um alerta

Veja se as quantidades estão sendo alteradas nos registros corretamente.

Isto porque o código passado, procura pelo código do produto (Seek) e depois libera para alterar.

Boa sorte!