Somente "vendo" o que está fazendo, e podemos tentar entender o que acontece.

Bom dia Reinaldo,

Então, recapitulando, as ultimas alterações que fizemos, no modulo 4 bem no final, incluímos uma rotina que me da o valor da corrida no comando txtvalor1, ate aqui ta ótimo e operante, a unica coisa que não funciona mais é que antes digitando um valor no txtvalor1 e txtvalor2, automaticamente preenchia o txttotal e agora não mais, você cogitou o fato de ser texto ou numero, ai eu li os artigos indicados pelo Mauro, mas como esta em CDec para mim esta com formato numero, não e isso?
Então porque o txttotal não recebe mais a soma?

Aonde estou errando Reinaldo?

Fabio, no anexo está somente o banco de dados, mas verificando o anexo anterior, o txtTotal e "carregado" pelo evento AfterUpdate do Txtvalor1 e/ou Txtvalor2.
Se vc não está entrando/modificando esses txt, então não está gerando o input para atualização.
Como ficou a rotina: obtem a distancia em km (do maps), atualiza o txtkm no form "frmCadastroServiçosConvenio", é atualizado o valor do TXTValor1 como?

Desculpe Reinaldo,

acho que agora esa anexado, ele calcula a distancia, tras para o form no controle txtKm a kilometragem e no final do modulo 4, nos acrescentamos uma rotina que dependendo da kilometragem ele tras um valor.

Pois é, o problema e o momento da atualização; então troque(se o Txtvalor2 tb for receber informaçãodo maps tb deve ser atulaizado):
De:

Private Sub Txtvalor1_AfterUpdate()
If TxtValor2 = "" Then TxtValor2 = 0
Me.TxtTotal = CDec(TxtValor1.Value) + CDec(TxtValor2)
TxtValor1.Text = Format(TxtValor1.Text, "R$ #,###.00")
End Sub

Para:

Private Sub TxtValor1_Change()
If TxtValor2 = "" Then TxtValor2 = 0
Me.TxtTotal = CDec(TxtValor1.Value) + CDec(TxtValor2)
TxtValor1.Text = Format(TxtValor1.Text, "R$ #,###.00")
End Sub

Reinaldo, se bem entendi seria so trocar a rotina para change?

Na verdade ja tentei isto hoje de manha e nao surtiu efeito, mas amanha cedo tento novamente com atençao e te dou um feedback.

Grande abraço Reinaldo.

Bom dia,

Reinaldo, faço todas as implantações e midificações em um hd externo que eu tenho, ai depois de tudo testado e operante, vou ate um dos computadores da empresa e atualizo o programinha, neste caso, adicionei o frmpesquisargooglemaps que estamos trabalhando nos ultimos dias, ai se rodo so este form no computador, roda tudo bonitinho, mas quando adicionei ele no programa ele da erro.

O tipo definido pelo usuario nao foi definido

Linha Public IE as Internetexplorer

Pode me dar uma luz por favor?

Obrigado

Creio que vc precise habilitar em referencias (menu superior do vb --> Ferramentas -->Referencias) as seguintes:
Microsoft Internet Controls e Microsoft HTML object library

Bom dia Mestre Reinaldo,

Que mancada, eu ja deveria saber esta, foi muita falta de atenção ao problema, hehe
Quanto aquela questão da soma dos txtvalor1 e 2, eu ja tinha tentadono modo change, e não surtiu efeito, mas tudo bem,
ja a implantação deste formpesquisargooglemaps foi uma ótima contribuição tua para o projeto.

Obrigado Reinaldo

Então,
fiz uma adaptação meio fora dos padrões mas deu certo, como ativo o frm de pesquisa atraves de um botao de comando, na rotina do mesmo adicionei setfocus para passar pelos comandos, txtvalor1 e txttotal, estes como enter, ai ele alem de somar me da a forma pretendida " R$ #.###,##", almenos funcionou, hehehehe.

Um grande abraço aos membros do forum.

Fabio Pradella

Otimo muit bom

Pessoal boa tarde

Poderiam me ajudar, sou novato e meio leigo.
Esse arquivo me serviu perfeitamente, porem meu problema é o seguinte:

Tenho outra planilha em excel, nela tenho varios arquivos.
Gostaria que a barra de pesquisar a distancia estivesse como se fosse um link em outra planilha a qual tenho meus endeços cadastrados.
Alguem pode me judar?
Como adiciono a barra de pesquisa em outra planilha?

Grato

Ola Pessoal,

Baixei a planilha do ALEXCEL para tentar adaptar, porém ela esta dando erro em tempo de execução no módulo pesquisar, na linha:

IE.Document.all("d_d").Value = strEndereçoDePartida

Não sei ao certo a causa, mas acredito que seja porque o GOOGLE MAPS mudou o layout, alguém saberia me dizer como resolver ?

Pessoal, estou baixando as planilhas, qdo vou descompactar está dando erro em todas, ja tentei em outra maquina e tenho o mesmo problema.
Estou precisando também calcular a distancia em km com base em Ceps.

Abraço

Boa tarde!!

Entre em contato com os moderadores e tenta ajuda por eles.

Att