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


2 participantes

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

    avatar
    a81796
    Novato
    Novato


    Respeito às regras : 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 Empty Criar campo e definir valor padrão via VBA/SQL

    Mensagem  a81796 16/11/2016, 09: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
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Avelino Sampaio 16/11/2016, 14: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!


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso irrestrito ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    avatar
    a81796
    Novato
    Novato


    Respeito às regras : 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 Empty Criar campo e definir valor padrão via VBA/SQL

    Mensagem  a81796 17/11/2016, 08: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

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 17:14