MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Valor com duas casas decimais

    Compartilhe

    Carlao2
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    [Resolvido]Valor com duas casas decimais

    Mensagem  Carlao2 em Ter 18 Jul 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
    avatar
    ronaldojr1
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Re: [Resolvido]Valor com duas casas decimais

    Mensagem  ronaldojr1 em Ter 18 Jul 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"

    Carlao2
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Re: [Resolvido]Valor com duas casas decimais

    Mensagem  Carlao2 em Ter 18 Jul 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
    avatar
    ronaldojr1
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Re: [Resolvido]Valor com duas casas decimais

    Mensagem  ronaldojr1 em Ter 18 Jul 2017, 15:10

    Obrigado,
    fico feliz por ter ajudado.
    o forum agradece o retorno
    sucesso

    Carlao2
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Re: [Resolvido]Valor com duas casas decimais

    Mensagem  Carlao2 em Ter 18 Jul 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
    avatar
    ronaldojr1
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Re: [Resolvido]Valor com duas casas decimais

    Mensagem  ronaldojr1 em Ter 18 Jul 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

    Carlao2
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Re: [Resolvido]Valor com duas casas decimais

    Mensagem  Carlao2 em Ter 18 Jul 2017, 21:22

    ronaldojr1

    Ronaldo

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

    Problema resolvido


    Abraços
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: [Resolvido]Valor com duas casas decimais

    Mensagem  Alexandre Neves em Ter 18 Jul 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

    Carlao2
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Re: [Resolvido]Valor com duas casas decimais

    Mensagem  Carlao2 em Qua 19 Jul 2017, 13:49

    Tópico Resolvido

      Data/hora atual: Ter 21 Nov 2017, 10:06