MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

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 : 143
    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?

    daniloreiis
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 315
    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
    -------------------------------------------------------------------------------------------------------------------------------------------------
    [Você precisa estar registrado e conectado para ver este link.]

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

    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3350
    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!


    .................................................................................
    ============ Quer aprender Access em alta velocidade ? ============

    || [Você precisa estar registrado e conectado para ver esta imagem.] Acesse o site UsandoAccess.com.br e veja um ótimo kit de ensino que tenho para você.

    ===========================================================

    Motar
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 143
    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: Qui 08 Dez 2016, 14:05