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


2 participantes

    Alterar nome da tabela via VBA

    wpitarelli
    wpitarelli
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 110
    Registrado : 12/07/2010

    Alterar nome da tabela via VBA Empty Alterar nome da tabela via VBA

    Mensagem  wpitarelli 23/12/2012, 18:02

    Tenho um back-end com senha, onde queria renomear a tabela e não estou conseguindo. Tipo tb_clientes para tblclientes.
    Usei os seguintes comandos.

    DoCmd.Rename tb_clientes, acTable, tblclientes

    *****************

    Function RenameTable(OldName As String, NewName As String)
    For Each tdf In Base.TableDefs
    If tdf.tb_clientes = OldName Then
    tdf.tblclientes = NewName
    Base.TableDefs.Refresh
    End If
    Next
    Set fdf = Nothing
    Set tdf = Nothing
    Set Base = Nothing
    End Function

    *************

    'ALTER TABLE "nome_antigo" RENAME TO "nome_novo"

    *************

    Nenhum desses funcionou.
    Peço ao amigos se possível que me ajudem.
    Pois faço atualização do sistema mandando um arquivo para os mesmos e eles só clicam e atualiza.

    Abraços e boas festas a todos
    Anexos
    Alterar nome da tabela via VBA AttachmentwAtualiza.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (73 Kb) Baixado 27 vez(es)


    Última edição por wpitarelli em 24/12/2012, 20:50, editado 2 vez(es)
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    Alterar nome da tabela via VBA Empty Re: Alterar nome da tabela via VBA

    Mensagem  criquio 23/12/2012, 18:27

    Tente assim:
    Código:
        Dim appAccess As Access.Application, T As Object

        Set appAccess = CreateObject("Access.Application")
        appAccess.OpenCurrentDatabase CurrentProject.Path & "\Nome do banco.mdb", False
       
        For Each T In appAccess.CurrentData.AllTables
            If T.Name = "NomeAntigo" Then
                appAccess.DoCmd.Rename "NovoNome", acTable, "NomeAntigo"
            End If
        Next
       
        appAccess.CloseCurrentDatabase
        Set appAccess = Nothing


    .................................................................................
    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.

    wpitarelli
    wpitarelli
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 110
    Registrado : 12/07/2010

    Alterar nome da tabela via VBA Empty Re: Alterar nome da tabela via VBA

    Mensagem  wpitarelli 29/12/2012, 16:50

    Criquio,
    veja o meu anexo e se possivel me ajude.
    Abraços

    Conteúdo patrocinado


    Alterar nome da tabela via VBA Empty Re: Alterar nome da tabela via VBA

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 29/3/2024, 01:21