[Resolvido]Ir somando registros de um subformulario.

https://dl.dropbox.com/u/98318720/Soma%20ListBox.rar

Meus amigos mais um frango para ser depenado rsrsr.
Neste exemplo ao selecionar cada linha da listbox ela vai automaticamente somado cada registro em uma caixa texto.
Pois bem, eu quero ver se da pra fazer a mesma coisa em um subformulario.

Feliz natal e um ano novo cheio de saude e felicidade a todos os amigos do forum.
Obs: estou mandando o bd pra ficar mais facil de entender

https://dl.dropbox.com/u/98318720/Agtec%20Sister%201.0.0_Grande.rar
é no frmdivida que quero esaa adaptação.

Tente algo assim:

Dim rs As Recordset, S As Double
Set rs = Me.RecordsetClone

rs.MoveFirst

Do While Not rs.EOF
    S = S + nz(rs!NomeCampoASomar, 0)
    rs.MoveNext
Loop

Me.NomeCampo = S

rs.Close
Set rs = Nothing

Bom dia Criquio,não deu certo,não sei se voce deu uma olhada no primeiro exemplo acima,com esse exemplo o procedimento é feito com uma listbox,mas eu queria que fosse no subformulario do segundo bd,não sei se é possivel da uma olhada.
Obrigado amigo,"um natal e um ano novo,cheio de luz e paz pra vc e tua familia".

De que forma você tentou fazer? Narre nos mínimos detalhes.

Eu coloquei esse código que enviou no evento apos atualizar do formdivida e depoistambém no campo qtdProduto.Onde mais eu poderia por o codigo.

Se a quantidade de linhas a somar for pequena, coloque no evento "No atual" do formulário. Se for grande, precisará ver uma melhor forma, pois caso contrário, ficará lento para atualizar toda vez que alterar algo.

Não deu do geito que imaginei Criquio,eu vou tentar explicar melhor o que quero.
Eu tenho em um formulario divida,um subformulario que mostra as dividas do cliente,tenho uma caixa de texto que mostra o total da divida,isso esta funcionando direitinho.
O que quero é que em outra caixa de texto, cada vez que eu clicar em uma divida ela va somando individualmente.Como esta neste exemplo,só que neste exemplo esta feito numa listbox,e eu quero que seja num subformulario.

https://dl.dropbox.com/u/90217826/Soma%20ListBox.rar

Quando puder Criquio.

Cara.. Eu viajei na maionese... Teste ai e tente explicar o Código rsrs

https://dl.dropbox.com/u/98318720/SomaSub.rar

Piloto veja o exemplo que fez que to mandando de volta com botões em cada regisro,será que da pra quando clicar nele ja ir somando na caixatexto individual.Eu sou fraquisimo em código,eu tive essa ideia mas fazer funcionar é outra coisa.

Oras amigão então ja está mais que na hora de aprender, e não conseguirá se não tentar...
Basta colocar o código no click do botão.. veja onde o mesmo está (Evento) e o tranfira ao botão.

Veja o repositório este exemplo está mais completo e com possibilidade de subtrair.
Seria interessan adicionar tratamento de erros para caso clique no seletor de registro em Novo Registro.

http://maximoaccess.forumeiros.com/t11024-soma-ou-subtracao-de-valor-em-subform-ao-clique-do-mouse-apresentando-valor-total#86833

Feliz Natal

Ola kainan!

Boas criquio e Piloto.

Kainan veja se é isso:

É isso mesmo,cada vez aprendo mais,um dia vou ter o conhecimento dos amigos Mestres,obrigado Piloto,Criquio,Lupercio.
Feliz ano novo.

O forum agradece e feliz ano novo a ti tambem!

Abraço!

A título de esclarecimento Kaynan.. Desejava a soma gradual dos registros ou a soma total dos valores da tabela assim como mostrou o Lupércio? Porque segundo a origem da tua dúvida e o exemplo de listbox que postou deseja a soma dos registros selecionados apenas.

Cumprimenos.

Foi do geito que fez Piloto,a soma dos registros selecionados,agora irei adaptar em meu progeto.
Obrigado a todos.

O Fórum agradece o retorno.

https://dl.dropbox.com/u/90217826/Soma%20registros%20selecionados.rar

Piloto pode me chingar mais um pouco,mas na verdade não consigo fazer funcionar aqueles códigos neste bd que estou a fazer,veja oque faço de errado que não da certo.
Esta no frmdivida e subfrmDivida.Selecione o primeiro cliente e selecione a Data em Divida.

