Abrir Formulário filtrado

Como fazer para ao clicar num determinado nome da lista abrir outro form com todas os compras deste cliente?

Olá Agravina,

Verifiquei que este tópico já foi respondido por outro colega, o Alexandre Neves.

http://maximoaccess.forumeiros.com/t7143-resolvidoclick-em-listbox-e-abrir-outro-form-com-listbox-filtradas

Amigo ,este tópico já esta defasado o link com Anexo BD e a questão a ser respondida nem aparece mais.

Olá Agravina,

Não li qualquer menção a anexos, só o código. Tente aplicá-lo ao seu caso.


'Código de Alexandre Neves
'Moderador do Fórum Máximo Access
No MaisConsultas
Private Sub Lista_DblClick(Cancel As Integer)
On Error Resume Next
DoCmd.OpenForm "TodasConsultas", , , , , , Me!Lista.Column(0)
End Sub

No TodasConsultas
Private Sub Form_Open(Cancel As Integer)
On Error Resume Next
Call Center(Me)
Lista.RowSource = "SELECT Agenda.DataAviso, Agenda.Paciente, Agenda.Médico FROM Agenda WHERE Paciente='" & Me.OpenArgs & "';"
End Sub