[Resolvido]Alterar propriedades "Formato" e "Casas Decimais" de um campo em uma tabela via código VBA

Boa tarde,

Pessoal,  como faço para alterar as propriedades "Formato" e "Casas Decimais" de um determinado campo de uma tabela via código VBA?

Grata,

Que tipo de campo quer formatar ?


para casa decimais costumo utilizar o Round
Ex
Round(SeuCampo,2) as Valor
Onde 2 é a quantidade de casas decimais depois da virgula.

Ja o formatar, se deseja formatar uma data pode exemplo eu uso
Ex. se tem uma data no formato de "10/02/2013 10:09:03" e deseja passar para "10/02/13 10:09"
Format(SuaData,'dd/mm/yy hh:nn') as DataHora


Nao sei se é isso que deseja mas qualquer coisa avisa,


Saudações

Na verdade, estou criando uma tabela cujo os dados serão importados de uma planilha excel. Todavia gostaria de modificar as propriedades de alguns campos via VBA.

Vou postar uma parte do código, para melhor entendimento, ok?

Sub DILCONTRATOS()


   (...)
   
   
  'excluir tabela existente
   On Error Resume Next
   SQL = "DROP TABLE" & Tabela
   db.Execute SQL
           
   'criar nova tabela
   SQL = "CREATE TABLE" & Tabela & "(" & _
         "TipoConta Text (38)," & _
         "UG Text (6)," & _
         "CC Text (14)," & _
         "MES Text (9)," & _
         "VALOR Double);"
   db.Execute SQL

Essa parte do código não está funcionando.
É assim que se faz?    

   db.TableDefs(Tabela).Fields("VALOR").Properties("Casas Decimais") = 2

Aguardo resposta.

Boa noite Lidiane,

Essa é do mestre J Paulo:

Código:

  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("SuaTabela")
  Set fdef = tdef.fields("SeuCampo")
      DoCmd.RunSQL "ALTER TABLE SuaTabela ALTER COLUMN SeuCampo DOUBLE"
  Set pdef = fdef.CreateProperty("Format", dbText, "Fixed")
      fdef.Properties.Append pdef
  db.TableDefs("SuaTabela").fields("SeuCampo").Properties("DecimalPlaces") = 0
  db.Close
Set db = Nothing

Nivaldo.

Muito obrigada.

Boa tarde,
Se tiver resolvido, prima o botão apropriado.