[Resolvido]Alterar campo.name por VBA

Bom dia. Estou tentando alterar todos os nomes dos campos de um formulário por vba, mas ele fala que o formulário deve ser no modo design. No entanto no modo design ele não reconhece o comando que estou tentando.

Private Sub Detalhe_Click()
'Alterar Control.name em um click
Dim strActiveCtl As String
strActiveCtl = Screen.ActiveControl.Name

DoCmd.OpenReport "Relatorio", acViewDesign

Me.strActiveCtl.Name = 1

End Sub

Alguma Luz? obrigado

Se é um formulario porque está a chamar o OpenReport ?

Corrigindo ainda não dá certo: Ao abrir o formulário no modo design surge o seguinte erro na linha de código: me(strActiveCtl).name = 1


Erro em tempo de execução '2467'

A expressão que você inseriu refere-se a um objeto que foi fechado ou não existe.

Código:

Private Sub Detalhe_Click()
'Alterar Control.name em um click
Dim strActiveCtl As String
strActiveCtl = Screen.ActiveControl.Name
DoCmd.OpenForm "Formulário1", acViewDesign


Me(strActiveCtl).Name = 1


End Sub

Vamos por partes;

Você quer alterar o nome do campo no formulario via VBA certo ?

E quer fazer isso pressionando nesse mesmo formulario ?

Se for isso não vai dar não, só dá se for num outro formulario.

    DoCmd.OpenForm "SeuForm", acViewDesign
    Forms("SeuForm").Controls("SeuCampo").Name = "txt1"
    DoCmd.OpenForm "SeuForm", acNormal

Resolveu em parte meu problema. Teria como eu utilizar este código para alterar todos os campos do formulário? Sem ter que especificar o nome de cada campo? Algo assim:

Código:

For i = 0 To 100

Forms("formulário1").Controls(TODOS OS CAMPOS DO FORMULÁRIO).Name = ("Texto" & i)

Next i


Ola ;

Para todas as caixas de texto do formulario será assim;

Private Sub SeuBotão_Click()
'By JPaulo ® Maximo Access
Dim ctl As Control
Dim i As Integer
'abre o seu formulario em modo de estrutura
DoCmd.OpenForm "SeuForm", acDesign, , , , acHidden
'inicia com numeração zero
i = 0
'percorre todos os controles de caixa de texto
For Each ctl In Forms!SeuForm.Controls
       If (ctl.ControlType = acTextBox) Then
'aplica ao "txt" a numeração
   i = i + 1
            ctl.Name = "txt" & i
   End If
Next
'fecha o formulario e salva a alteração
DoCmd.Close acForm, "SeuForm", acSaveYes
End Sub

Perfeito Mestre. Obrigado

Obrigado pelo retorno o forum agradece.