1 resposta neste tópico

[FREITAS]

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

[julio.arruda]

VS 2088???
Esse cara veio do Futuro minha gente....