Valor monetário por extenso
Nota importante: para ter acesso aos vídeos e arquivos exemplos deste site, adquira um dos planos apresentados abaixo. Você pode comprar em até 2x no Cartão de Crédito.
Veja como comprar e saiba mais sobre o material oferecido, clicando aqui.
Existem casos em que precisamos preencher o valor monetário por extenso, como por exemplo cheques e recibos. O código utilizado para passar o valor por extenso está no módulo mod_extenso, do arquivo exemplo oferecido, basta copiá-lo para o seu projeto.
Baixe o arquivo e faça o teste:
Clique aqui e baixe o arquivo exemplo.
Abra o formulário frmTeste e entre com um valor monetário qualquer. Clique no botão Visualizar recibo:
Observe no evento Ao clicar do botão, que passei o valor monetário para o relatório, através do argumento OpenArgs:
Private Sub btVisualizarRecibo_Click() DoCmd.OpenReport "rltExtenso", acViewReport, OpenArgs:=Me!txtValorServiço End Sub
No evento Ao carregar do relatório foi utilizado a função fncExtenso(), responsável em passar o valor monetário para o valor por extenso:
Private Sub Report_Load() Dim strTexto As String strTexto = "Recebi do cliente Avelino Sampaio a importância de " strTexto = strTexto & Format(Me.OpenArgs, "R$0.00") & " (" strTexto = strTexto & Format(fncExtenso(Me.OpenArgs), "<") & ") pelo(s)
strTexto = strTexto & serviço(s) de programação e assessoria." Me!TxtExtenso = strTexto End Sub
Bom estudo!
Os dez artigos mais visitados
MontaRibbons v.7.0 - Assistente completo para criar ribbons no Access
Vídeo - Controle personalizado de Acesso de Usuários
Vídeo - Aprenda sobre filtragens
Vídeo - Segurança máxima, usando o OPEN
Uma ajuda para quem está começando um negócio ou um projeto
Desabilitando a faixa(ribbon) superior do Access
Vídeo - Programação de relatórios - Parte 1
Integrando o Access com Servidor MySQL - Introdução
Como carregar o seu menu sem que ele vá para lista de suplementos
Adquira o kit UsandoAccess e aprenda em alta velocidade
2 comentário(s) Avelino Sampaio 12/07/2017 08:43:29 Glenio, veja se este meu tutorial ajuda (copie cole o link abaixo no seu navegador): http://www.usandoaccess.com.br/tutoriais/manutencao-e-backup-access-barra-de-progresso.asp?id=1#inicio Sucesso! Glenio Giacomet 12/07/2017 07:00:54 Utilitário para realizar backup de um sistema em Acccess. Não vi e nem achei na internet alguma dica de como fazer um backup a partir do access. Uma aplicação em Access, que pudesse ter um comando (botao) para fazer backup dos dados. |