Como posso acrescentar uma nova coluna a uma Tabela já existente via VBA
2 participantes
[Resolvido]Acrescentar uma Coluna a uma Tabela já existente via VBA
dave123- Intermediário
- Respeito às regras :
Sexo :
Localização :
Mensagens : 61
Registrado : 07/03/2011
vieirasoft- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 7304
Registrado : 11/05/2010
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
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
Convidad- Convidado
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.
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.
dave123- Intermediário
- Respeito às regras :
Sexo :
Localização :
Mensagens : 61
Registrado : 07/03/2011
Muito Obrigado a Ambos ... os dois procedimentos funcionam
vieirasoft- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 7304
Registrado : 11/05/2010
Obrigado pelo retorno e bom trabalho
Convidad- Convidado
grande vieira este topico não estaria melhor na sala VBA ?
aqui supostamente será referente a tabelas.
aqui supostamente será referente a tabelas.
vieirasoft- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 7304
Registrado : 11/05/2010
Tem toda a razão, é para lá que vai (rsrsrs)
Conteúdo patrocinado
» [Resolvido]Comparar coluna numa tabela com uma coluna de um ficheiro excel
» [Resolvido]Verificar Registro existente na tabela
» [Resolvido]Acrescentar campo em tabela temporária
» [Resolvido]Verificar Registro existente na tabela ao excluir produto.
» [Resolvido] Importar dados Excel editando o existente e incluindo o não existente
» [Resolvido]Verificar Registro existente na tabela
» [Resolvido]Acrescentar campo em tabela temporária
» [Resolvido]Verificar Registro existente na tabela ao excluir produto.
» [Resolvido] Importar dados Excel editando o existente e incluindo o não existente