MaximoAccess

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

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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

    [Resolvido]popular um array do zero

    adriano_byte
    adriano_byte
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 115
    Registrado : 12/12/2013

    [Resolvido]popular um array do zero Empty [Resolvido]popular um array do zero

    Mensagem  adriano_byte em 15/10/2018, 14:36

    Ola a todos! ja procurei na internet e não encontrei.
    Como faço para polupar um array do zero?

    só existe exemplo de array já com as posições.

    preciso colocar uma caixa de texto e lá no retorno da caixa imediate me dizer que os nomes estão sendo inseridos ou pela msgbox mesmo.

    Sub arrayNomes()

    Dim NOME(1 To 7) As String

    For i = 1 To 7
    NOME(i) = NOME(i) + ", " + txtNome
    Debug.Print NOME(i)
    Next i
    End Sub

    este código está com o array em branco,quando eu digito o nome para inserir ele preenche todas as posições.

    quando eu digitar um nome deve ocupar apenas uma posição. quando eu digitar outro, deve ter o nome anterior e o atual que digitei, não posso em hipótese alguma usar tabela para isso.


    Última edição por adriano_byte em 16/10/2018, 21:09, editado 1 vez(es)
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2095
    Registrado : 22/11/2016

    [Resolvido]popular um array do zero Empty Re: [Resolvido]popular um array do zero

    Mensagem  DamascenoJr. em 15/10/2018, 17:04

    Veja se o arquivo em anexo ajuda em como fazer. Desenvolvido e access 2010 - 32 bits
    Anexos
    [Resolvido]popular um array do zero AttachmentDatabase4.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (20 Kb) Baixado 9 vez(es)
    thiagomcosta
    thiagomcosta
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 368
    Registrado : 23/01/2017

    [Resolvido]popular um array do zero Empty Re: [Resolvido]popular um array do zero

    Mensagem  thiagomcosta em 15/10/2018, 17:17

    Código:
    Dim Nome As Variant

    Nome = Array()

    'Cada vez que rodar o código abaixo o VBA inclui um novo elemento no final da Array e depois joga o valor de NovoNome
    ReDim Preserve Nome(UBound(Nome) + 1)
    Nome(UBound(Nome)) = NovoNome
    adriano_byte
    adriano_byte
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 115
    Registrado : 12/12/2013

    [Resolvido]popular um array do zero Empty IvanJr, muito obrigado era isso mesmo.

    Mensagem  adriano_byte em 16/10/2018, 21:08

    tks.

      Data/hora atual: 3/7/2020, 18:29