[Resolvido]Formulário pesquisa clientes em caixa listagem

Olá amigos,

Estou a fazer um base de dados, e fiquei encalhado num formulário de pesquisa de clientes numa caixa de listagem.

O que tenho é o seguinte:

1 - Formulário 1, com origem numa consulta de clientes, onde o principal campo é o nº de cliente (Cliente), e os restantes dados do cliente.

2 - Criei um botão para abrir outro formulário (Formulário 2) de pesquisa dos clientes, onde tenho um campo para introduzir o que pretendo pesquisar de nomes, onde vais fazer a pesquisa numa caixa de listagem que criei, onde aparece 2 colunas, o nº de cliente e o nome, e tudo bem.

3- O que pretendo é, no formulário 2 que criei para a pesquisa, ao clicar na caixa de listagem no nome que pretendo, gravar o nº cliente (que está na coluna 1 da caixa listagem)  no Formulário 1, no campo (Cliente), para me dar os dados todos referentes ao cliente.

Já fiz 1001 maneiras, e nada, agora ao clicar na caixa de listagem abre o formulário 1 sem nada.

O que tenho é o seguinte:

Private Sub clist_cliente_Click()
DoCmd.OpenForm "f_cliente", acNormal, "", "[Cliente] = [Forms]![f_cliente pesq].[clist_cliente]", , acNormal
End Sub

Agradeço ajuda,

Tente assim:

Código:

Private Sub clist_cliente_Click()
    Dim rs As Object
        DoCmd.OpenForm "f_cliente"
        Set rs = Forms!f_cliente.Recordset.Clone
        rs.FindFirst "[Cliente]=" & Str(Nz(Me.clist_cliente.Collumn(0), 0))
    If Not rs.EOF Then Forms!f_cliente.Bookmark = rs.Bookmark
   
    DoCmd.Close acForm, "SeuFormPesquisa"
End Sub

Está me a dar "Run-Time Error 13: Type Mismatch"

      rs.FindFirst "[Cliente]=" & Str(Nz(Me.clist_cliente.Column(0), 0))

o numero em (Me.clist_cliente.Column(0), 0)) , está correcto, mas depois não envia para o campo (Cliente) do formulário.

Será por o formulário ter origem numa consulta?

Qual a razão?

Ola;

Type Mismatch é erro de você estar a tentar enviar texto como se trata-se de numero.
Para texto tem de estar entre aspas simples;

Código:

 rs.FindFirst "[Cliente]='" & Str(Nz(Me.clist_cliente.Column(0), 0)) & "'"

Ou se for numerico, não deve usar o Str.

Código:

rs.FindFirst "[Cliente]=" & Me.clist_cliente.Column(0)

Ooops, não tinha testado. Correto Jpaulo.


Sendo assim, fica:

Código:

Private Sub clist_cliente_Click()
    Dim rs As Object
        DoCmd.OpenForm "f_cliente"
        Set rs = Forms!f_cliente.Recordset.Clone
        rs.FindFirst "[Cliente]=" & Nz(Me.clist_cliente.Collumn(0),0)
    If Not rs.EOF Then Forms!f_cliente.Bookmark = rs.Bookmark
    
    DoCmd.Close acForm, "SeuFormPesquisa"
End Sub

Ainda continua o mesmo erro.
O nº cliente tem letras, por isso é considerado texto.
No formulário pesquisa criei uma caixa nova sem nenhuma ligação à consulta, para ver se copiava o texto do nº ou nome, e nada.. sempre o mesmo erro.


Anexo o exemplo

Bom dia!

Segue:

Código:

    Dim rs As Object
        DoCmd.OpenForm "f_clientes"
        Set rs = Forms!f_clientes.Recordset.Clone
        rs.FindFirst "[Cliente]='" & Me.clist_cliente.Column(0) & "'"
    If Not rs.EOF Then Forms![f_clientes].Bookmark = rs.Bookmark
   
    DoCmd.Close acForm, "f_clientes pesq"

Obrigado a todos,
Resolvido.

Boa tarde,

Favor não esquecer de marcar o tópico como resolvido:

https://www.maximoaccess.com/t860-resolucao-de-topicos

Desta vez eu coloco, mas não devem esquecer,

Eu também iria colocar, mas depois tive de ir fazer outra coisa e esqueci-me de clicar no enviar/resolvido.

Obrigado,