Obs:Só tenho o access 2010,ve pra mim oque da pra fazer,e no mais desculpa ai.

Obrigado.

Posso ver isso sim.. mas tem que ser em 2003 ou 2007, converta-o e envie novamente.

Cumpimentos.

Amigão... tens que prestar mais atenção, falei em uma mensagem acima que tem um modelo mais atualizado no repositório e voce aunda esta tentando aplicar o antigo

Cumprimentos.

[E amigão o maior problema está em falta de atenção, se baixar o exemplo que indiquei verás que ele tem instruções.

O exemplo trabalha para todos os registros.. para cliente específico o Dcount tem que ser filtrado e isto está na explicação do código que te indiquei.

POr gentileza baixe o exemplo novo e tente adptá-lo novamente... Aguardarei você quebrar a cabeça um pouco.

Aguardo.

Cumprimentos.

é Kaynan.. eu ate comecei a mexer... mas você nem copiou todos os códigos.

Uma pergunta.. percebi que utilizou uma JPG no seu exemplo que é do SysScholl...
Este BD é para uma Escola? Se for evite usar essa logo que é apenas ilustrativa.. e pertence a um sistema de minha autoria.

Cumprimentos.

Ok,Piloto eu vou tirar o JPG,na verdade no progeto principal é outro esse eu coloquei só por curiosidade.Vou tentar de novo se eu não conseguir paciencia né,ja que o mundo não terminou, ainda vou ter tempo de aprender,eu acho rsrsrs.

Amigão.. não se chateie... Eu preciso dar um tranco pra ver se ao menos tenta...Primeiramente...

- Antes de adaptar algo a teu bd, abra o exemplo.. coloque ponto de interrupções no código.. execute.. tente entender o funcionamento do código
- Observe a padronização e faça tal qual no modelo... em um modulo ate o nome mudou.. colocou Jars... isso não é nome de modulo... apesar de não influenciar nesse caso, fica fora do padrao.

- Veja todos os código que tem em ambos os form...

Ai sim.. começe a adaptação..

Eu o ajudarei sim... Mas deve tentar primeiro...Esse é o objetivo do Fórum, o aprendizado..

Aguardo vosso retorno.

Saudações.

https://dl.dropbox.com/u/90217826/Soma%20registros%20selecionados.rar

Piloto,te juro que tentei mas veja,to de cabelo em pé,já detonei tres teclado,quando penso que vai dar certo, vem um aviso dizendo que falta alguma coisa,e não da certo.

Espero que tenha ao menos colocado todos os códigos.

Logo verei isto

Até mais.

Piloto,sinceramente não sei oque estou fazendo de errado,desculpa mas não tem geito.

Relaxa...

Vamos ao aprendizado... Não vou te enviar o arquivo de volta, te falarei as correções para que você entenda e as aplique..

Bem:


1 - No meu exemplo eu faço uma contagem em todos os ítems da tabela para carregar a variável N, N Será utilizada para Redefinir o tamanho da Matriz: K(1 To N) Então se N for por exemplo = 3 K será:

K(1 to 3), teremos assim: K(1), K(2), K(3).

Esta Matriz contera então os valores dos registros 1,2,3 respectivamente em sua posições. Por isto é necessário renumerar o registro com a função GetNumberLine pois K(1) conterá o registro 1, K(2) conterá o registro 2 e assim sucessivamente. Isto não daria certo pelo código pois seriam números diferentes.
Como o subform suas dívidas é baseada no cliente, não pode utiliza para carregar N o CodProduto e sim do CodCLiente!!!:
N = DCount("*", "CDivida", "codCliente = " & Me.CodCliente & "")
Outro detalhe, o seu subform é filtrado pela data ainda... então deves carregar a data para filtragem:
N = DCount("*", "CDivida", "codCliente = " & Me.CodCliente & " And DataVenda = # " & Me.dtDataVenda & " # ")

Porque isso oras o cliente Abegahil tem 3 dívidas para uma Data, N = 3, senão dará erro.
Coloque no subform uma caixa texto não visível, nomeeie como dtDataVenda, ela será utilizada pela função Dcount

2 - A caixa texto SomaSeleção, se observar no meu exemplo ela está localizada no FORM!!!! portanto para referenciá-la no código eu uso a propriedade: Parent
StrValor = Nz(Me.Parent.SomaSeleção, 0) + K(X)
Isto signica que: como o código está no subform, tem que especificar a localização da caixa texto.
No modelo que fez.. a caixa texto está no próprio subform, portanto não precisa referenciar com a cláusula Parent, basta apenas o ME.SuaCaixaTexto.
Logo mais no código ainda não substituiu o nome da caixa texto: Me.TxtValorSoma = StrValor

Oras se mudou o nome da caixa texto podia até utilizar o modulo de busca para substituit os nomes no código, assim não deixando escapar nenhuma como deixou esta.

3 - Dim StrValor As Double (esta variável é do tipo Double) se observa no novo exemplo ela já esta modificada. isto para aceitar decimais

4 - Para que uma combo onde está a função GetNumberLine? Oras... isto é somente para ser utilizado no Código, não precisa nem estar visivel se nao quiser, serve apenas para numerar os registros em sequencia... Não tem nada haver com o código do produto.


Bem é isso, agora coloque mãos a obras... Mais fácil que isto só roubando doce de crianças.

Cumprimentos

Outra coisa...

Já ouviu falar em tratamento de Erros?

Pois bem.. se clicar no * no subform dará erro
se o Usuário clicar na combo sem ter selecionado um cliente e uma divida dará erro.

Aplique tratamento de erros para isso.

https://dl.dropbox.com/u/90217826/Soma%20registros%20selecionados.rar

Piloto oque fiz de errado agora,que coisa loca.To com meus neuronios pegando fogo.Tratamento de erro ja ouvi falar mas só ouvi hehehe.
Me manda funcionando pra ver oque faço de errado.

Simples... Você simplesmente não fez nada do que recomendei acima.... Me recuso a lhe mandar a solução pronta amigão...

Atente às minhas instruções acima e as corrija no código... Você não fez nada!!!!!!!!!!

Aguardo.
]
Cumprimentos.

