MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


2 participantes

    [Resolvido]Erro ao gravar numero com virgula

    avatar
    Kiora
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 52
    Registrado : 18/06/2016

    [Resolvido]Erro ao gravar numero com virgula Empty [Resolvido]Erro ao gravar numero com virgula

    Mensagem  Kiora Sáb 10 Dez 2016, 9:48 pm

    Boa noite presados,

    Estou com um problema, eu tenho uma caixa de testo onde eu coloco números, só que na hora de gravar na tabela, ele da o seguinte erro:

    Erro de tempo de execução '3144'
    Erro de sintaxe na instrução UPDATE.

    Sendo que quando eu coloco números sem virgulas ele grava normal mais com virgula não vai.

    Tipo: TXN = caixa de testo
    formato = padrão
    casas decimais = automático

    Tabela: N = numero
    tamanho do campo = duplo
    formato = padrão
    casas decimais = automático

    Public Comando As String
    Public banco As Database
    Public dataset As Recordset

    Private Sub Form_Load()
    Conecta
    End Sub

    Function Conecta()
    Set banco = CurrentDb
    End Function


    comando do botão

    Private Sub BT_Click()

    Comando = "Update Tabela set N= " & TXN & " where IDOleo=" & list
    banco.Execute (Comando)

    End Sub




    Grato pela atenção!!!
    avatar
    Clebergyn
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 785
    Registrado : 29/08/2012

    [Resolvido]Erro ao gravar numero com virgula Empty Re: [Resolvido]Erro ao gravar numero com virgula

    Mensagem  Clebergyn Sáb 10 Dez 2016, 10:42 pm

    Olá kiora

    é que na consulta so aceita numero com ponto no lugar da virgula

    tente assim

    Private Sub BT_Click()

    Comando = "Update Tabela set N= " & Replace(TXN,",",".") & " where IDOleo=" & list
    banco.Execute (Comando)

    End Sub
    avatar
    Kiora
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 52
    Registrado : 18/06/2016

    [Resolvido]Erro ao gravar numero com virgula Empty Re: [Resolvido]Erro ao gravar numero com virgula

    Mensagem  Kiora Dom 11 Dez 2016, 12:00 am

    Boa noite clebergyn,

    Cara muito obrigado msm, mais, só pra ver se eu entendi, essa função pega todas as virgulas contida na variável e muda pra ponto, é isso msm?

    tipo se eu colocasse Replace(TXN, "9","8") ele substituí todos os 9 por 8?

    Mais uma vez, muito obrigado!!!!
    avatar
    Clebergyn
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 785
    Registrado : 29/08/2012

    [Resolvido]Erro ao gravar numero com virgula Empty Re: [Resolvido]Erro ao gravar numero com virgula

    Mensagem  Clebergyn Dom 11 Dez 2016, 12:30 am



    é isso mesmo

    Conteúdo patrocinado


    [Resolvido]Erro ao gravar numero com virgula Empty Re: [Resolvido]Erro ao gravar numero com virgula

    Mensagem  Conteúdo patrocinado


      Data/hora atual: Sex 19 Abr 2024, 1:45 pm