[Resolvido]Acrescentar uma Coluna a uma Tabela já existente via VBA

Como posso acrescentar uma nova coluna a uma Tabela já existente via VBA

Teste por favor

Public Sub addColumn()
Dim strField As String
Dim curDatabase As Object
Dim tblTeste As Object
Dim fldNew As Object

Set curDatabase = CurrentDb
Set tblTeste = curDatabase.TableDefs("Teste")

strField = "TesteColumn"

Set fldNew = tblTeste.CreateField(strField, dbLong)
tblTeste.Fields.Append fldNew
End Sub

ou simplesmente

Pode aplicar no evento VBA ao clikar de um botão

CurrentDb.Execute ("ALTER TABLE suatabela ADD COLUMN novacoluna Text;")

Text é o formato para a nova coluna.

Muito Obrigado a Ambos ... os dois procedimentos funcionam

Obrigado pelo retorno e bom trabalho

grande vieira este topico não estaria melhor na sala VBA ?

aqui supostamente será referente a tabelas.

Tem toda a razão, é para lá que vai (rsrsrs)