listbox não acoplada

[brunopfernandes]

boas noites.

preciso da ajuda de voces

tenho um BD de gestão criado por mim atraves da ajuda do forum, mas tenho um problema.

tenho um form de pesquisa de saldos (FORM1), com os campos "cliente";"dataInicial" e "dataFinal", ao selecionar o cliente, a dataincial e datafinal ele retorna os valor desse cliente entre datainicial e datafinal.

mas agora criei uma list box não acopulada que esta associada a consulta dos clientes.

o meu objectivo era ao clicar duas vez no campo "cliente" do FORM1 abrir a listbox e ao selecionar um cliente dentro da listbox ele aparece dentro do campo "cliente" do FORM1

é possivel?

Obrigado.

[MrMALJ]

Porque você não usa para cliente um objeto combobox?

[brunopfernandes]

desculpe o tempo de resposta.

com a combox eu consigo. mas queria fazer algo mais elaborado.

obrigado

[Humm]

é possivel sim.

[brunopfernandes]

Seria possivel indiocar como.

[Iceguy]

Sei u jeito de fazer, e não sei se é o mais correto, enfim... Funciona =D

Criei um form que só tem uma listBox(Caixa de listagem) e dei o nome de frmLista pro Form e listaValores pra listBox. no evento Load dele coloque assim:

Me.Visible = False

Crie um módulo com esse código

Option Compare Database
Option Explicit

Private pFrm As Form
Private pControle As String

Public Sub ListaPopUp(tabela As String, campo As String, frm As Form, controle As String)
    DoCmd.OpenForm "frmLista"
    With Form_frmLista
        .listaValores.RowSource = "SELECT " & campo & " FROM " & tabela
        .Visible = True
    End With
    
    Set pFrm = frm
    pControle = controle
    
End Sub

Public Sub ReturnValue()
    pFrm.Controls(pControle) = Form_frmLista.listaValores
    DoCmd.Close acForm, "frmLista"
End Sub

Aí no evento de duplo click do campo tu coloca:

ListaPopUp "NomeDaSuaTabela", "NomeDoCampoDaTabela", Me, "NomeDoSeuTextBox"

No evento de duplo clique da listbox tu coloca assim

ReturnValue