MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

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

2 participantes

    [Resolvido]Ajuda - Pegar um valor no listBOX e armazenar em uma variável

    avatar
    hajvirtual
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 07/06/2016

    [Resolvido]Ajuda - Pegar um valor no listBOX e armazenar em uma variável Empty [Resolvido]Ajuda - Pegar um valor no listBOX e armazenar em uma variável

    Mensagem  hajvirtual 14/6/2016, 14:42

    Pessoal, bom dia!

    Minha primeira postagem aqui no fórum, caso eu cometa algum erro me avisem rs... Trabalho ha algum tempo com access, no entanto nunca utilizei formulários e muito pouco VBA.

    Minha duvida parece ser bem básica, procurei nos tópicos já abertos a resposta mas não encontrei o que preciso exatamente.

    Tenho um formulário de Pesquisa, com um ListBox e um campo texto onde realizo a pesquisa (Até aí tudo bem). Quando eu encontrar o registro desejado, eu gostaria de dar um duplo clique sobre o mesmo para abrir outro formulário com maiores detalhes do registro selecionado (que buscarei em outra consulta já pronta no banco de dados).

    O que eu preciso é no momento do duplo clique "pegar" o campo chave que está no ListBox, armazenar em uma variável para utilizá-lo como chave para a consulta que alimentará formulário de detalhes.

    Estou tentando utilizar o codigo abaixo para armazenar o campo chave da consulta. Essa chave está armazenado na coluna 5 do ListBox. Mas está dando erro porque com certeza estou fazendo algo errado.

       Dim CODIGO As Integer
       CODIGO = lstImoveis.Column(5)

    Desde já agradeço!
    1Abraço!


    Última edição por hajvirtual em 15/6/2016, 23:42, editado 1 vez(es)
    Gilberto Rocha
    Gilberto Rocha
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1028
    Registrado : 21/01/2010

    [Resolvido]Ajuda - Pegar um valor no listBOX e armazenar em uma variável Empty Re: [Resolvido]Ajuda - Pegar um valor no listBOX e armazenar em uma variável

    Mensagem  Gilberto Rocha 14/6/2016, 14:55

    Crie a variavel Codigo como global em um módulo.
    Global Codigo as integer

    Crie uma função para pegar a variável

    Public Function fncCod()
    fncCod = Codigo
    end function

    Passe o valor da listbox para a variável

    Filtre sua consulta (Campo codigo) do novo formulário com a função fncCod()


    .................................................................................
    Resolveu? Clique em resolvido!
    Sistema para administração de Igrejas e Ministérios Evangélicos Congrega Fácil Online.
    Seja um representante em sua cidade!
    Código de cliente para testes: congregafacil

    SisFAT Cursos Online
    www.congregafacil.com

    Analista de BI SR

      Data/hora atual: 5/12/2022, 17:03