[Resolvido]Filtro em Combobox - Help!!!

Mais uma vez venho recorrer a ajuda de vocês, pois estou a dias quebrando a cabeça com estes filtros.

O filtro teria que funcionar da seguinte maneira: no momento que eu clicar duas vezes na View e retornar as informações, o nível e o PCD (Pessoa com Deficiência) são cadastro fixos, ou seja, quando retornar a informação o sistema verificará e fará os filtros nas turma que são nível (operacionais ou técnico), depois se a pessoa e deficiente (SIM ou NÃO) que também estão no cadastro, após estes filtros automático o usuário selecionará a data com base neste filtro, e a aba horário ficará disponível os horário disponíveis daquele dia, informando a turma automaticamente com base no nível, PCD, data e horário.

tenho turmas operacionais, técnicos e técnicos operacionais, dependendo do tipo de turma o sistema mostra para mim as datas e horários disponíveis e de acordo que vou selecionando a data e horário ele me trás como resultado a turma.

Segue a tela:

Tela da Aplicação

Código:

Private Sub txt_turma_GotFocus()
If Me.txt_nivel = "OPERACIONAL" Then
Me.txt_turma.RowSource = "SELECT [Cadastro de Turma].Turma, [Cadastro de Turma].Data, [Cadastro de Turma].Horário, [Cadastro de Turma].Nível FROM [Cadastro de Turma] WHERE ((([Cadastro de Turma].NIVEL) <> 'TÉCNICO / TÉC. OPER.')) ORDER BY [Cadastro de Turma].[Data], [Cadastro de Turma].[Horário], [Cadastro de Turma].[Nível], [Cadastro de Turma].[Turma];"
Else
Me.txt_turma.RowSource = "SELECT [Cadastro de Turma].Turma, [Cadastro de Turma].Data, [Cadastro de Turma], [Cadastro de Turma].Nível.Horário FROM [Cadastro de Turma] ORDER BY [Cadastro de Turma].[Data], [Cadastro de Turma].[Horário], [Cadastro de Turma].Nível, [Cadastro de Turma].[Turma];"
End If

If Me.txt_PCD = "SIM" Then
Me.txt_turma.RowSource = "SELECT [Cadastro de Turma].Turma, [Cadastro de Turma].Data, [Cadastro de Turma].Horário FROM [Cadastro de Turma] WHERE ((([Cadastro de Turma].PCD) <> 'Não')) ORDER BY [Cadastro de Turma].[Data], [Cadastro de Turma].[Horário], [Cadastro de Turma].[Turma];"
Else
Me.txt_turma.RowSource = "SELECT [Cadastro de Turma].Turma, [Cadastro de Turma].Data, [Cadastro de Turma].Horário FROM [Cadastro de Turma] ORDER BY [Cadastro de Turma].[Data], [Cadastro de Turma].[Horário], [Cadastro de Turma].[Turma];"
End If

End Sub

Grato

Precisava de ajuda no post anterior, pois já pesquisei e tentei fazer de inúmeras maneiras e não consegui.

Agradeço muito que puder me ajudar.

Pra ser mais facil ajudar poste o bd amigo.

Segue abaixo o link da aplicação para me ajudar.

Aplicação

Desde já agradeço

Pessoal,

Sou novato no Access e estou com muita dificuldade e elaborar um código para filtrar uma combobox com base em outras informações.

Exemplo:

Tenho as seguintes informações de um colaborador da empresa

Nível: Operacional / Técnico Operacional / Técnico / Estratégico
PCD (Pessoa com Deficiência): SIM / NÃO
DATA:
HORÁRIO:
TURMA:

As informações Nível e PCD já são de cadastro.

Se o colaborador ele é: Operacional, Não é PCD, terei as seguintes datas disponíveis, após selecionar a data, terei os horários disponíveis, após selecionar o horário ele retornará a turma automaticamente.

Detalhe minha turma possui capacidade máxima de 80 pessoas, já tenho um código que sinaliza quando ela esta cheia avisa e não deixa gravar, porém, necessitava que na medida que nesse código de filtro acima tivesse o critério que a medida que atingisse a capacidade máxima não me desse a opção do data / horário e turma.

O meu arquivo esta compartilhado no post anterior.

Boa tarde....

1- qual formulário em questão ?
2- qual combobox em questão ?

Sílvio,

O formulário Frm_Agenda_Treinamento, campos:

(txt_nivel) Nível: Operacional / Técnico Operacional / Técnico / Estratégico
(txt_PCD) PCD (Pessoa com Deficiência): SIM / NÃO
(txt_data) DATA:
(txt_horario) HORÁRIO:
(txt_turma) TURMA:

SISTEMA TESTE

Ok....

Agora seja detalhista, em tua duvida...

