[Resolvido]db.TableDefs.Append tabela

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

Bom Dia !

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

É assim:

Código:

db.TableDefs.Append tabela

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

Boas

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

Luís Antunes