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 das colunas e automaticamente propagar a mudança nas consultas, formulários etc..

    avatar
    TMENDES
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 43
    Registrado : 19/02/2023

    atualizar automaticamente - Alterar nome das colunas e automaticamente propagar a mudança nas consultas, formulários etc.. Empty Alterar nome das colunas e automaticamente propagar a mudança nas consultas, formulários etc..

    Mensagem  TMENDES 26/9/2023, 19:35

    Pessoal, gostaria de saber se existe um jeito de alterar o nome de uma ou varias colunas de maneira que essa alteração se propague automaticamente para todos os campos onde o antigo nome era usado (consultas, formulários e relatórios). Ou isso não existe e eu terei que alterar manualmente cada campo onde o novo nome será usado?
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2746
    Registrado : 23/01/2018

    atualizar automaticamente - Alterar nome das colunas e automaticamente propagar a mudança nas consultas, formulários etc.. Empty Re: Alterar nome das colunas e automaticamente propagar a mudança nas consultas, formulários etc..

    Mensagem  crysostomo 26/9/2023, 21:49

    Boa tarde, eu tinha feito para um amigo aqui e deu certo. De acordo que muda a tabela vai mudando os campos do formulários.
    Aplica aí
    Código:
    Private Sub btMudar_Click()
    Call RenomearCamposEmTabelasEConsultas
    End Sub
    '------------
    Sub RenomearCamposEmTabelasEConsultas()
        Dim db As DAO.Database
        Dim tdf As DAO.TableDef
        Dim qdf As DAO.QueryDef
        Dim novoNome As String
        Dim campoAntigo As String
        
        Set db = CurrentDb
    campoAntigo = Me.nomeDoCampo ' Substitua pelo nome do campo antigo
     novoNome = "Nome" ' Substitua pelo novo nome desejado
        ' aqui voce colocar o nome e aonde estiver esse nome ele muda automático
        For Each tdf In db.TableDefs
            If FieldExists(tdf, campoAntigo) Then
                tdf.Fields(campoAntigo).Name = novoNome
            End If
        Next tdf
        
        For Each qdf In db.QueryDefs
            If InStr(qdf.SQL, campoAntigo) > 0 Then
                qdf.SQL = Replace(qdf.SQL, campoAntigo, novoNome)
            End If
        Next qdf
        
        MsgBox "Campos renomeados com sucesso!", vbInformation
        
        db.Close
        Set db = Nothing
    End Sub

    Function FieldExists(tdf As DAO.TableDef, fieldName As String) As Boolean
        On Error Resume Next
        FieldExists = Not (tdf.Fields(fieldName) Is Nothing)
        On Error GoTo 0
    End Function


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    avatar
    TMENDES
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 43
    Registrado : 19/02/2023

    atualizar automaticamente - Alterar nome das colunas e automaticamente propagar a mudança nas consultas, formulários etc.. Empty Re: Alterar nome das colunas e automaticamente propagar a mudança nas consultas, formulários etc..

    Mensagem  TMENDES 26/9/2023, 22:58

    Poxa muito obrigado. Agradeço pela atenção. Vou testar sim. Agradeço ao amigo.

    Conteúdo patrocinado


    atualizar automaticamente - Alterar nome das colunas e automaticamente propagar a mudança nas consultas, formulários etc.. Empty Re: Alterar nome das colunas e automaticamente propagar a mudança nas consultas, formulários etc..

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2024, 21:23