Ir para conteúdo
Fórum CódigoFonte.net
Entre para seguir isso  
FREITAS

Trabalhando com Moeda no Visual Studio 2088

Recommended Posts

Bom dia,

Estamos aqui novamente, depois de uns dias pesquisando trabalhando no Programa; para contar com a costumeira ajuda de vocês.

No meu BD Access inseri alguns campos com o valor em Moeda "R$", que é o seguinte:

- No BD Access coloquei como "moeda" e "2" casas decimais.

- Sem máscara porque não aceita máscara.

- No programa coloquei: Dim avalor_unitario(1) As Integer

- No UPDATE coloquei: "UPDATE tb_Estoque SET cod_materiais_produtos= valor_unitario=" & txtValor_unitario.Text & " (sem o (') por se tratar de valor numérico

- No DataGridView coloquei máscara : C2 - Courrency - R$

- No código do txtValor_unitario.text - no Evento Leave coloquei:

Private Sub txtValor_unitario_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtValor_unitario.Leave

If txtValor_unitario.Text = String.Empty Then

txtValor_unitario.Text = 0

Else

txtValor_unitario.Text = FormatCurrency(txtValor_unitario.Text, 2, TriState.True, TriState.True, _

TriState.True).Replace("R$", "").Trim

End If

End Sub

*Acontece que quando insiro um valor no BD e dou SALVAR dá a menssagem:

"Erro de Gravação.

"Tipo de dados incompatível na Expressão de critério"

Se puderem, por favor, me dar alguma dica de onde pode estar errado, desde já o meu

Muito Obrigado

FREITAS

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
Entre para seguir isso  

×
×
  • Criar Novo...