[Resolvido]Ligar duas caixas de listagem

Boa tarde Amigos

Ler objetivo na imagem
Obrigado

Olá Assis,

Para o que pretende tem que existir uma relação entre a tabela Meses e Feriados.
A parametrização (modelagem) das tabelas é muito importante!
Por exemplo não precisava na tabela Feriados o campo semana, pois como já tem a DataFeriado é possivel calculr o dia da semana.

Quanto à questão, tem na tabela Meses o campo "mes" em texto e falta o ano.
Na minha opinião deveria ter o mês em número e adicionar o campo ano, depois se pretende mostrar na lista em entenso não terá problemas.

Ora tendo o mes e ano, será fácil mostrar na lista secundária ao selecionar o registo da primeira lista.
Que lhe parece?

Abraço

Bom dia Assis,

Então como ficou a situação.

Abraço

Bom dia

Está preta

Olá Assis,

Fiz algumas alterações à estrutura, adicionei uma consulta com campos calculados, veja:


O código, foi este:

Código:

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

E ainda alterei a origem das listas, veja se é o que pretende:
cld.pt/dl/download/14eeaef2-3486-4dbc-a2ce-4245b0890e62/FeriadosPT_rev.zip

Abraço

Teixeira
Na mudança de Ano as tabelas são apagados, e criadas automaticamente.
Será que vai continuara funcionar?
É que fiz aqui o teste e apago os dados das tabelas deste ano , elas são recriadas mas o filtro que o amigo fez deixa de funcionar.

Boa tarde Assis

Em anexo

Saludos

Olá a todos,

Aparentemente sim, efetue o teste no exemplo que disponibilzei.

Abraço

Teixeira

Fiz o teste no exemplo do seu link.

Obrigado

Franklin

Estes valores devia ser preenchidos com a função " Sub CriaFeriados() "

Olá a todos

Assis, partilhe então dados com outro ano para se testar.
O exemplo Franklin faz o calculo do mês ao clicar na Lista através do descritivo.
Relativamente ao Mes que exemplificou, nem era necessário na tabela, como demontrrei na mensagem nr. 5 pode ser calculado através da data.
Se tem um processamento dos feriados tudo deve funcionar.

Abraço a todos

Boa tarde Teixeira

1º - abra a BD com a tecla Shift premida para confirmar nas 2 tabelas que as datas estão em 2020.

2º - Quando abrir o formulário, automaticamente são criados dados de 2021.

E como eu disse acontece o que está na mensagem nº 6

Obrigado

Olá Assis,

A consulta que também coloque o numero do mes e do ano na tabela Meses


Abraço

Olá Assis,

Como ficou a situação??

Abraço

Teixeira

O que se está a passar está na mensagem Nº 12.

No exemplo da mensagem 12 tem os feriados do Ano 2020.

Quando for aberto deteta que os feriados são do ano anterior, e então deleta tudo na tabela "Feriados" e cria os novos para 2021.

A partir daí ao clicar no Mês para ver os feriados desse Mês deixa de funcionar fica como mostra a imagem da mensagem Nº 6

Obrigado

Ola Assis,

A estrutura quando não é boa só complica o que é simples.
Ajuste o seu codigo com este e teste:


Abraço

Obrigado Teixeira

Olá a todos,

Assis fico feliz por ter funcionado.

O exemplo partilhado na mensagem nr. 7 do colega FranklinJSP, também foi uma solução simples.
Será apenas necessário ajustar a consulta indicada a baixo:


Fica o desafio Assis, aguardamos que partilhe a solução.

Abraço a todos