[Resolvido]como fazer a listabox buscar o valor um uma txt, ao carregar formulario.

Boa tarde a todos.

Estou tentando montar uma listabox, no cadastro de cliente.
Nesta lista estará todos os boletos emitidos do cliente.

Queria que ao abrir o formulário do cliente, esta lista aparece-se, todos os boletos corresponde-te, ao cliente.

O nome da listabox é lstBoletos.
Para carregar a lista no formulário:

Private Sub fncCarregalista(Optional filtro As String, Optional ordem As String)
'-----------------------------------------------------
'Carrega a caixa de listagem ao inicair o formilario.
'-----------------------------------------------------
Dim strSql As String
strSql = "SELECT CódigoContasReceber, CódigoPedido, NCliente, CnpjCpf, NDocumento, Parcelas, DataVencimento, Vlr_APagar, Especificacao, DataPagamento, Vlr_Pago"
strSql = strSql & " FROM Tb_ContasReceber WHERE " & filtro
strSql = strSql & " ORDER BY CódigoContasReceber;"
Me!lstBoletos.RowSource = strSql
filtroLista = filtro
End Sub

O nome da txt do formulário cadastro de cliente é Txt_Razão_Social.

Aguardo uma respostas.

att:
Josimar.

Olá, no evento Ao Carregar do form ou no evento Após atualziar da sua Caixa de texto onde contém o Ncliente.

Teste:

Código:

Dim sql As String
    sql = "SELECT CódigoContasReceber, CódigoPedido, NCliente, CnpjCpf, NDocumento, Parcelas, DataVencimento, Vlr_APagar, Especificacao, DataPagamento, Vlr_Pago FROM Tb_ContasReceber WHERE  (((Tb_ContasReceber.Ncliente)=[Forms]![*SeuFormulário*].[filtro]));"
    Me.lstBoletos.RowSource = sql
    Me.lstBoletos.Requery


Bom dia,

Só um pitaco. No trecho strSql = strSql & " FROM Tb_ContasReceber WHERE " & filtro a variável filtro é opcional então em algum momento pode ser que ela seja vazia, neste caso você ficaria com a expressão da seguinte maneira select ... WHERE *vazio* ORDER BY ... e isso gerará um erro de sql. Para corrigir isso, faça o seguinte:

Private Sub fncCarregalista(Optional filtro As String, Optional ordem As String)
'-----------------------------------------------------
'Carrega a caixa de listagem ao inicair o formilario.
'-----------------------------------------------------
Dim strSql As String
strSql = "SELECT CódigoContasReceber, CódigoPedido, NCliente, CnpjCpf, NDocumento, Parcelas, DataVencimento, Vlr_APagar, Especificacao, DataPagamento, Vlr_Pago"
strSql = strSql & " FROM Tb_ContasReceber"

If Not isNull(filtro) = True Then
strSql = strSql & " WHERE " & filtro
End if

strSql = strSql & " ORDER BY CódigoContasReceber;"
Me!lstBoletos.RowSource = strSql
filtroLista = filtro
End Sub

Bom dia.

ao abrir o formulário, fica pedido para inserir o valor.
Sendo que na tabela já esta o valor.

Como resolver.

att:

Josimar.

Bom dia,

Valor de que?

Abraço.

Anexei um arquivo teste.

Esse arquivo tem um exemplo, do erro que esta acontecendo.

att:

Josimar

Boa tarde,

Seu problema é porque voce está tentando usar um campo que não existe como filtro.

Desacoplei todo o seu formulário, crie um form "filtro" e alterei também a função que carrega a combo.

Abra o formFiltro, digite o código do cliente e clique no botão, vá até a aba da combo e veja a lista dos boletos. Se você alterar o campo IdCliente do seu formulario original, verá que a lista também será recarregada com os boletos referentes ao novo usuário. Veja o que fiz e se é realmente o que estava procurando, se tiver duvidas posso explicar mais detalhadamente a ideia.

Abraço.

Boa tarde. CassioFabre

Deu certo.

Obrigado pela ajuda.

Att:

Josimar.