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


3 participantes

    [Resolvido]Valor com duas casas decimais

    avatar
    Carlao2
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 264
    Registrado : 19/10/2016

    [Resolvido]Valor com duas casas decimais Empty [Resolvido]Valor com duas casas decimais

    Mensagem  Carlao2 18/7/2017, 12:36

    Senhores, Bom dia

    Estou precisando de um help à saber:

    No meu código, na linha em tempo de execução

    CurrentDb.Execute ("ALTER TABLE FisicoTot ADD COLUMN CUSTO Double;")

    Ele cria a coluna, porém após o procedimento ele me apresenta um resultado com dizima.

    Preciso que essa coluna ao ser criada, seja fixa com duas casas decimais, e não estou conseguindo esse feito.

    Alguém, por favor, poderia me ajudar

    Grato
    ronaldojr1
    ronaldojr1
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 419
    Registrado : 01/08/2011

    [Resolvido]Valor com duas casas decimais Empty Re: [Resolvido]Valor com duas casas decimais

    Mensagem  ronaldojr1 18/7/2017, 14:26

    bom dia
    aparentemente vc quer duas casas decimais por se tratar de dinheiro, se for o caso altere o tipo do campo para "MONEY"
    avatar
    Carlao2
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 264
    Registrado : 19/10/2016

    [Resolvido]Valor com duas casas decimais Empty Re: [Resolvido]Valor com duas casas decimais

    Mensagem  Carlao2 18/7/2017, 14:41

    Bom dia ronaldojr1

    Quero antes de tudo, agradecer imensamente por sua ajuda, e, dizer que, fiz o sugerido por você, e em nenhuma linha apresentou resultado com dizima.

    Estou dando o tópico como resolvido.

    "O que seria de nós novatos sem a ajuda dos mestres"

    Obrigado
    ronaldojr1
    ronaldojr1
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 419
    Registrado : 01/08/2011

    [Resolvido]Valor com duas casas decimais Empty Re: [Resolvido]Valor com duas casas decimais

    Mensagem  ronaldojr1 18/7/2017, 15:10

    Obrigado,
    fico feliz por ter ajudado.
    o forum agradece o retorno
    sucesso
    avatar
    Carlao2
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 264
    Registrado : 19/10/2016

    [Resolvido]Valor com duas casas decimais Empty Re: [Resolvido]Valor com duas casas decimais

    Mensagem  Carlao2 18/7/2017, 15:20

    ronaldojr1

    Me desculpe.

    Sei que já dei o tópico como encerrado, mas o usuário desse módulo quer saber se tem como criar as colunas fixa com duas casas decimais, porém sem o símbolo R$.
    Nesse caso tem como colocar algum outro tipo no campo, lembro que se colocar Double ele dá alguns resultados com dizima


    Grato
    ronaldojr1
    ronaldojr1
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 419
    Registrado : 01/08/2011

    [Resolvido]Valor com duas casas decimais Empty Re: [Resolvido]Valor com duas casas decimais

    Mensagem  ronaldojr1 18/7/2017, 20:24

    boa tarde,
    segue novo codigo

    Código:

    Public Function testeAlterColumn()

    Dim strSQL As String

    strSQL = "ALTER TABLE SUA_TABELA ALTER COLUMN Seu_Campo DOUBLE"
    DoCmd.RunSQL strSQL


      Dim db As DAO.Database
      Dim tdef As DAO.TableDef
      Dim fdef As DAO.Field
      Dim pdef As DAO.Property
      Set db = CurrentDb()
      
      Set tdef = db.TableDefs("Sua Tabela")
      Set fdef = tdef.Fields("Seu Campo")
        
      Set pdef = fdef.CreateProperty("Format", dbText, "Fixed")
          fdef.Properties.Append pdef
    db.Close
    Set db = Nothing

    End Function
    avatar
    Carlao2
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 264
    Registrado : 19/10/2016

    [Resolvido]Valor com duas casas decimais Empty Re: [Resolvido]Valor com duas casas decimais

    Mensagem  Carlao2 18/7/2017, 21:22

    ronaldojr1

    Ronaldo

    Mais uma vez, muito obrigado.
    O código funcionou perfeitamente.

    Problema resolvido


    Abraços
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8443
    Registrado : 05/11/2009

    [Resolvido]Valor com duas casas decimais Empty Re: [Resolvido]Valor com duas casas decimais

    Mensagem  Alexandre Neves 18/7/2017, 21:54

    Boa noite,
    Para dar o tema por resolvido, tem de premir o botão "Resolvido" na zona inferior direita do formulário do fórum


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    Carlao2
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 264
    Registrado : 19/10/2016

    [Resolvido]Valor com duas casas decimais Empty Re: [Resolvido]Valor com duas casas decimais

    Mensagem  Carlao2 19/7/2017, 13:49

    Tópico Resolvido

    Conteúdo patrocinado


    [Resolvido]Valor com duas casas decimais Empty Re: [Resolvido]Valor com duas casas decimais

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 16:52