[Resolvido]Multiplicando valores variados subformulario

jamesacdc 26/6/2013, 19:13

jamesacdc: Intermediário; Respeito às regras :

Sexo :
Localização :
Mensagens : 155
Registrado : 09/04/2012

Mensagem nº1

Multiplicando valores variados subformulario

Mensagem jamesacdc 26/6/2013, 19:13

Olá,

tenho um formulário onde eu coloco uma quantidade qualquer no campo quantidade

ex: quantidade= 10

ai o sub-formulário já vai estar listando vários produtos, e esses produtos vão ter um multiplicador..

ex:

produto A (x3)
produto B (x2)
produto C (x4)

vc deve estar se perguntando, ok, mas onde entra a quantidade=10?

gostaria que ficasse assim:

produto A(x3) x 10
produto B (x2) x 10
produto C (x4) x 10

Isso seria parecido como uma entrada de estoque..
o problema que não sei nem como começar isso pelos seguintes motivos..

como multiplicar os produtos se não sei quantos vão aparecer na minha lista? pode ser produtos A e B ou A a Z

após isso inserir o resultado da multiplicação numa tabela de estoque (ateh que isso é barbada )

se alguém quer pelo menos dizer, oh vai por esse caminho aqui..

fico agradecido What a Face

Convidado 26/6/2013, 19:46

Convidado

Convidado: Convidado

Mensagem nº2

Re: [Resolvido]Multiplicando valores variados subformulario

Mensagem Convidado 26/6/2013, 19:46

Envie-nos um modelo do bd com os objetos envolvidos para que possamos ver isto pra ti.

Cumprimentos.

jamesacdc 9/7/2013, 15:14

jamesacdc

jamesacdc: Intermediário; Respeito às regras :

Sexo :
Localização :
Mensagens : 155
Registrado : 09/04/2012

Mensagem nº3

Re: [Resolvido]Multiplicando valores variados subformulario

Mensagem jamesacdc 9/7/2013, 15:14

segue em anexo o bd,

como esta lá, o formulario é continuo, nisso estou meio confuso, pois os registros são variaveis.

depois disso vai ser dada baixa no campo estoque da tabela tbAdesivos.

Anexos

BD_ControleAdesivos.zip: Você não tem permissão para fazer download dos arquivos anexados.; (290 Kb) Baixado 9 vez(es)

Convidado 9/7/2013, 17:12

Convidado

Convidado: Convidado

Mensagem nº4

Re: [Resolvido]Multiplicando valores variados subformulario

Mensagem Convidado 9/7/2013, 17:12

Abri o formulário... no Kit F11

O primeiro registro:

NomeAdeviso: Coca
CodRefAdesivoEmp: 2
Multiplicador: 20

Levando em conta esses dados acima, detalhe como desejaria que apresentasse o mesmo no subform.
Este novo campo ficaria gravado em um novo campo na tabela ou apenas para visualização em um campo não acoplado?

cumprimentos.

jamesacdc 9/7/2013, 18:24

jamesacdc

jamesacdc: Intermediário; Respeito às regras :

Sexo :
Localização :
Mensagens : 155
Registrado : 09/04/2012

Mensagem nº5

Re: [Resolvido]Multiplicando valores variados subformulario

Mensagem jamesacdc 9/7/2013, 18:24

vou te explicar melhor..

este formulário serve para dar baixa no estoque de maneira mais rápida, ao invés de um produto por vez ele da baixa na categoria inteira que seria o F11..

no campo Quantidade será colocado por exemplo o valor 20.

quantidade x multiplicador

dai o coca esta com o multiplicador 20 sera: 20x20
o campo motos esta com multiplicador 25 sera: 25x20

O resultado dessa multiplicação (de cada adesivo) será diminuído da tabela tbAdesivos no campo estoque

obs (ignora o CodRefAdesivoEmp)

o usuario apenas ira colocar o valor na quantidade e dar um ok, e os calculos serão feitos.

Convidado 9/7/2013, 21:36

Convidado

Convidado: Convidado

Mensagem nº6

Re: [Resolvido]Multiplicando valores variados subformulario

Mensagem Convidado 9/7/2013, 21:36

1 - no sub form altere a SQL adicionando o campo CodAdesivo
a SQL ficará assim:


SELECT tbRelKit.codRelKits, tbRelKit.codRelAdesivo, tbRelKit.codRelKitTab, tbRelKit.codRelAdesivoEmp, tbRelKit.multiplicador, tbAdesivos.nomeAdesivo, tbAdesivos.codAdesivo
FROM tbAdesivos INNER JOIN tbRelKit ON tbAdesivos.codAdesivo = tbRelKit.codRelAdesivo;

2 - crie no sub form uma caixa texto com o nome txtCodAdesivo e acople neste campo: CodAdesivo

3 - a caixa texto onde vai o multiplicador no form renomeie para MultQtde

4 - Botão no form com o código:


Private Sub btnBaixa_Click()
Dim rs As DAO.Recordset
Dim StrSQL As String
Dim IntQtde As Integer
StrSQL = "SELECT tbRelKit.codRelKits, tbRelKit.codRelAdesivo, tbRelKit.codRelKitTab, tbRelKit.codRelAdesivoEmp, tbRelKit.multiplicador," _
        & "tbAdesivos.nomeAdesivo, tbAdesivos.codAdesivo FROM tbAdesivos INNER JOIN tbRelKit ON tbAdesivos.codAdesivo = tbRelKit.codRelAdesivo" _
        & " WHERE  tbRelKit.codRelKitTab = " & Me.codKit & ";"

Set rs = CurrentDb.OpenRecordset(StrSQL)
rs.MoveLast: rs.MoveFirst
Do While Not rs.EOF
IntQtde = (rs!multiplicador * Me.MultQtde)
CurrentDb.Execute "UPDATE tbAdesivos Set Estoque = " & IntQtde & "  WHERE CodAdesivo = " & rs!CodAdesivo & ""
rs.MoveNext
Loop
End Sub

Lembre-se... o campo multiplicador na tbAdesivo não poderá ficar em branco.

Cumprimentos.

jamesacdc 9/7/2013, 22:44

jamesacdc

jamesacdc: Intermediário; Respeito às regras :

Sexo :
Localização :
Mensagens : 155
Registrado : 09/04/2012

Mensagem nº7

Re: [Resolvido]Multiplicando valores variados subformulario

Mensagem jamesacdc 9/7/2013, 22:44

Quase perfeito piloto, só um detalhe, o valor esta sendo escrito por cima do valor que existe na tabela, o objetivo é acrescentar.. somar com o que já existe..