[Resolvido]Como criar campo na tabela (BE) atravéz do VBA?

Boa noite amigos,
Gostaria de saber como faço isso. Pois haverá ocasiões que será necessário criar campos novos em alguma tabela do back-end...

A idéia é na hora que eu for instalar uma nova atualização do Front-End, ele contenha os códigos necessários para criar novos campos em alguma tabela.
Grato

Código:

Private Sub VerificarCampo()
Dim DB As DAO.Database, Campo As Field, rs As DAO.Recordset
Dim CampoExiste As Boolean, NovoCampo As New DAO.Field
Dim tb As DAO.TableDef

BancoDados = App.Path & "\Clientes.mdb"
Set DB = DBEngine.OpenDatabase(BancoDados)
Set rs = DB.OpenRecordset("Clientes")
CampoExiste = False

For Each Campo In rs.Fields
    Debug.Print Campo.Size
    If Campo.Name = "Equipamentos" Then
        CampoExiste = True
    End If
Next

rs.Close
Set rs = Nothing
If CampoExiste = True Then
    Exit Sub
Else
    NovoCampo.Name = "Equipamentos"
    NovoCampo.Type = 10
    NovoCampo.Size = 50
    Set tb = DB.TableDefs("Clientes")
    tb.Fields.Append NovoCampo
End If

DB.Close
Set tb = Nothing
Set DB = Nothing

DB.Execute ("Update Clientes Set Equipamentos = '---' where equipamentos =''")
End Sub



Veja se ajuda...

Amigo, eu uso isso direto.

Tenha uma tabela de verificação no FrontEnd.

'Se o Campo CampoVerifica da tabela TabelaConfiguracoes for nulo, faz a inserção do campo
If IsNull(DLookup("[CampoVerifica]", "TabelaConfiguracoes")) = True Then
call InsereCampo()
'Atualiza campo para não inserir novamente
CurrentDb.Execute "UPDATE TabelaConfiguracoes Set [TabelaConfiguracoes].[CampoVerifica] = 'CampoInserido'"
Endif


Public Function InsereCampo()
Dim strAltera As String, strPass
Dim strBancoExterno As Access.Application
Dim strCaminho As String
strCaminho = DLookup("[Path_0]", "tblCaminhoBe") 'Aqui é o caminho do Back end, em meu caso está em uma tabela
strPass = "SenhaDoBackEnd"
Set strBancoExterno = CreateObject("Access.Application")
strBancoExterno.OpenCurrentDatabase strCaminho, , strPass
strAltera = "ALTER TABLE TabelaAAlterar ADD COLUMN CampoAInserir text(100);"
strBancoExterno.DoCmd.RunSQL strAltera
strBancoExterno.CloseCurrentDatabase
Set strBancoExterno = Nothing
End Function

Perfeito amigos. Muito obrigado pelas dicas.
O Código do topbr é mais apropriado para o que eu quero.
Muito obrigado mesmo!!!

Valeu, obrigado!!!

Bom dia TOP, se puder fazer um pequeno exemplo disto e nos enviar fico Grato..

Saudacoes.

Faço sim, mais tarde posto.

Ta ai o exemplo

http://maximoaccess.forumeiros.com/t3871-insere-campo-ou-altera-via-vba-em-back-end-com-senha#33011