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

    Criar campo e definir valor padrão via VBA/SQL

    Compartilhe

    a81796
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 23
    Registrado : 12/08/2014

    Criar campo e definir valor padrão via VBA/SQL

    Mensagem  a81796 em Qua 16 Nov - 6:26


    strAltera2 = "ALTER TABLE tbl_ROMANEIOS_DETALHES ADD COLUMN FLUXO_CX_OK text;"

    strBancoExterno.DoCmd.RunSQL strAltera2

    Estou usando esta sequência para criar o campo chamado "FLUXO_CX_OK" na tabela "tbl_TOMANEIOS" em meu banco de dados e está funcionando perfeitamente, porém preciso definir o valor padrão do campo para "N". Como eu faço?

    Tentei desta forma:
    strAltera2 = "ALTER TABLE tbl_ROMANEIOS_DETALHES ADD COLUMN FLUXO_CX_OK text default 'N';"

    Mas não funcionou.

    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: Criar campo e definir valor padrão via VBA/SQL

    Mensagem  Avelino Sampaio em Qua 16 Nov - 11:02

    Olá!

    atente as dicas deste meu artigo:

    Dica:  copie e cole o link abaixo no seu navegador:

    usandoaccess.com.br/dicas/dicas-praticas-de-access-parte-7.asp?id=1&idlista=219#inicio

    Bom estudo!


    .................................................................................
    ============ 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ê.

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

    a81796
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 23
    Registrado : 12/08/2014

    Criar campo e definir valor padrão via VBA/SQL

    Mensagem  a81796 em Qui 17 Nov - 5:38

    Mestre Avelino,

    Fui naquele link que me enviou e tentei adaptar ao código que estou usando, que por sinal veio daqui também, rsrs. Porém o código do link faz menção a um database que já está aberto. No meu caso não, eu criei um db apenas para fazer isso (criar campo em tabela e alterar propriedades nos campos). A tabela onde será feita a alteração está em outro caminho no HD.



    Public Sub fncCriarTabela()
    Dim strSql$
    Dim bd As dao.Database

    Set bd = CurrentDb

    strSql = "CREATE TABLE tblProdutos (" _
    "idProduto AUTOINCREMENT," & _
    "NomeProduto CHAR(50)," & _
    "DataLançamento DATE," & _
    "QuantidadeEstoque INTEGER," & _
    "ValorUnitário CURRENCY," & _
    "Observação MEMO," & _
    "Descontinuado YESNO)"
    '-------------------------------------
    'Executa a consulta, criando a tabela
    '-------------------------------------
    bd.Execute strSql
    '---------------------------------------------------
    'Acrescentando Valor Padrão ao campo DataLançamento
    '---------------------------------------------------
    bd.TableDefs("tblProdutos").Fields("DataLançamento").DefaultValue = "=date()"
    End Sub

      Data/hora atual: Sex 2 Dez - 23:35