[Resolvido]Somar total e aparecer em outro form

Ola amigos,neste exemplo ao abrir o form "HistoricoOS" e clicar 2 duas vezes na list abre um outro form para quitar dividas,bem eu queria que ao clicar duas vezes em um cliente da list aparece somado no form de receberDivida no campo ValorDivida todas as OS do cliente em divida.Por exemplo o cliente Juca de Oliveira tem 3 OS quero que apareça o total delas da colunaValorReceber, no campo ValorDivida.

https://dl.dropboxusercontent.com/u/90217826/OSteste.rar

Seria bom converter para a versão 2007.

Veja agora mestre.


https://dl.dropboxusercontent.com/u/90217826/OStest.rar

Explique detalhadamente todo o processo. Tem muita coisa no formulário e fica difícil entender de primeira.

Assim,clicar duas vezes na list do form HistoricoOS e aparecer o total das OS do cliente que esta na coluna ValorReceber, no form frmReceberDivida,no campo Valor da Divida.Peque como exemplo o cliente Juca de oliveira.

Para fazer isso da forma que pretendes precisa incluir o código do cliente na lista do primeiro formulário mesmo que fique em uma coluna com largura = 0. É o código do cliente que garante que irá somar as linhas certas. Supondo que o código do cliente está na primeira coluna (índice 0), basta somar todas as linhas aonde a primeira coluna for igual à coluna duplo clicada:

Código:

Dim N As Integer, Soma As Currency

For N = 0 To Forms!NomeDoPrimeiroForm!NomeDaListbox.ColumnCount - 1
    If Forms!NomeDoPrimeiroForm!NomeDaListbox.Columns(0, N) = Forms!NomeDoPrimeiroForm!NomeDaListbox.Columns(0) Then
        Soma = Soma + Forms!NomeDoPrimeiroForm!NomeDaListbox.Columns(7, N)
    End If
Next

Me.NomeDoCampo = Soma

Mais ou menos isso. Tente adaptar.

Esse código coloco aonde mestre.

Aonde melhor convier. No evento "Ao carregar" do formulário por exemplo.

Oque esta dando errado mestre


https://dl.dropboxusercontent.com/u/90217826/OStest.rar

Tem que ser no evento "Ao carregar" do segundo form, o que irá abrir após o duplo clique na lista. Coloque assim:

Código:

Dim N As Integer, Soma As Currency

For N = 1 To Forms!HistoricoOS!ListaCompras.ListCount - 1
    If Forms!HistoricoOS!ListaCompras.Column(0, N) = Forms!HistoricoOS!ListaCompras.Column(0) Then
        Soma = Soma + Forms!HistoricoOS!ListaCompras.Column(7, N)
    End If
Next

Me.txtDivida = Format(Soma, "Currency")

Nos últimos meses tenho trabalho com o Visual Basic e lá muita coisa é um pouco diferente do VBA e por isso acabei esquecendo alguma coisa e fazendo alguma confusão, mas acredito que agora está certo.

Mestre agora deu certo esta somando os totais dos clientes,só que agora não esta dando baixa da soma quando o cliente faz um pagamento.
Tipo o cliente juca deve 744 ai coloquei que pagou 700,só que não ta dando baixa do valor devido.
obs:mudei para coluna 6 pra fazer a soma.

E tambem não ta aparecendo o nome do cliente no frmReceberdivida.

Para isso você precisa colocar um comando no botão para dar a baixa. E no caso dos campos, é preciso transportar esses dados para lá, seja no source do formulário ou no mesmo evento "Ao carregar" do formulário que será aberto:

Código:

Me.NomeDoCampoLocal = Forms!NomeDoFormAnterior!NomeDoCampo

Mestre e esse comando para dar baixa das dividas quando for pagando,eu tenho esse comando no botão btnGravar mas agora não ta funcionando.

https://dl.dropboxusercontent.com/u/90217826/OStest.rar

Pessoal...

Tente assim:

Código:

CurrentDb.Execute "Update tblReberFiado Set totaldivida=" & txtValorDivida & ", resta = " & Me.txtValorDivida - Me.txtTotalPago & " WHERE CodVenda = " & Me.txtCodVenda.Value & ""