Filtro em Subformulario a partir do Formulário

Amigos,

Estou tentando filtrar o meu subformulário a partir de uma caixa de combinação no formulário.
Sei que aqui tem vários exemplos mas, realmente não estou conseguindo!

Estou postando o banco para que possam me ajudar!

O formulário é o "FrmCadContrato" e preciso que ao selecionar o Fornecedor 1 campo "Empresa", apareçam apenas os equipamentos referente a empresa selecionada no subformulário.

Já tentou no evento "Após atualizar" desse campo aonde vai digitar a pesquisa colocar algo assim?

Código:

Me.NomeDoSubForm.Form.RecordSource = "SELECT * FROM NomeDaTabela WHERE NomeCampoDaPesquisaNaTabela LIKE '" & Me.NomeCampoDaPesquisaNoForm & "'"

No caso acima terá que digitar o nome certinho. Para pesquisar por parte do nome, basta acrescentar asteriscos:

Código:

Me.NomeDoSubForm.Form.RecordSource = "SELECT * FROM NomeDaTabela WHERE NomeCampoDaPesquisaNaTabela LIKE '*" & Me.NomeCampoDaPesquisaNoForm & "*'"

Tambem é possível ir filtrando à medida que for digitando se colocar no evento "Ao alterar" do campo de pesquisa e colocar .Text na frente do nome do campo: ... & Me.NomeCampoDaPesquisaNoForm.Text &...

Criquio, tentei fazer exatamente como falou mas não funcionou!
Existe outra forma de solucionar?

Ao que parece vai ser mais prático você alterar a estrutura do aplicativo. Você está tentando unir mais de uma tabela no source do subformulário mas o subformulário só pode ter uma fonte por vez quando a função dele é cadastrar dados. Até pode ter mais de um source quando isso é feito em uma consulta com fins apenas de visualização.

Criquio o aplicativo está basicamente pronto apenas este filtro não funciona. Seria possível fazer funcionar sem ter que alterar a estrutura?

Dê mais uma detalhada no que precisa. Você quer selecionar o quê e aonde? No formulário ou no subformulário? Depois de selecionado, quer que seja filtrado o quê? Esse "o quê" está no formulário ou no subformulário? Explique na ordem dos acontecimentos por favor. Exemplo:

Selecionar um valor na combo "cboNome" que está no formulário frmControle e filtrar a combo "cboFerramentas" que está no subformulário "subControle" dentro do "frmControle".

Criquio, preciso que ao selecionar no formulário o campo Empresa no subformulario o campo Equipamentos seja filtrado apenas com os equipamentos do fornecedor correspondente.

Mestres, mais alguem consegue me ajudar?
Realmente, não estou conseguindo descobrir o que estou fazendo de errado!

Nas propriedades dessa combo que você quer filtrar tem uma linha de origem dos dados aonde deve estar ou o nome da tabela ou uma cláusula SQL mais ou menos assim:

SELECT NomeTabela.NomeCampo1, NomeTabela.NomeCampo2 FROM NomeTabela..."

Se estiver apenas o nome da tabela, mude para SQL. Se já estiver a SQL, acrescente o filtro nela:

Código:

SELECT NomeTabela.NomeCampo1, NomeTabela.NomeCampo2 FROM NomeTabela WHERE CampoDaTabela LIKE '"* & Forms!NomeDoForm!NomeDaCombo & "*'"

Nessa combo do formulário, dê uma requery na combo do subformulário para atualiza-la, usando o evento "Após atualizar":

Código:

Me.NomeDoSubform.Form.NomeDaCombo.Requery

Também estou precisando disso  , porém  quando fui utilizar este comando apareceu o seguinte erro :}

Código:

Private Sub Texto39_Change()
Me.Obrasubformulario1.Form.RecordSource = "ID_FUNCIONARIO * FROM OBRA WHERE  LIKE '*" & Texto49 & "*'"

= Erro de copilação
variavel não definida

A sintaxe seria assim:

Código:

Me.Obrasubformulario1.Form.RecordSource = "SELECT * FROM OBRA WHERE ID_FUNCIONARIO LIKE '*" & Texto49 & "*'"

A leitura do código precisa seguir a ordem correta:

Selecione todos os registros da tabela Obra aonde o id do funcionário for igual ao id do campo Texto49

erro no texto 39 :

erro de compilação
metodo ou membro de dados nao encontrados

Deve ter algum nome de campo ou da tabela ou do formulário incorreto.

entendi , agora tirando uma duvida sobre o form do nosso amigo , como ele fez parao access abrir deste tamanho ?

Criquio,

Tentei fazer o filtro mas como ele implica em atualização de outros campos apesar de parecer funcionar a forma que sugeriu, os demais campos ficam preenchidas com "#Erro"
Nao sei mais o que fazer, alguma idéia?

Abs,


Kennyraphael,

O tamanho do formulario vc define quando for criá-lo!
Agora se quer saber como fazer pra ele aparecer como uma janela a parte do access, basta definí-lo como pop-up.
Se precisar de mais informações procure aqui no site que você encontrará vários exemplos!

E lembre-se nova dúvida, novo tópico, ok?

Abs!

Observando melhor, me parece que seria mais prático você fazer o seguinte: colocar a combo do subform com duas colunas, sendo uma oculta para receber a id e a outra visível para receber o nome. Fazer a mesma coisa na combo do formulário principal. E no "Após atualizar" do form principal, você muda o source da combo do subform:

Me.NomeDoSubForm.Form!NomeDaCombo.RowSource = "O Select da combo do subform aqui"

Não tinha pensado nisso, vou testar e dou um retorno!
Obrigado!

Criquio, desculpe a demora em dar um retorno!
Muito trabalho e muitas mudanças no trabalho!

Infelizmente não consegui fazer filtrar mesmo da maneira que sugeriu!
Não sei nem mais o que estou fazendo de errado!