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]Alterar campo de tabela via vba e ado

    Compartilhe

    Motar
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 149
    Registrado : 03/08/2010

    [Resolvido]Alterar campo de tabela via vba e ado

    Mensagem  Motar em Qui 15 Jan 2015, 19:39

    Viva
    Tenho um código que elimina e cria campos em uma tabela temporária.
    O problema é que a propriedade 'Necessário' por defeito é igual a Sim, tem como alterar para não via vba?
    avatar
    daniloreiis
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 330
    Registrado : 14/02/2011

    Alterar campo de tabela via vba e ado

    Mensagem  daniloreiis em Qui 15 Jan 2015, 20:10

    Olá amigo boa tarde!

    poderia disponibilizar o projeto para melhor ajudar?


    .................................................................................
    Att, Danilo Reis
    -------------------------------------------------------------------------------------------------------------------------------------------------

    Se alguém não quiser trabalhar, não coma também.
    2 Tessalonicenses 3:10
    avatar
    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3430
    Registrado : 04/04/2010

    Re: [Resolvido]Alterar campo de tabela via vba e ado

    Mensagem  Avelino Sampaio em Qui 15 Jan 2015, 20:34

    Olá!

    Algo assim:

    Dim bd As DAO.Database
    Dim tdf As DAO.TableDef
    Set bd = OpenDatabase("c:\suapasta\seuBd.accdb")
    Set tdf = bd.TableDefs("Suatabela")
    tdf.Fields.Append tdf.CreateField("NovoCampo", dbText, 5)
    tdf.Fields("NovoCampo").Required = False
    Set tdf = Nothing
    Set bd = Nothing


    Sucesso!

    Motar
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 149
    Registrado : 03/08/2010

    Re: [Resolvido]Alterar campo de tabela via vba e ado

    Mensagem  Motar em Sex 16 Jan 2015, 17:38

    daniloreiis:
    Obrigado pela disponibilidade em ajudar

    Avelino Sampaio:
    Valeu pela dica e disponibilidade em ajudar
    O comando tdf.Fields("NovoCampo").Required = False dá erro

    Utilizei este e está a funcionar
    CurrentDb.Execute ("ALTER TABLE MinhaTabela ADD COLUMN NO" & NumNo & " Text;")
    Desta forma a propriedade "Necessário" fica por defeito igual a "Não", o motivo da diferença não sei

      Data/hora atual: Ter 12 Dez 2017, 17:48