Fiz sim Piloto troquei codproduto pelo codClient,retirei da SomaSeleção o parent,e outras,mas deixa pra la se não der fica o bd sem a soma por seleção.

Obrigado e desculpa ta te encomodando.

O que me mandou nao esta com estas alterações... Verifique.

Cumprimentos.

Não me incomoda amigo... desejo apenas que aprenda..

Cumprimentos.

Olá

Vou sugerir uma solução mais simples, eu acho (risos)

Crie um campo na tabela DetalheVendas de nome Status (tipo : sim/não)

Acrescente este campo Status na consulta CDivida

Acrescente este campo Status no subFormDivida

No campo "somaSelecionado" do subformulário , coloque a expressão: =Soma(SeImed([status]=-1;([qtdProduto]*[valorUnitario]);0))

No evento "após atualizar" do campo status, acrescente me.recalc

Veja na imagem o campo somando apenas os itens selecionados



Sucesso!

Avelino,salvou meu dia,bem mais facil, o Piloto só me judiou mas quando tiver mais tempo vou estudar melhor a maneira que o PIloto ta me ensinando que deve ser bem legal tambem.

Obrigado pessoal.

https://dl.dropbox.com/u/90217826/Soma%20registros%20selecionados.accdb
PIloto oque eu tava tentando fazer e não consegui.
Pena se recusar em me dar a solução prática,assim eu entenderia o que estaria a fazer de errado.Mas.....

Pelo jeito, estava faltando atentar para o caso de somar apenas os selecionados, certo? É algo semelhante ao que fiz nesse exemplo em ajuda a uma amiga do fórum. Veja no formulário "frmMulta" que ao clicar nos botões, vai alterando o valor total.
O link para o exemplo está na mensagem n° 19

Exatamente Criquio,muito bom mesmo,pendente e pago,tive outras ideias com isso,pra inclementar meu bd.
Valeu mestre.

Para constar...

Piloto,agora entendi melhor essa lida,mas me diga, o código do produto não da pra ficar o mesmo?

Para o funcionamento do código nao...

Deixe esta função do GetNumberLine apenas pra o uso do código, pode inclusive deixar oculta. e continue a utilizar o código do produto normalmente.

Esse não é o código do Produto e sim a numeração sequencial do registro do subform, independente de qual produto seja

se o sub form tiver 5 registros
1
2
3
4
5

se tiver 3
1
2
3

Muito bem mestre,mais explicado do que isso,é só roubando doce de criança como disse.
Muito obrigado e valeu muito os puchão de orelha,é assim que a gente aprende,parabéns Piloto.
Até a proxima dúvida.

obs:To inventando um protetor de orelha se algum colega quizer adquirir,é só da um grito. rsrssr.
Valeu amigos.

O Fórum agradece o Retorno.