Boa tarde Amigos
Ler objetivo na imagem
Obrigado
![[Resolvido]Ligar duas caixas de listagem Sem_t179](https://i.servimg.com/u/f56/19/62/62/37/sem_t179.png)
Ler objetivo na imagem
Obrigado
![[Resolvido]Ligar duas caixas de listagem Sem_t179](https://i.servimg.com/u/f56/19/62/62/37/sem_t179.png)
- Anexos
FeriadosPT.zip
- Você não tem permissão para fazer download dos arquivos anexados.
- (91 Kb) Baixado 14 vez(es)
Private Sub Lista0_Click()
Me.Lista.RowSource = "SELECT qyrFeriados.IdFeriado, qyrFeriados.DataFeriado, qyrFeriados.Semana AS [Dia Semana], " _
& "qyrFeriados.Descrição, qyrFeriados.iMes, qyrFeriados.iAno FROM qyrFeriados WHERE " _
& "qyrFeriados.iMes=" & Lista0.Column(7) & " AND qyrFeriados.iAno=" & Lista0.Column(8) _
& " ORDER BY qyrFeriados.DataFeriado;"
Me.Lista.Requery
End Sub