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


    [Resolvido]Comparar campo Valor Moeda vba sql

    avatar
    egnaldo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 90
    Registrado : 11/03/2012

    [Resolvido]Comparar campo Valor Moeda vba sql Empty [Resolvido]Comparar campo Valor Moeda vba sql

    Mensagem  egnaldo 27/12/2023, 23:51

    Boa Noite

    Tenho o campo ValorPix para ser comparado e quando for igual fazer o UPDATE
    o campo na tabela é tipo moeda
    quando faço de forma manual :

    DoCmd.RunSQL ("UPDATE TblPix SET TblPix.Descrição = '" & RS1("CodVenda") & "' WHERE TblPix.ValorPix = 15.5")
    colocando o valor no caso ai do exemplo de 15.5 da certo

    criei uma variável abaixo para formatar o campo e tirar o zero a direita ::

    Dim StrValorpix As String
    StrValorpix = Replace(Format((RS1!ValorPix), "0.00"), ",", ".")

    Do Until Right(StrValorpix, 1) <> 0
    StrValorpix = Mid(StrValorpix, 1, Len(StrValorpix) - 1)
    Loop

    DoCmd.RunSQL ("UPDATE TblPix SET TblPix.Descrição = '" & RS1("CodVenda") & "' WHERE TblPix.ValorPix = '" & StrValorpix & "'")

    tinha tudo para dar certo mais da que os tipos de dados são incompatível
    desde já agradeço uma ajuda !

    MarcosBot gosta desta mensagem

    avatar
    egnaldo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 90
    Registrado : 11/03/2012

    [Resolvido]Comparar campo Valor Moeda vba sql Empty Re: [Resolvido]Comparar campo Valor Moeda vba sql

    Mensagem  egnaldo 28/12/2023, 20:14

    Boa tarde, amigos, acertei o código , segue abaixo a solução :::

    DoCmd.RunSQL ("UPDATE TblPix SET TblPix.Descrição = '" & RS1("CodVenda") & "' WHERE TblPix.ValorPix = " & StrValorpix)

    Solução deixar a variável fora das aspas
    Obrigado !

    rgcooper gosta desta mensagem


      Data/hora atual: 23/5/2024, 00:57