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

    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 2016, 11: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.
    avatar
    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  Avelino Sampaio em Qua 16 Nov 2016, 16: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!

    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 2016, 10: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 21 Jul 2017, 13:45