Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access
Meu novo site: www.vcssistemas.com.br Clique aqui e veja um vídeo que explica como fazer pesquisas no forum. DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo: 1 - faça uma cópia do aplicativo 2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar 3 - use o Compactar/Reparar 4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem) Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário. Positive as mensagens que achar útil, no canto superior direito delas. |
Public Function adicionarcampotbl()
Dim Banco As Database
'Inserir o endereço do banco de dados
Set Banco = OpenDatabase("Insira o endereço completo do banco de dados aqui")
DoCmd.SetWarnings (WarningsOff)
'Substitua o NomeDaSuaTabela e o NomeDoCampo sem nada, já q não precisa de aspas.
'no TIPO substitua pelo tipo, como DOUBLE, LONG, etc.
'Não esqueça de no final sempre por o ; antes de fechar as aspas e parênteses.
Banco.Execute ("ALTER TABLE NomeDaSuaTabela ADD COLUMN NomeDoCampo TIPO;")
RefreshDatabaseWindow
End Function
toxicsquall 3/5/2012, 17:07