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

    [Resolvido]db.TableDefs.Append tabela

    avatar
    Luís Antunes
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 391
    Registrado : 05/04/2016

    [Resolvido]db.TableDefs.Append tabela Empty [Resolvido]db.TableDefs.Append tabela

    Mensagem  Luís Antunes 28/12/2016, 22:14

    O código em baixo dá erro na última linha " tabela.Fields.Append tabela"
    Alguém, do grupo, pode-me dar uma dica?


    Código:
    Sub Criar_tabela()
        Dim ws As DAO.Workspace
        Dim db As DAO.Database
        Dim tabela As DAO.TableDef
        Dim campo As DAO.Field
        Set ws = DAO.DBEngine.Workspaces(0)
        Set db = CurrentDb
        'Especificação do nome da tabela a ser criada
        Set tabela = db.CreateTableDef("tabelaX")
        ' Especificação do nome, tipo e tamanho de um campo a ser
        ' criado na nova tabela
        Set campo = tabela.CreateField("campo1", dbText, 25)
        ' confirmação da criação de campo
        tabela.Fields.Append campo
        ' comfirmação da criação da tabela
        tabela.Fields.Append tabela
    End Sub

    Luís Antunes
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10614
    Registrado : 04/11/2009

    [Resolvido]db.TableDefs.Append tabela Empty Re: [Resolvido]db.TableDefs.Append tabela

    Mensagem  JPaulo 29/12/2016, 09:24

    Bom Dia !

    A instrução na ultima linha está errada.

    É assim:

    Código:
    db.TableDefs.Append tabela


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]db.TableDefs.Append tabela Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]db.TableDefs.Append tabela Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]db.TableDefs.Append tabela Folder_announce_new Instruções SQL como utilizar...
    avatar
    Luís Antunes
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 391
    Registrado : 05/04/2016

    [Resolvido]db.TableDefs.Append tabela Empty db.TableDefs.Append tabela

    Mensagem  Luís Antunes 29/12/2016, 15:52

    J. Paulo
    Obrigado pelo retorno.
    Fiz a substituição mas por razão incompreensível começou a dar erro na linha "Set db = CurrentDb".
    Estou a estudar por um livro "Programação em access com VBA". este livro diz na capa "Cobre as versões 2000, XP e 2003".
    Provavelmente a versão do 3.6 do DAO já estará desactualizada.
    Estou a utilizar o access 2007
    Boas festas
    Luís Antunes
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]db.TableDefs.Append tabela Empty Re: [Resolvido]db.TableDefs.Append tabela

    Mensagem  Avelino Sampaio 29/12/2016, 16:23

    Olá!

    veja este meu artigo:

    usandoaccess.com.br/dicas/criar-tabelas-create-table-vba.asp

    Sucesso!


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso irrestrito ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    avatar
    Luís Antunes
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 391
    Registrado : 05/04/2016

    [Resolvido]db.TableDefs.Append tabela Empty Re: [Resolvido]db.TableDefs.Append tabela

    Mensagem  Luís Antunes 7/4/2021, 19:57

    Boas

    Não dei seguimento a este tema para o projecto.
    Um dia pego no tema para estudo.

    Luís Antunes

      Data/hora atual: 14/6/2021, 07:09