Faça um passo a passo de como deve funcionar a busca, pois eu sinceramente, não entendi o que deve mudar, alterar...

Silvio,

Este formulário e para agendar turmas de treinamento.

Tem uma tabela Cadastro de Turma que estão as turmas, data, horários e o nível do treinamento.

O usuário "X" entrará no Frm_Agenda_Treinamento, e selecionará um colaborador na view, se o colaborador for por exemplo nível (txt_nivel) OPERACIONAL e PCD (Pessoa com Deficiência) (txt_PCD) SIM, no campo data (txt_data) deverá mostrar para mim somente os dias em que as turmas que encaixam nestes critérios anteriores e que não tenham a quantidade de participantes igual à 80 (Limite máximo por turma 80 pessoas).

Com base nos filtros anteriores, vamos supor que eu selecione o dia 20/07/2016, no campo horário (txt_horario) ele mostrará para mim somente os horários disponíveis e com vagas naquele dia. Retornando automaticamente a turma (txt_turma), visto que, terei somente uma turma por horário.

Espero que tenha ficado claro.

Obrigado antecipadamente pela ajuda.

Se eu entendi, deve ser isso.

Silvio,

Não funcionou. E o mesmo arquivo.kkkk

O arquivo e o mesmo, não consegui ver os filtro somente campos desbloqueados.

aguardo ajuda.

Queria ajuda de alguém para criar um filtro.

Este formulário e para agendar turmas de treinamento.

Tem uma tabela Cadastro de Turma que estão as turmas, data, horários e o nível do treinamento.

O usuário "X" entrará no Frm_Agenda_Treinamento, e selecionará um colaborador na view, se o colaborador for por exemplo nível (txt_nivel) OPERACIONAL e PCD (Pessoa com Deficiência) (txt_PCD) SIM, no campo data (txt_data) deverá mostrar para mim somente os dias em que as turmas que encaixam nestes critérios anteriores e que não tenham a quantidade de participantes igual à 80 (Limite máximo por turma 80 pessoas).

Com base nos filtros anteriores, vamos supor que eu selecione o dia 20/07/2016, no campo horário (txt_horario) ele mostrará para mim somente os horários disponíveis e com vagas naquele dia. Retornando automaticamente a turma (txt_turma), visto que, terei somente uma turma por horário.

Espero que tenha ficado claro.

Obrigado antecipadamente pela ajuda.

Boa noite!

Silvio,
desculpe a intromissão!

Voante,
minha sugestão:

1 - Crie um novo objeto consulta conforme abaixo:

Código:

SELECT
 [Cadastro de Turma].Turma
,[Cadastro de Turma].Nível
,[Cadastro de Turma].PCD
,Count([Agendamento do Treinamento].Colaborador) AS QT

FROM [Cadastro de Turma]
LEFT JOIN [Agendamento do Treinamento] ON [Cadastro de Turma].Turma = [Agendamento do Treinamento].Turma

GROUP BY [Cadastro de Turma].Turma, [Cadastro de Turma].Nível, [Cadastro de Turma].PCD;

2 - Na fonte de Dados da combobox, crie uma consulta similar a demonstrada abaixo:

Código:

SELECT
       [Sua Consulta].Turma
     , [Sua Consulta].Horário

FROM [Sua Consulta]

WHERE
(
        [Sua Consulta].Nível =  [Formulários]![Frm_Agenda_Treinamento]![txt_nivel]  AND
        [Sua Consulta].PCD  =  [Formulários]![Frm_Agenda_Treinamento]![txt_PCD]  AND
        [Sua Consulta].QT  <  80
);

Philipp,

Desculpe a minha ignorância, mais não entendi muito bem.

O que seria este objeto de consulta?

Na combobox eu colocaria Afterupdate? Em qual? ou na cbbox Data e hora?

Obrigado pela atenção e ajuda.

Objeto consulta, seria criar uma consulta normal no access. Tipo:

Clique na Raibbon Criar >> Design de Consultas >> Feche o PopUp >> Canto inferior Direito, clique em SQL e crie esta nova consulta:

Código:

SELECT [Cadastro de Turma].Data, [Cadastro de Turma].Horário, [Cadastro de Turma].Turma, [Cadastro de Turma].Nível, [Cadastro de Turma].PCD, Count([Agendamento do Treinamento].Colaborador) AS QT
FROM [Cadastro de Turma] LEFT JOIN [Agendamento do Treinamento] ON [Cadastro de Turma].Turma = [Agendamento do Treinamento].Turma
GROUP BY [Cadastro de Turma].Data, [Cadastro de Turma].Horário, [Cadastro de Turma].Turma, [Cadastro de Turma].Nível, [Cadastro de Turma].PCD;


Abra o formulário [Frm_Agenda_Treinamento] em modo Design

