... Pague apenas R$67,00 uma única vez e tenha acesso por 1 ano aos vídeos e arquivos exemplos do site ...

Clique aqui e obtenha mais detalhes.


Valor monetário por extenso

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.

Usando Access - valor monetário por extenso

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:

Usando Access - valor monetário por extenso

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

Usando Access - valor monetário por extenso

 

Bom estudo!


 

 


2 comentário(s)

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.

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!


Envie seu comentário: