... Pague apenas R$47,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!


 

 


Não há comentário

Envie seu comentário: