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

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?

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

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