[Resolvido]Kit de produtos

Boa noite,

Preciso de uma ajuda, o seguinte estou montando um bd, sendo que neste bd tem os seguintes produtos:

Exem.
10 parafusos
20 arruelas
20 buchas

Tem alguma maneira de quando eu der saida do produto que ao digitar 1 parafuso, ja baixar 2 arruelas e 2 buchas, do estoque,se sim, como?
ou se tem como fazer por kit, e como fazer.

Olá! Não sei como está a estrutura do seu bd, mas genericamente falando, você poderia fazer algo assim no evento de algum campo ou botão:

If Me.NomeCampoDoProduto = "Parafuso" Then

Dim rs As Database
Set rs = CurrentDb.OpenRecordset("NomeDaTabela")

rs.Edit

rs!NomeDoCampoDaQtdNaTabela = rs!NomeDoCampoDaQtdNaTabela - (Me.NomeDoCampoQtdDoProdutoNoForm * 2)

rs.Close

Set rs = Nothing

Tem que adaptar para o seu caso.

Tudo bem, se percebi quer que ao digitar os parafusos o resto seja a dobrar certo.

Por isso no campo parafusos ficará normal e nos outros 2 campos em origem do controlo em (propriedades) vai por o seguinte:

=([parafusos]*2) em anexo envio um exemplo .ok
Qualquer coisa avisa

Pelas respostas dos colegas já vi que não era isto que queria, tentei ajudar

Boa noite hunning.. supondo que seu sistema ja faça a baixa do estoque com relacao ao parafuso... e supondo que escolha o produto em uma combo no subform...


Ao atualizar a combo do subform atualizaria os dois registros na tabela produtos diminuindo o valor 2 do campo quantidade:

Private Sub SuaCombo_AfterUpdate()
DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE TblCadProd Set [TblCadProd].[Estoque] = [TblCadProd].[Estoque]- 2 WHERE [TblCadProd].[Produto] = ID do Produto"
DoCmd.SetWarnings True
End Sub


Algo assim

Cumprimentos

Opa Mestre dos Magos.. nāo perceber que estavas a responder... boa noite!

Boa noite e boas ajudas aqui ao pessoal que é bem preciso de pessoal assim.

Toda ajuda e idéia é sempre bem vinda Videosom... por isso o fórum tem sido sempre bem sucedido em ajudar.

Ficamos todos gratos pela vossa participaçāo.

Boa Noite pessoal, obrigado pelas respostas.
Harysohn será que esta formula que você postou não hora que este parafuso (ja for casado com um tipo de arruela) e for casar com outros tipo de arruela não vai dar problema, não teria como nósixa criarmos um kit, ai quando dava baixa neste kit ele dava baixa das peças que estão neste kit.

há possibilidade sim.. mas em caso de arruelas diferente e porcas diferentes.. tem que se especificar para cada parafuso a arruela correspondente...

teriamos que dizer a ele se:]

Parafuso x .... Arruela Y
Parafuso n .... Arruela z...

e assim por diante...

talve crie-se uma tabela simple de correspondencia apenas para idetificar

arruelas x parafusos.. e assim ao se escolher o parafuso na combo ataves do dlookup nesta tabela se utilize para dar baixa na arruela correspondente...

Tem como fazer um exemplo e postar, ficarei grato.

jPaulo, consegue me dar uma luz como posso fazer este kit.

Coloque um botão para finalizar a venda e faça o decréscimo por ele. Você pode ter um código do kit para passar como parâmetro.

TABELA tblKit

CAMPO         TIPO
Código        Chave primária
Descricao     Texto
Observacao    Memorando

TABELA tblItensKit

Código        Chave primária
CodKit        Número
Descricao     Texto
Preco         Unidade Monetária
Quantidade    Número
Descrescer    Número
Observacao    Memorando

O campo decrescimo será aonde você irá colocar a quantidade de itens a dar baixa.
Agora, no seu botão:

Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("SELECT * FROM tblItensKit WHERE CodKit=" & Me.txtCodKit & "")

rs.Edit
rs!Quantidade = rs!Quantidade - rs!Decrescer
rs.Update

rs.Close
Set rs = Nothing

txtCodKit seria um campo no formulário aonde tem o código do kit que está sendo vendido.

Muito obrigado pela ajuda, vou aplicar.