MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

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 : 108
    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
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9697
    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 ?


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

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

    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 : 108
    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
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9697
    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



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

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

    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 : 108
    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
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9697
    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


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

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

    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 : 108
    Registrado : 13/04/2011

    Re: [Resolvido]Alterar campo.name por VBA

    Mensagem  Antonybrazil em Sex 14 Mar 2014, 13:14

    Perfeito Mestre. Obrigado
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9697
    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.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

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

    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 19 Nov 2017, 21:25