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]Textbox + array: é possível?

    Compartilhe

    Paulo_CWB
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 20
    Registrado : 13/09/2013

    [Resolvido]Textbox + array: é possível?

    Mensagem  Paulo_CWB em 11/6/2018, 18:42

    Boa tarde.

    Necessito tornar visível dez textbox que estão "invisíveis", mas não quero fazer instrução no VBA de uma por uma.
    Pensei o seguinte: criar as dez caixas, com nomes como CAIXA(1), CAIXA(2), CAIXA(3), etc.

    E, rocar um "for - next" para preenche-las:

    FOR A = 1 to 10
    Caixa(A).visible = True
    NEXT A

    Mas, não está funcionando.

    Isso é possível?
    Alguma outra alternativa?

    Paulo

    Paulo_CWB
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 20
    Registrado : 13/09/2013

    Re: [Resolvido]Textbox + array: é possível?

    Mensagem  Paulo_CWB em 11/6/2018, 19:18

    Ops!
    Agora consegui com o seguinte:

    Mudando o nome das textbox para CAIXA1, CAIXA2, CAIXA3, etc.

    Còdigo:
    Código:
    Dim AAA As Integer, NUMCAIXA As String

    For AAA = 1 To 3
       NUMCAIXA = "CAIXA" & AAA
       Me.Controls(NUMCAIXA).Visible = True
    Next AAA


    Funcionou, mas aceito sugestões.

    Paulo
    avatar
    CassioFabre
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 728
    Registrado : 18/01/2013

    Re: [Resolvido]Textbox + array: é possível?

    Mensagem  CassioFabre em 11/6/2018, 19:29

    Boa tarde,

    Acho que a única coisa pra dar uma "melhorada" no seu código é retirar a variável NUMCAIXA. Não vai dar diferença nenhuma em termos de desempenho, mas é mais "profissional" quando se olha para exclusão de variáveis inúteis, que no nível correto, pode causar bastante perda de desempenho.

    Código:
    For i = 1 To 3 Step 0
      Me.Controls("CAIXA" & i).Visible = True
      i = i + 1
    Next i

    Abraço.


    .................................................................................
    Só não tem código pra morte!

    Paulo_CWB
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 20
    Registrado : 13/09/2013

    Re: [Resolvido]Textbox + array: é possível?

    Mensagem  Paulo_CWB em 11/6/2018, 19:44

    Valeu, obrigado.
    avatar
    CassioFabre
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 728
    Registrado : 18/01/2013

    Re: [Resolvido]Textbox + array: é possível?

    Mensagem  CassioFabre em 25/6/2018, 11:17

    Bom dia,

    Não se esqueça de marcar o tópico como resolvido.

    Abraço.


    .................................................................................
    Só não tem código pra morte!

      Data/hora atual: 26/9/2018, 02:30