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]Como retornar o valor de 10 campos de um formulário

    avatar
    viniciusgnr
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 50
    Registrado : 24/05/2012

    [Resolvido]Como retornar o valor de 10 campos de um formulário Empty [Resolvido]Como retornar o valor de 10 campos de um formulário

    Mensagem  viniciusgnr em 8/3/2019, 12:11

    Saudações, amigos.

    Como faço para retornar, por exemplo, em uma msgbox, o valor de 10 campos diferentes sem digitar 10x o mesmo código?

    No meu formulário, tenho 10 campos com os nomes fictícios:

    Campo1
    Campo2
    Campo3
    etc.

    Eu sei fazer um loop e chamar o valor de um contador na msgbox, como por exemplo:
    Código:
    Dim contador As Integer
    contador = 1

    Do Until contador = 11
        MsgBox contador
        contador = contador + 1
    Loop
    Mas não consegui chamar o valor do Campo1, Campo2, Campo3 nesse esquema.

    Alguma sugestão de como fazer, ou quais dicas posso procurar net afora?

    Obrigado...


    Última edição por viniciusgnr em 8/3/2019, 16:17, editado 1 vez(es)
    avatar
    viniciusgnr
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 50
    Registrado : 24/05/2012

    [Resolvido]Como retornar o valor de 10 campos de um formulário Empty Re: [Resolvido]Como retornar o valor de 10 campos de um formulário

    Mensagem  viniciusgnr em 8/3/2019, 16:16

    Consegui descobrir como referenciar os campos.

    Baseado no exemplo que citei acima, faço a chamada do campo desta forma:
    Código:
    Me("Campo" & contador)
    Conforme o loop avança, adiciona 1 ao contador e assim tenho os 10 campos do formulário.

      Data/hora atual: 9/12/2019, 16:07