[Resolvido]Transformar valor por extenso

Criei o módulo e copiei conforme explica no Fórum, mais não leva o extenso para caixa de texto que tenho naquele formulário de cadastro de duplicatas, será que vocês poderiam me ajudar quanto a isto, como disse eu não entendo muito de programação.

Se precisar te mando o arquivo para vocês darem uma olhada, até acrescentei já no relatório o layout da duplicata já levando os dados do clientes e valores do cadastro de duplicatas, ficou muito bom.

Obrigado.

Na caixa onde deve aparecer o extenso:

=Extenso([CampoValor])

ou, no evento Após Atualizar do campo que recebe o valor

Me("CampoExtenso") = Extenso(Me("CampoValor"))

Poderia me explicar passo a passo, desde o início das fórmulas, pois continua não dando certo.

Amigos desculpe a intromissão mas creio que posso ajudar.

Anexo esta um link no megauplod.

baixe o arquivo é um banco de teste onde tem o módulo Valor Extenso

importe este módulo para o seu aplicativo e então coloque em um campo, como origem dos dados:

= Extenso ([CampoComValorNumerico])

e aparecerá o valor por extenso.

http://www.megaupload.com/?d=BW5AA1RJ

Obs. Este código não é meu... Eu peguei de um outro aplicativo em Access que tinha na empresa onde trabalho, mas creio que no fórum também deve ter algo. (aqui tem de tudo, rsrs)

Baixe este exemplo.

Tentei de todo jeito mais nada consegui, lembrando que estou fazendo dentro de um formulário.

Coloque a bd aqui no fórum para alguém ajudar. Se não conseguir, envie para o meu email.

sergiovieirasoft@gmail.com

Boa Tarde,

Srs., até que enfim quebrando muito a cabeça consegui resolver, agradeço a todos do Fórum, pois tem me ajudado muito.

Consegui vendo no youtube o vídeo do ProfessorLar, muito simples e prático.

Abraços,

Abelardo[b

Obrigado pelo retorno. O fórum agradece e parabéns.

Sr. Vieira,

Gostaria de saber se deu certo o arquivo.

O arquivo foi reenviado para o Colega Haryshon, pois eu neste momento não podia ver isso. Aguarde que o colega logo que possa coloca aqui.

Obrigado.

Muito obrigado então e tenha uma boa noite.

Abraços

Abraço

Boa Noite Dr. Haryshon,

Gostaria de confirmar se você recebeu meu arquivo que eu tinha enviado ao Sr. Vieira, é só um probleminha que eu tenho com o extenso, no email que enviei para ele tem explicando tudo.

Fico agradecido e desculpe se estiver lhe aborrecendo, muito obrigado.

Abraços,

Amigão, boa tarde

Vou saber se ele recebeu, pois não veio devolvido, mas por vezes os provedores apagam as mensagens ou vai para spam e ninguém dá por isso. Entretanto, trate-nos por colegas, o Senhor, está no Céu e o Dr. Hary é nota 10..rsrsrs.

Boa noite Amigão.. acabei de baixá-lo
o que precisa?

Amigão Harysohn, eu consegui colocar no formulário cadduplicata formular o valor extenso para sair na caixa de extenso, só que eu estava analisando e percebi que o formulário não está levando o extenso para a tabela tblduplicatas, tentei fazer mais não sei como, porque só posso fazer sair no relatorio Rltduplicata se estiver dentro da tblduplicatas, pois está puxando de lá as informações, você poderia ver isto pra mim.

Lhe agradeço muito se poder mim ajudar.

Abraços,

Abelardo

Amigo abelardo...

Adicionei um módulo.. BasExtenso.. nele se esta inserido o código que faz a conversão do valor digitado em valor por extenso...

Ao cadastrar a duplicata nao precisa digitar nada na caixa valor por extenso, pois o código ja o preenche automaticamente apos atualizar o campo valor..

Veja que no evento apos atualizar do campo valor inseri o código que utiliza a função BasExtenso para fazer a devida conversão..

No form de consulta de duplicatas tambem inseri o código pois se caso queira alterar o valor ele o faz tembem
Ao cadastrar ou alterar o valor na duplicata o texto por extenso ja fica gravado na tbl duplicatas


http://dl.dropbox.com/u/26441349/Abelardo.rar

Saudações

Bom dia Harysohn,

Valeu deu certo, agora vou só criar o relatório de duplicatas para sair impresso nos campos no formato de uma duplicata.

Muito obrigadão mesmo.

Agora está resolvido por completo.

Agradeço ao Fórum e a todos que tem me ajudado.

Vou criar uns botões de navegação no BD e deixar com cara de sistema, se quiser posso deixar ele liberado para o fórum caso queira o sistema.

Abraços,

Que bom ficamos felizes... caso queira ao terminar me envie, verifico possiveis erros de compilação e o posto no repositório. Exemplos são sempre de muita valia para todos..

O Fórum agradece o retorno

Bom trabalho

Ok. farei isto sim.

Abraços