Campo: txt_data ( eu recomendaria renomear para cmb_data )
Clique no campo.
Nas propriedades do campo, clique na aba Dados e na propriedade Origem da Linha , insira a consulta abaixo:

Código:

SELECT
       [Sua Consulta].Data
FROM [Sua Consulta]
WHERE
(
        [Sua Consulta].Nível =  [Formulários]![Frm_Agenda_Treinamento]![txt_nivel]  AND
        [Sua Consulta].PCD  =  [Formulários]![Frm_Agenda_Treinamento]![txt_PCD]   AND
        [Sua Consulta].QT   <  80
);

Campo: txt_horario ( eu recomendaria renomear para cmb_horario )
Clique no campo.
Nas propriedades do campo, clique na aba Dados e na propriedade Origem da Linha , insira a consulta abaixo:

Código:

SELECT
       [Sua Consulta].Horario
FROM [Sua Consulta]
WHERE
(
        [Sua Consulta].Nível =  [Formulários]![Frm_Agenda_Treinamento]![txt_nivel]  AND
        [Sua Consulta].PCD  =  [Formulários]![Frm_Agenda_Treinamento]![txt_PCD]   AND
        [Sua Consulta].QT   <  80                                                                    AND
        [Sua Consulta].Data =  [Formulários]![Frm_Agenda_Treinamento]![txt_data]
);

Campo: txt_turma ( eu recomendaria renomear para cmb_turma )
Clique no campo.
Nas propriedades do campo, clique na aba Dados e na propriedade Origem da Linha , insira a consulta abaixo:

Código:

SELECT
       [Sua Consulta].Turma
FROM [Sua Consulta]
WHERE
(
        [Sua Consulta].Nível =  [Formulários]![Frm_Agenda_Treinamento]![txt_nivel]        AND
        [Sua Consulta].PCD  =  [Formulários]![Frm_Agenda_Treinamento]![txt_PCD]        AND
        [Sua Consulta].QT  <  80                                                                          AND
        [Sua Consulta].Data =  [Formulários]![Frm_Agenda_Treinamento]![txt_data]        AND
        [Sua Consulta].Horario =  [Formulários]![Frm_Agenda_Treinamento]![txt_horario]  AND
);

Creio que somente isso va resolver ? Da uma testada e depois nos envie um feedback.

Philipp,

Fiz conforme você orientou abaixo, porém, apresentou alguns erros.

Quando fui na SQL do cmb_turma apresentou um erro na hora de salvar.

SQL cmb_turma

quando fui testar as demais se funcionaria apresentou um erro.

Teste

Valeu Mestre por esta ajudando.

Para o campo txt_turma, corrige para o código abaixo:
* havia um AND a mais

Código:

SELECT
      [Sua Consulta].Turma
FROM [Sua Consulta]
WHERE
(
        [Sua Consulta].Nível =  [Formulários]![Frm_Agenda_Treinamento]![txt_nivel]        AND
        [Sua Consulta].PCD  =  [Formulários]![Frm_Agenda_Treinamento]![txt_PCD]        AND
        [Sua Consulta].QT  <  80                                                                          AND
        [Sua Consulta].Data =  [Formulários]![Frm_Agenda_Treinamento]![txt_data]        AND
        [Sua Consulta].Horario =  [Formulários]![Frm_Agenda_Treinamento]![txt_horario] 
);

Quanto ao segundo erro evidenciado:
Eu fiz algumas recomendações de renomeação dos objetos do formulário.
Você deve informa nas respectivas consultas exatamente o nome que está agora, tipo txt_data, txt_horario e txt_turma.
Caso você venha a alterar o nome dos campos no formulário então vc atualiza nas respectivas consultas.

Mestre,

Começou a funcionar, porém, quando eu seleciono ele não atualiza a outra combobox, tentei colocar um recalc não funcionou, olhei o código todo novamente para ver se não tinha feito nada errado e não encontrei.

Até anexei no link o arquivo para você ver.

Aplicação

Muito obrigado.

Voante,
baixei o arquivo mas esta acusando que o esta corrompido e nao consigo abrir form ou projeto VBA.

Poderia verificar?

Mestre,

Verifique novamente.

ARQUIVO NOVO

grato,

Bom dia,
Philipp esteja a vontade, pois estou com dois novos sistemas a serem feitos e não vou ter muito tempo hábil para prestar ajuda aos colegas aqui do fórum.
Toda ajuda, conhecimento, partilha é bem vinda ao fórum, pois esse é o objetivo aqui.
Abraços.

Sílvio,

Obrigado pela a ajuda inicial.



Philipp,

Coloquei o link do arquivo novo hoje de madrugada 01:08 AM, verifique se você consegue abrir?

grato,

Voante,
novamente ocorreu o erro. Veja evidencia abaixo.

Obs.: Me cadastrei como usario para tentar seguir o fluxo do sistema, mas, mesmo assim, nao consigo abrir o form de agendamento.

Voce consegue abrir normalmente?
Tente compactar e reparar seu banco

Philipp,

Coloquei o link do arquivo novamente, tirei o login, verifique se você consegue abrir?

Pegue uma pessoa que não tem turma cadastrada, por exemplo o ALAN JOSÉ.

PROGRAMA

grato,

Voante,
No evento Ao Atualizar das combobox, experimente

Me.Requery

Mestre,

Deu certo. Muito obrigado.

EU recomendaria mover o focu para o proximo campo também, acho que seria bacana!

Que bom voante, bons estudos e por favor, marque o topico como resolvido!

Philipp,

Denovo, estou encontrando dificuldade naquele filtro, ficou excelente, porém, alguns detalhe:
1 - Alguns momentos na aparece nada na combo box, e depois fecho e abro, e no mesmo item aparece a opção.
2 - As turma que estão cheias estão aparecendo data e horário disponível, por exemplo, quando seleciono a cbbox data, horário e chego na última a turma esta em branco. Queria uma opção para não aparecer nem a data e horário que não tivesse disponível, ou seja, turma cheia.

PROGRAMA

Fiz uma outra cópia aqui e não obtive sucesso para ajustar isto.

Obrigado pela ajuda.

Mestre,

O problema persiste quando selecionamos o nível e Técnico ou Técnico Operacional, o nível Operacional funciona na maioria das vezes.

Aguardo direção para a solução deste erro.

obrigado.

Sendo mais especifico, com quais dados e seguindo qual fluxo de interação com o form ocorre o problema descrito no item 1 e no item 2 ?

Preciso saber para analisar e te fazer uma sugestão.

Mestre,

Quando vou agendar ou alterar, para a pessoas com nível Técnico ou Técnico Operacional, não aparece as datas disponíveis na combobox, fica tudo em branco, como se não tivesse data disponível.

Em outra situação quando utilizo o nível Operacional, a combobox data aparece todos as datas, ou seja, mesmo se as turmas estiverem lotadas a data e horário aparecem, fica parecendo que estão disponíveis.

Espero que tenho esclarecido.

Obrigado.

Aplique uma correção para a consulta de origem da combobox [cmb_data], conforme a seguir:

Código:

SELECT DISTINCT Consulta_Turma.Data
FROM Consulta_Turma
WHERE
Consulta_Turma.Nível LIKE LEFT([Formulários]![Frm_Agenda_Treinamento]![txt_nivel], 7) & "*" AND
Consulta_Turma.PCD = [Formulários]![Frm_Agenda_Treinamento]![txt_PCD] AND
Consulta_Turma.QT < 80

Para a(s) consulta(s) de origem das demais combobox ([cmb_horario] e [cmb_turma]) , aplique a correção somente na 1ª clausula do where, conforme abaixo:

Código:

.
.
.
WHERE
Consulta_Turma.Nível LIKE LEFT([Formulários]![Frm_Agenda_Treinamento]![txt_nivel], 7) & "*" AND
.
.
.

Em resumo você encontrou problemas, pois na Tabela [Cadastro de Turma] que é origem da consulta [Consulta_Turma] que é a fonte de dados das combobox, permite que para o campo Nivel, seja cadastrado valor texto, ou seja, lá encontramos o valor "Técnico / Téc Operacional", já na tabela [Agendamento do Treinamento], que é a fonte da listbox, o mesmo campo Nível também é um campo texto, mas, lá encontramos valores "Técnico" ou "Técnico Operacional". Para manobrar esta situação, adotamos o operador "LIKE" ao invés do operador "=".

Para campos que caracterizam tipo, categoria, etc, que o usuário sempre vai "escolher" e não informar, seria melhor você criar uma tabela com os tipos para que assim, evite a probabilidade de erro devido a entrada de dados fora de padrão pelo usuário.

Veja se as correções atendem o que precisa e de seu feedback!

Mestre,

Funcionou... Muito obrigado.

por favor o marque como resolvido.

Philipp,

O que seria este 7 no código que você sugeriu.

Consulta_Turma.Nível LIKE LEFT([Formulários]![Frm_Agenda_Treinamento]![txt_nivel], 7) & "*" AND

Pois agora na horário do agendamento, detectei um erro, estou tentando resolver mais não estou conseguindo, agora um dos níveis não aparece, o nível Estratégico não aparece a opção de data, horário e turma.

O parâmetro 7, define para a função Left(), para pegar os 7 caracteres iniciais a esquerda do valor. No caso do campo do formulário.

A consulta Consulta_Turma busca informações na tabela Cadastro de Turma, a qual não possui nenhum registro com o nível Estratégico.
Experimente gerar um registro de teste com este nível na tabela e veja se o problema persiste.

Philipp,
Muito obrigado.