[Resolvido]Evento ao das dois cliques ou abrir na Listbox

Bom dia companheiros, Como vai a equipe Máximo Access, tudo bem?

Venho outra vez solicitar ajuda dos Mestres deste maravilhoso Fórum. Em referência a uma dificuldade no Evento Ao dar Dois Cliques de Caixa de Listagem.

Procurei nos repositórios do fórum alguma ideia de fazer e não consegui ainda. Talvez seja até fácil, mais pra mim que estou aprendendo fica mais difícil.

É o seguinte, tenho dois Forms. Um é o Cadastro de Entradas (frmEntradas) e nele além dos demais campos, Coloquei os Campos "ID_Tipos, como Combox para que o usuário escolha o número do ID" e "Tipos de entradas (Combox onde escolho a descrição do Tipo) e é "(Puxa da tabela TiposdeEntrada).

Para pesquisar os Tipos de Entradas, no Campo "ID_Tipos" coloquei no Evento "Ao Apertar a tecla" um comando F4 para abrir o frmTiposdeEntradas. Nele contém uma caixa de Texto para pesquisar, chamada "localizartexto" e uma ListBox "txtLista".

Gostaria de fazer o seguinte e que não consegui ainda...

Ao pesquisar o item na caixa "localizartexto" e dar dois cliques nele, copiar o número do registro e colar na Combo ID_Tipos.

Encontrei função que ao clicar na ListBox abre o Registro em referência. Mais queria que copiasse o número do registro atual encontrado na Pesquisa para o Campo ID_Tipos do Form Entradas. É possível?

Fiz varias tentativas, mais acho que é só falta de conhecimento mesmo... Acredito que é fácil...

Só lembrando, não é ao pesquisar e clicar, abrir o Registro em referência não. É quando encontrar o Registro na pesquisa e clicar, copiar o número do registro e colar no campo ID_Tipos que está em outro formulário...

Abraço a todos,

Que Deus os abençoe sempre e lhes conceda paz interior e exterior... É uma das coisas que mais precisamos hoje!

Tente esse código no evento ao clicar duas vezes em sua caixa de listagem : (Faça as adaptações)

Código:

   On Error Resume Next
    Dim Selecionado As Boolean
    Dim Linha As Integer
    Linha = Me.SuaCaixaDeListagem.ListIndex
    If Selecionado = True Then
          Forms!frmEntradas.ID_Tipos.Value = Me.SuaCaixaDeListagem.Column(0, Linha) ' Veja em qual linha está o código que você quer copiar
        
    End If
    DoCmd.Close acForm, "SeuFormulárioDePesquisa"


Obrigado Gilberlânio,

Vou estudar e te dou retorno...

Abraço,

OK, no aguardo.
Bons estudos

Boa noite Gilberlânio, Tenho assistido seus vídeos no Youtube e tenho aprendido bastante com eles. Muito bom o material, parabéns...

Olha ainda não consegui executar o que estou pretendendo...

Useo o código que você me passou. Abre o frmEntradas, mais não abre com o número do registro no campo que precisa.

Com ese código acontece o mesmo...

cboCodigos é a Caixa de Combinação que tem o mesmo Registro da txtLista (frmListadeEntradas).

O que acontece: coloquei os campos cboCodigos (Número do Registro da Tabela Lista de Entadas) e campo Conta (Combo com a Descrição da Conta). Aqui estou usando duas Combos sincronizadas que ao escolher o código na cboCodigos abre a descrição na cboContas.

Para facilitar para o usuário na cboCodigos coloquei uma função para Abrir o frmListadeEntradas com F4 no Evento ao Apertar a Tecla. E agora estou tentando fazer com que no frmListadeEntradas após escolher o tipo de Conta na ListBox txtLista e clicar sobre ele, retorne ao frmEntrada, colando o número do registro da txtLista do frmListadeEntradas na caixa de Combinação cboCodigos.

Esse código abre o form, mais não retorna o registro para a combo cboCodigos...


Private Sub resultpesq_DblClick(Cancel As Integer)
On Error Resume Next
Dim Linha As Integer
DoCmd.OpenForm "[forms]![frmEntradas]![cboCodigos].Value = Me.txtLista.Column(1, Linha)"
DoCmd.Close acForm, "frmLIstadeEntradas"
End Sub

Desde já agradeço o apoio e peço descupas por não retornar antes...

Abraços,

amigo, posta parte do bd.

Bom dia,

Gilberlânio, Tauros, segue link para Download de parte do BD...

http://www.4shared.com/rar/tkfrzX69ba/Contas.html

Desde já agradeço a força e ajuda de vocês...

Francisco

Uma pergunta, por que não fez assim?




[ ]'s

Boas...

Se me permitem, tenho uma duvida...

Por que colocar duas combos, que buscam a mesma coisa e ainda para alongar ...uma listbox que vai buscar a mesma coisa ?
Ao meu ver, três cliques de mouse completamente desnecessário ao usuário.

Era e é mais simples colocar duas caixas de textos ou apenas uma com a descrição do tipo de entrada, já que a listbox tem todos os dados.

É apenas minha opinião.

É justamente o que estou dizendo Silvio,

fica apenas uma combobox no frmEntradas

Pois é.....concordo !

Concordo com os companheiros no que diz respeito a busca só pelas combos ou caso não saiba o código, clica no botão do lado e verifica. Que é exatamente como tinha feito. Mas observando como usuário, já que ele(a) abriu o frmListadeEntradas, verificou que numa lista de N's descrições de Entrada o item que ele quer  é o item X, seleciona e clica sobre e já trás o número do Registro pra combo cboCodigos do frmEntrada...

Os itens não serão só esses, e quem vai utilizar não conhece ainda os códigos. terá que memorizar todos eles ou os principais. Como usuário, ele vai preferir ou da F4 na combo cboCodigos ou clicar no botão lista do lado. E ao escolher o item, clicar sobre e trazer o código pra combo.

Também achei desnecessário e tinha fechado o programa assim. Até que o usuário observou isso e solicitou... Estou dando ao usuário três opções de busca... O que facilita pra ele no dia a dia...

Francisco

Em uma combo (veja na imagem), tem os códigos e os tipos de entrada em ordem alfabética.

veja que estão todos os registro do outro formulário.

Precisa mais do que isso?

Certo Nobizinho, entendi...

Vou deixar como esta.

Desde já agradeço a todos...

Um abraço especial, que Deus os abençoe...

Humm !

Me parece que somente deixou a "coisa queta".

Mas..., é você quem sabe, estaremos aqui para

tentar ajudar e achar uma solução mais apropriada.

Se realmente está satisfeito, faltou o resolvido

no título do tópico.

Ahh! Somos nascidos em 10/04.

Boa sorte !!

Tranquilo, Nobezinho.

Esse sistema que fiz é para controle pessoal dos gastos. Na Empresa onde trabalhei, mostrei pra o colega meu e ele pediu pra fazer o teste. Ele sugeriu que ao clicar no livro do lado abrisse a lista e ao escolher o item, clicando retornasse com o código na combo.

Mais tranquilo, já apresentei esse trabalho como trabalho final no Curso e vou fechar assim mesmo.

Deixa pra um outro. Que aí tendo dificuldade, peço ajuda aos companheiros de novo.

Aos poucos chego lá. Sempre precisarei da ajuda de alguém, para chegar ao alvo que almejo.

Um grande abraço,