[Resolvido]Erro na soma de combo

Mylton 5/8/2016, 15:33

Mylton: VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 1042
Registrado : 23/08/2010

Mensagem nº1

[Resolvido]Erro na soma de combo

Mensagem Mylton 5/8/2016, 15:33

Bom dia.
Não estou conseguindo realizar a soma nas combos da aplicação em anexo.
Dá erro como objeto não encontrado.

Codifiquei dessa forma...

Private Sub Soma2_Click()
Me.SomaToqueTotalD.Value = (Me.Combo29 + Me.Combo30 + Me.Combo31 + Me.Combo32 + Me.Combo33 + Me.Combo34 + Me.Combo35 + Me.Combo36 + Me.Combo37 + Me.Combo38 + Me.Combo39 + Me.Combo40 + Me.Combo41 + Me.Combo42 + Me.Combo43 + Me.Combo44 + Me.Combo45 + Me.Combo46 + Me.Combo47 + Me.Combo48 + Me.Combo49 + Me.Combo50 + Me.Combo51 + Me.Combo52 + Me.Combo53 + Me.Combo54 + Me.Combo55 + Me.Combo56)
End Sub

Anexos

Sensibilidade.zip: Você não tem permissão para fazer download dos arquivos anexados.; (191 Kb) Baixado 6 vez(es)

zuuGG 5/8/2016, 16:20

zuuGG

zuuGG: Novato; Respeito às regras :

Sexo :
Localização :
Mensagens : 36
Registrado : 29/10/2013

Mensagem nº2

Re: [Resolvido]Erro na soma de combo

Mensagem zuuGG 5/8/2016, 16:20

Olá Mylton, bom dia!

Então verifiquei o arquivo que você mandou, segue meus pareceres:

1º - Os campos que estão sendo somados devem retornar um valor, então no código solicite o retorno do valor EX: Me.Combo1.Value

2º - As caixas de combinação devem ter algum valor para que a soma seja feita, caso contrário o valor será "Null" e com isso a a caixa de texto não retorna um valor, então coloque como padrão o valor das caixas de combo "0".

3º - Ajuste também o nome dos campos que estão recebendo os valores das somas no código, eles não estão batendo com o nome dos campos que estão no formulário.

Após isso acredito que o código vai funcionar! Very Happy