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

    Alterar propriedades "Formato" de vários campos em uma tabela via código VBA

    avatar
    ARIPO
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 112
    Registrado : 09/02/2010

    Alterar propriedades "Formato" de vários campos em uma tabela via código VBA Empty Alterar propriedades "Formato" de vários campos em uma tabela via código VBA

    Mensagem  ARIPO 26/3/2021, 13:16

    Bom dia pessoal!

    Gostaria de adaptar este condigo a seguinte situação, com ele consigo altera a formatação somente de um campo
    teria como que este mesmo código formata-se vários campos?

    Código:
    Function AltCampo_Quantidade()

      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("tbl_Salario")
      Set fdef = tdef.Fields("Salarios")
          DoCmd.RunSQL "ALTER TABLE tbl_Salario ALTER COLUMN Salarios DOUBLE"
      Set pdef = fdef.CreateProperty("Format", dbText, "Standard")
          fdef.Properties.Append pdef
      Set db = Nothing

    End Functio

    ARIPO e Belobo gostam desta mensagem

    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2816
    Registrado : 22/11/2016

    Alterar propriedades "Formato" de vários campos em uma tabela via código VBA Empty Re: Alterar propriedades "Formato" de vários campos em uma tabela via código VBA

    Mensagem  DamascenoJr. 27/3/2021, 11:44

    Tópico retirado da sala de "Consultas" por não ser uma dúvida relacionada a este tipo de objeto.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.

      Data/hora atual: 14/6/2021, 07:19