MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Alterar campo.name por VBA

    Compartilhe

    Antonybrazil
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 102
    Registrado : 13/04/2011

    [Resolvido]Alterar campo.name por VBA

    Mensagem  Antonybrazil em Qui 13 Mar 2014, 13:32

    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

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    Registrado : 04/11/2009

    Re: [Resolvido]Alterar campo.name por VBA

    Mensagem  JPaulo em Qui 13 Mar 2014, 14:23

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


    .................................................................................
    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    Antonybrazil
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 102
    Registrado : 13/04/2011

    Re: [Resolvido]Alterar campo.name por VBA

    Mensagem  Antonybrazil em Qui 13 Mar 2014, 16:44

    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

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    Registrado : 04/11/2009

    Re: [Resolvido]Alterar campo.name por VBA

    Mensagem  JPaulo em Qui 13 Mar 2014, 16:50

    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



    .................................................................................
    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    Antonybrazil
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 102
    Registrado : 13/04/2011

    Re: [Resolvido]Alterar campo.name por VBA

    Mensagem  Antonybrazil em Sex 14 Mar 2014, 04:01

    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

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    Registrado : 04/11/2009

    Re: [Resolvido]Alterar campo.name por VBA

    Mensagem  JPaulo em Sex 14 Mar 2014, 12:08

    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


    .................................................................................
    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    Antonybrazil
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 102
    Registrado : 13/04/2011

    Re: [Resolvido]Alterar campo.name por VBA

    Mensagem  Antonybrazil em Sex 14 Mar 2014, 13:14

    Perfeito Mestre. Obrigado

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    Registrado : 04/11/2009

    Re: [Resolvido]Alterar campo.name por VBA

    Mensagem  JPaulo em Sex 14 Mar 2014, 13:18

    Obrigado pelo retorno o forum agradece.


    .................................................................................
    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

      Data/hora atual: Dom 04 Dez 2016, 14:13