InícioPessoal, 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?
2 participantes
Alterar nome das colunas e automaticamente propagar a mudança nas consultas, formulários etc..
TMENDES- Novato
- Respeito às regras :
Sexo :
Localização :
Mensagens : 42
Registrado : 19/02/2023
- Mensagem nº1
Alterar nome das colunas e automaticamente propagar a mudança nas consultas, formulários etc..
TMENDES 26/9/2023, 19:35
crysostomo- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 2680
Registrado : 23/01/2018
- Mensagem nº2
Re: Alterar nome das colunas e automaticamente propagar a mudança nas consultas, formulários etc..
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í
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.
TMENDES- Novato
- Respeito às regras :
Sexo :
Localização :
Mensagens : 42
Registrado : 19/02/2023
- Mensagem nº3
Re: Alterar nome das colunas e automaticamente propagar a mudança nas consultas, formulários etc..
TMENDES 26/9/2023, 22:58
Poxa muito obrigado. Agradeço pela atenção. Vou testar sim. Agradeço ao amigo.
Conteúdo patrocinado
- Mensagem nº4
Re: Alterar nome das colunas e automaticamente propagar a mudança nas consultas, formulários etc..
Conteúdo patrocinado
|
|
|