boa noite pessoal, eu esto com um grande problema, eu esto fazendo um programa de gerenciamento, e dentro deste programa ele tem que lançar uns valores dentro de uma tabela, da seguinte maneira:

eu cadastro primeiro o Produto, depois e cadastro a Loja, depois a porcentagem de cada grade (grade= masculino, feminino, ....) e de cada loja, e depois e clicko no botão vamos supor masculino, para q ele cate todas estas informações e joge para a tabela, sendo assim ex:

 

                            porcentagem

loja 1                          10

loja 2                          50

loja 3                          40

 

dai em outra FRM, aparece

 

                        produto=1000

 

loja 1

loja 2

loja 3

 o q deve acontecer eu aperto o botão masculino q estah nun dos cantos e a computador pega o numero de produtos e distribui por loja, levando seu percentual q jah foi cadastrado ficaria assim no caso:

 

                           produto=1000

loja 1                           100

loja 2                            500

loja 3                            400

 

os codicos q eu usei foram estes pro favor me ajudem eu lhes imploro

 

Private Sub btnPercMasc_Click()
Lojas.Recordset.Edit
Percentual = Lojas.Recordset![percentual_masc]
Exp1 = Produtos.Recordset![Exp]
Xp1 = Produtos.Recordset![xp]
Pp1 = Produtos.Recordset![pp]
P1 = Produtos.Recordset![p]
M1 = Produtos.Recordset![m]
G1 = Produtos.Recordset![g]
GG1 = Produtos.Recordset![gg]
Exp1 = Produtos.Recordset![Nexp] = Exp1 * Percentual
Xp1 = Produtos.Recordset![Nxp] = Xp1 * Percentual
Pp1 = Produtos.Recordset![Npp] = Pp1 * Percentual
P1 = Produtos.Recordset![Np] = P1 * Percentual
M1 = Produtos.Recordset![Nm] = M1 * Percentual
G1 = Produtos.Recordset![Ng] = G1 * Percentual
GG1 = Produtos.Recordset![Ngg] = GG1 * Percentual
tot = Produtos.Recordset![Nexp] + Produtos.Recordset![Nxp] + Produtos.Recordset![Npp] + Produtos.Recordset![Np] + Produtos.Recordset![Nm] + Produtos.Recordset![Ng] + Produtos.Recordset![Ngg]
tot = Produtos.Recordset![NTOT] = tot
End Sub

 

grato pela ajuda Edgar

text1 = cdld(text1) - (cdbl(text1) * (100 - cbdl(txtporcentagem)))

 

Roberto

oi Roberto eu tentei o codico q vc me passo, da seguinte maneira:

 

percentual_masc = (CDbl(Produtos_masc)) - (CDbl(Porcentual_masc)) * (100 - CDbl(txt_porcentagem))

 

mas naum tah dando certo, o q pode estar dando errado.

 

eu pensei em fazer a seguinte operação:

 

total de produtos * porcentagem da loja / 100 * x, so q o problema é como eu vo relacionar o x,, pois no caso o x será o valor dado do resultado

 

edgar