MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

3 participantes

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

    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3490
    Registrado : 21/04/2011

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

    Mensagem  Marcelo David 15/8/2011, 22:36

    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


    .................................................................................
    Aprenda como criar formulário desacoplado.
    Clique aqui e conheça o treinamento.
    [Resolvido]Como criar campo na tabela (BE) atravéz do VBA? Marcel11
    HARYSOHN
    HARYSOHN
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12227
    Registrado : 01/03/2011

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

    Mensagem  HARYSOHN 15/8/2011, 23:16

    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...
    Gilberto Rocha
    Gilberto Rocha
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1028
    Registrado : 21/01/2010

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

    Mensagem  Gilberto Rocha 15/8/2011, 23:18

    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
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3490
    Registrado : 21/04/2011

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

    Mensagem  Marcelo David 16/8/2011, 02:57

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


    .................................................................................
    Aprenda como criar formulário desacoplado.
    Clique aqui e conheça o treinamento.
    [Resolvido]Como criar campo na tabela (BE) atravéz do VBA? Marcel11
    Gilberto Rocha
    Gilberto Rocha
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1028
    Registrado : 21/01/2010

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

    Mensagem  Gilberto Rocha 16/8/2011, 03:17

    Valeu, obrigado!!!
    HARYSOHN
    HARYSOHN
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12227
    Registrado : 01/03/2011

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

    Mensagem  HARYSOHN 16/8/2011, 11:37

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

    Saudacoes.
    Gilberto Rocha
    Gilberto Rocha
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1028
    Registrado : 21/01/2010

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

    Mensagem  Gilberto Rocha 16/8/2011, 15:28

    Faço sim, mais tarde posto.
    Smile
    Gilberto Rocha
    Gilberto Rocha
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1028
    Registrado : 21/01/2010

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

    Mensagem  Gilberto Rocha 16/8/2011, 16:28

    Ta ai o exemplo

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

      Data/hora atual: 22/1/2022, 18:01