[Resolvido]Valor com duas casas decimais

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

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

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

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

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

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

ronaldojr1

Ronaldo

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

Problema resolvido


Abraços

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

Tópico Resolvido