Boa noite
Estou tentando sincronizar uma combo em um form contínuo.
Esta combo origina-se numa consulta.
O objetivo é escolher nesta combo o nome e após isso mostrar nesse form contínuo os dados contidos nesta consulta.
Como a consulta possui 7 campos...
Tentei assim....
Private Sub CboConsultaEmpresa1_AfterUpdate()
' Define a CboConsultaEmpresa para ser limitada pelo Grupo escolhido
Me.CboConsultaEmpresa.RowSource = "SELECT ConsultaFotos.IdExameEmpresa, ConsultaFotos.NomeAvaliado From NomeAvaliado " & _
" WHERE IdExameEmpresa = " & Me.CboConsultaEmpresa.Column(0) & _
" ORDER BY NomeAvaliado"
Me.CboConsultaEmpresa = Null
End Sub
E assim....
Private Sub CboConsultaEmpresa_AfterUpdate()
Me.IdExameEmpresa = Me.CboConsultaEmpresa.Column(0)
Me.NumeroProcesso = Me.CboConsultaEmpresa.Column(1)
Me.NomeAvaliado = Me.CboConsultaEmpresa.Column(2)
Me.Data = Me.CboConsultaEmpresa.Column(3)
Me.Legenda = Me.CboConsultaEmpresa.Column(4)
Me.Descricao = Me.CboConsultaEmpresa.Column(5)
Me.Foto = Me.CboConsultaEmpresa.Column(6)
' Me!CboConsultaEmpresa = Null
End Sub
E não to conseguindo.
Onde errei?
Obrigado.
Estou tentando sincronizar uma combo em um form contínuo.
Esta combo origina-se numa consulta.
O objetivo é escolher nesta combo o nome e após isso mostrar nesse form contínuo os dados contidos nesta consulta.
Como a consulta possui 7 campos...
Tentei assim....
Private Sub CboConsultaEmpresa1_AfterUpdate()
' Define a CboConsultaEmpresa para ser limitada pelo Grupo escolhido
Me.CboConsultaEmpresa.RowSource = "SELECT ConsultaFotos.IdExameEmpresa, ConsultaFotos.NomeAvaliado From NomeAvaliado " & _
" WHERE IdExameEmpresa = " & Me.CboConsultaEmpresa.Column(0) & _
" ORDER BY NomeAvaliado"
Me.CboConsultaEmpresa = Null
End Sub
E assim....
Private Sub CboConsultaEmpresa_AfterUpdate()
Me.IdExameEmpresa = Me.CboConsultaEmpresa.Column(0)
Me.NumeroProcesso = Me.CboConsultaEmpresa.Column(1)
Me.NomeAvaliado = Me.CboConsultaEmpresa.Column(2)
Me.Data = Me.CboConsultaEmpresa.Column(3)
Me.Legenda = Me.CboConsultaEmpresa.Column(4)
Me.Descricao = Me.CboConsultaEmpresa.Column(5)
Me.Foto = Me.CboConsultaEmpresa.Column(6)
' Me!CboConsultaEmpresa = Null
End Sub
E não to conseguindo.
Onde errei?
Obrigado.
- Anexos
- Fotos.zip
- Você não tem permissão para fazer download dos arquivos anexados.
- (58 Kb) Baixado 4 vez(es)