• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

vasco16

[ajuda] pesquisa atraves de form

1 mensagem neste tópico

Boas gostaria de fazer uma pesquisa atraves de um form.. ou seja tenho uma caixa de combinação, e ao carregar num botao queria que me mostrasse os dados do produto que selecionei na caixa de combinação.. esses dados vao ser mostrados noutro form..

Function pesq_produtos(zona As String) As String

Dim rs As Recordset

Dim SQL As String

    ' Define o filtro

  SQL = "SELECT * FROM perdidos WHERE [produto] = '" & produto & "';"

 

    Set rs = CurrentDb.OpenRecordset(SQL)

    With rs

     

        ' Ciclo em todos os registos

      Do Until .EOF

       

            ' Lê a informação e move para o próximo registo

      pesq_produtos = pesq_produtos & rs.Fields("produto") & ";"

            .MoveNext

        Loop

       

    End With

End Function

Private Sub pesquisar_Click()

On Error GoTo Err_pesquisar_Click

    Dim stDocName As String

    Dim stLinkCriteria As String

   

    stDocName = "perdidos_consulta_subformulário"

    DoCmd.OpenForm stDocName, , , stLinkCriteria

    Form_perdidos.produto.Value = Form_pesq_produtos(Me.cc_pesquisa.Text)

Exit_pesquisar_Click:

    Exit Sub

Err_pesquisar_Click:

    MsgBox Err.Description

    Resume Exit_pesquisar_Click

   

End Sub

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora