Consulta a partir de dados de outra tabela

Prezados, boa tarde!
Tenho um banco de dados que normalmente eu importo de uma planilha bem grande (aproximadamente 70 mil casos)
Ocorre que, constantemente preciso fazer alguns filtros com dados de outras tabelas, exemplo:
Tabela1 - Tenho o nome de todos os funcionários do escritório
Tabela2 - Tenho um campo onde informa o nome do funcionário que cumpriu a tarefa

Desta forma, gostaria de filtrar na tabela 2, todos os casos em que o nome de quem cumpriu a tarefa esteja na tabela1
No momento eu utilizei

Forms!FrmDefesasInseridas.Filter = "(FUNCIONARIO_QUE_FEZ_COMENTARIO = 'aaa' or FUNCIONARIO_QUE_FEZ_COMENTARIO = 'bbb'
Acontece que esse procedimento é muito manual e são muitos nomes, inclusive não deu pra colocar todos os nomes aqui e nem pular a instrução para a linha de baixo.

Seria possível ajudar?
Muito obrigado desde já?

Patrick bom dia,

Por gentileza, nos envie uma cópia do seu banco de dados (somente objetos envolvidos - tabelas/consultas/macros/relatorios/modulos) para análise e solução do problema.

Att,

Alexandre Fim

Prezado, segue banco de dados:
Eu gostaria de otimizar o filtro abaixo:

Todos estes nomes estão na tabela TblAvatar

Forms!FrmDefesasInseridas.Filter = "(FUNCIONARIO_QUE_FEZ_COMENTARIO = 'ADRIELLE' OR FUNCIONARIO_QUE_FEZ_COMENTARIO = 'ANDREA' OR FUNCIONARIO_QUE_FEZ_COMENTARIO = 'MARINA' OR FUNCIONARIO_QUE_FEZ_COMENTARIO = 'MICHELLE' OR FUNCIONARIO_QUE_FEZ_COMENTARIO = 'PATRICK' OR FUNCIONARIO_QUE_FEZ_COMENTARIO = 'RENATA' OR FUNCIONARIO_QUE_FEZ_COMENTARIO = 'TATIANA' OR FUNCIONARIO_QUE_FEZ_COMENTARIO = 'STEPHANIE' OR FUNCIONARIO_QUE_FEZ_COMENTARIO = 'WILLIAN' OR FUNCIONARIO_QUE_FEZ_COMENTARIO = 'CAROLINE' OR FUNCIONARIO_QUE_FEZ_COMENTARIO = 'BRUNA' OR FUNCIONARIO_QUE_FEZ_COMENTARIO = 'GABRIELA'OR FUNCIONARIO_QUE_FEZ_COMENTARIO = 'JULIANA'OR FUNCIONARIO_QUE_FEZ_COMENTARIO = 'LARYSSA' or FUNCIONARIO_QUE_FEZ_COMENTARIO = 'ANDERSON' OR FUNCIONARIO_QUE_FEZ_COMENTARIO = 'BRUNO') AND ULT_COMENT_OCORRENCIA Like 'avalia*'"

Forms!FrmDefesasInseridas.FilterOn = True
Me.OrderBy = "FUNCIONARIO_QUE_FEZ_COMENTARIO"
Me.OrderByOn = True

Olá Patrick,

O bd nao veio em anexo.
CAso não saiba, veja o link para postar arquivos aqui no fórum:

https://www.maximoaccess.com/t32003-como-postar-anexos-e-imagens-no-site-maximoaccess-com


Valeu

abs.

Boa noite
Sobre a optimização, pode fazer do tipo
"(FUNCIONARIO_QUE_FEZ_COMENTARIO = 'ADRIELLE' OR FUNCIONARIO_QUE_FEZ_COMENTARIO = 'ANDREA' OR FUNCIONARIO_QUE_FEZ_COMENTARIO = 'MARINA' OR FUNCIONARIO_QUE_FEZ_COMENTARIO = 'MICHELLE' OR FUNCIONARIO_QUE_FEZ_COMENTARIO = 'PATRICK' OR FUNCIONARIO_QUE_FEZ_COMENTARIO = 'RENATA' OR FUNCIONARIO_QUE_FEZ_COMENTARIO = 'TATIANA' OR FUNCIONARIO_QUE_FEZ_COMENTARIO = 'STEPHANIE' OR FUNCIONARIO_QUE_FEZ_COMENTARIO = 'WILLIAN' OR FUNCIONARIO_QUE_FEZ_COMENTARIO = 'CAROLINE' OR FUNCIONARIO_QUE_FEZ_COMENTARIO = 'BRUNA' OR FUNCIONARIO_QUE_FEZ_COMENTARIO = 'GABRIELA'OR FUNCIONARIO_QUE_FEZ_COMENTARIO = 'JULIANA'OR FUNCIONARIO_QUE_FEZ_COMENTARIO = 'LARYSSA' or FUNCIONARIO_QUE_FEZ_COMENTARIO = 'ANDERSON' OR FUNCIONARIO_QUE_FEZ_COMENTARIO = 'BRUNO') AND ULT_COMENT_OCORRENCIA Like 'avalia*'"

em SQL é o mesmo que
"(FUNCIONARIO_QUE_FEZ_COMENTARIO =IN ('ADRIELLE','ANDREA','MARINA','MICHELLE','PATRICK','RENATA','TATIANA','STEPHANIE','WILLIAN','CAROLINE','BRUNA','GABRIELA','JULIANA','LARYSSA','ANDERSON','BRUNO')) AND ULT_COMENT_OCORRENCIA Like 'avalia*'"

só que o SQL não funcionará como filtro mas adapte para colocar na origem do controlo

Obrigado Alexandre, através desta consulta SQL eu conseguiria localizar estes nomes em outra tabela, ao invés de colocar um por um? Assim, todo vez que tiver um nome novo eu só coloco na tabela, ao invés de mudar o código um por um, sabe como faço para buscar em outra tabela pelo SQL ou até pelo VBA mesmo?

Código:

"(FUNCIONARIO_QUE_FEZ_COMENTARIO =IN (select CampoNome from TabelaDeNomes)) AND ULT_COMENT_OCORRENCIA Like 'avalia*'"

ou

Código:

"(FUNCIONARIO_QUE_FEZ_COMENTARIO IN (select CampoNome from TabelaDeNomes)) AND ULT_COMENT_OCORRENCIA Like 'avalia*'"

ou

Código:

"(FUNCIONARIO_QUE_FEZ_COMENTARIO = (select CampoNome from TabelaDeNomes)) AND ULT_COMENT_OCORRENCIA Like 'avalia*'"

DamascenoJr, muito obrigado pela ajuda, era exatamente isso que precisava, fico imensamente agradecido, me ajudou bastante, um forte abraço.

Estando resolvido, é necessário marcar o tópico como resolvido. Veja como
https://www.maximoaccess.com/t860-resolucao-de-topicos

Aguardamos sua ação...

Apenas um comentário:

Patrick,

Realizar consulta através do campo Nome poderá trazer dados divergentes caso haja homônimos cadastrados na tabela.
O correto é pesquisar através de um código atribuído ao funcionário, geralmente, um campo do tipo Numeração Automática, ou o CPF e etc.

É isso!!

[]'s

FIM