InícioBoa tarde
Anexo BD com a minha questão
Obrigado
Anexo BD com a minha questão
Obrigado
2 participantes
[Resolvido]Click em listbox e abrir outro form com listbox filtradas
Assis- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 4772
Registrado : 06/11/2009
.................................................................................
*** Só sei que nada sei ***
Alexandre Neves- Moderador Global
- Respeito às regras :
Sexo :
Localização :
Mensagens : 8496
Registrado : 05/11/2009
- Mensagem nº2
![[Resolvido]Click em listbox e abrir outro form com listbox filtradas Empty](https://2img.net/i/empty.gif)
Re: [Resolvido]Click em listbox e abrir outro form com listbox filtradas
Alexandre Neves 14/4/2012, 19:30
Boa tarde, Assis
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
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
Assis- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 4772
Registrado : 06/11/2009
- Mensagem nº3
Re: [Resolvido]Click em listbox e abrir outro form com listbox filtradas
Assis 14/4/2012, 22:55
Obrigado Alexandre
.................................................................................
*** Só sei que nada sei ***
Conteúdo patrocinado
- Mensagem nº4
Re: [Resolvido]Click em listbox e abrir outro form com listbox filtradas
Conteúdo patrocinado