[Resolvido]Filtrar através do subformulário

Bom dia a todos!

Sou iniciante no fórum e gostaria da ajuda de vocês.

Tenho um form principal com nome dos funcionários, etc. e nele contém três guias. Em duas dessas guias contém subformulários com vínculo no campo Cod_Dados.
Em um desses subformulários têm dois campos. Um chamado Potencial(tipo texto) e outro Area de Atuação (Caixa de combinação).
Quando faço um filtro no form principal ele filtra normalmente inclusive os dados do subformulário.
Minha dificuldade é a seguinte: Não consigo filtrar a partir de um subformulário.
Por exemplo, gostaria de selecionar uma palavra do campo Potencial e quando filtrar mostrar todos os funcionários(do form Principal) que contenham essas palavras.
Consegui explicar com clareza?

Agradeço muito e SUCESSO a todos!

Junior

Bom dia,

Avalie este exemplo que estou te mandando para ver se resolve seu problema.

A situação é a seguinte,

Estudar e adaptar.

clique no link abaixo

http://dl.dropbox.com/u/37804873/Filtra_Adilson.accdb


Atenciosamente,

Adilson

Adilson, bom dia!

Obrigado pelo seu retorno.

Estou com a versão 2003. Não consigo abrir uma versão superior.

Poderia me ajudar?

Muito Obrigado! Estou indo para outra filial agora e retornarei no final da tarde e com certeza vou estudar.
Mais uma vez obrigado e tenha um bom dia!

junior

Converti para o 2003


http://dl.dropbox.com/u/37804873/Filtra_Adilson.mdb


Adilson

Adilson, boa tarde!

Acabei de retornar e vou verificar agora seu exemplo.

Obrigado!

Junior

Adilson, como vai!

Tentei fazer os testes no seu banco mas não consegui. Ele está dando erro de entrada (O Microsoft Access não pode abrir o arquivo 'http__iconesbr.oficinadanet.com..."

Porém consegui vizualizar e pelo que vi ele faz a filtragem pela caixa de texto do form principal não é isso?
E existe um campo acoplado na qual colocou na origem da linha os campos da tabela.

Mas é aí que está minha dúvida:
Meu subformulário não é acoplado, ele é uma tabela e gostaria de fazer a filtragem ao contrário entendeu?
Assim:

Quero filtrar pelo subformulário e localizar os funcionários do form principal que contenham essa pesquisa.

Consegui explicar?

Abraços
Junior

Boa noite,

Eu particularmente desconheço como fazer isso com o subform desacoplado a não ser acopla-lo via vba que fic mais dificil.

'http__iconesbr.oficinadanet.com.. esse link é a imagem do objeto pode mudar e colocar outra que tem no site iconesbr

acople o subform e faça a consulta usando como exemplo algumas rotinas daquela que te enviei e veremos no que vai sair.

Qualquer coisa estarei sempre a disposição

estou no aguardo


Adilson

Adilson, boa noite!

Obrigado pelo seu retorno!

Gostaria de verificar meu banco? Só falta essa filtragem, o restante está pronto. Caso sim, como envio.

Agradeço

Junior

Envie para meu e-mail

a.2006santos do rotmail

Adilson, bom dia!

Recebeu meu email?

Olá,

Não recebi o e-mail. Mande de novo. Tenho o maior interesse em poder lhe ajudar se tiver ao meu alcançe, se não tiver buscaremos juntos a solução.

Adilson

Acabei de reenviar.

Me dê um ok de reebimento.
Grato.

Acabei de REceber, vou dar uma olhada que eu estava resolvendo outro problema de um projeto d eum amigo deste brioso forum, vou enviar para ele a solução e vamos resolver o seu problema.

Adilson

Tem um botão chamado formulário de pesquisa. E é nesse formulário que vou fazer as filtragens. Os campos estão bloqueados porém ativados.

Eu utilizo os filtros do próprio Access, até aí tudo bem.

No meu formulário contém guias. Na primeira guia tem dois subformulários.
Ai é que tá.

Vamos supor que no campo [Potencial] do 1° Subformulário, eu quero filtrar todos os funcionários que tenham aquela determinada palavra ou até mesmo a [área].
E que algumas pessoas tenham interesse em vendas por exemplo, ai eu filtro e verifico quem tem esse interesse em trabalhar nesse setor.

De qual formulário estamos falando?

O formulário chama-se frm_QuryDados
Ele foi criado só para filtragem, para que os usuários não corram o risco de alterá-los.

Não estou achando nenhum formulario com o nome frm_query dados

Ele está oculto.
Precisa ir nas propriedades e ativar Objetos ocultos para vizualizar.

Obrigado!

Me diga uma coisa.

Olhe só nisso é só você fazer uma consulta SQL para o evento open do form que tem o subformulário com a função DlookUp (pesquisa informações no bd) e adicionar dados na respectiva tabela para poder testar, depois voce codifica no evento clique da caixa de texto posição para exibir os valores na segundo subform

Adilson

Adilson,

Na realidade não quero mexer na planilha, somente tentar filtrar pelo subformulário.

Agradeço seu emprenho em me ajudar.
Vou continuar tentando resolver esse problema.
Agradeço.

Junior

Seja mais especifico, você quer filtrar pelo formulário. Como?

Seria vamos supor clicar em um campo do subformulário e exebir que informação e em que local?

Adilson

Quando filtramos, pelo access, ele não filtra os registros que queremos?
Por exemplo. No form você tem um campo chamado Idioma.
E lá têm funcionários que têm inglês, espanhol e francês.
E nós não clicamos nessa campo e podemos fazer a filtragem só das pessoas que têm inglês por exemplo não é isso?

Então, nesse form, tem um subformulário e nesse subformulário tem dois campos. Um chamado POTENCIAL que é do formato texto e outro chamado Área de atuação que é uma caixa de combinação.
Pois bem, não estou conseguindo fazer a filtragem pelo subformulário.
Vamos supor que eu queira filtrar todos os funcionários que tem interesse em atuar na área de Vendas, só que eu não sei se tem, aí eu tento fazer filtragem, e não filtra, pois ele só procura no registro atual. Como faço isso?

Obrigado mais uma vez

Na combo de area de atuação vi o seguinte em origem da linha

B2B HORECA; B2B OFFICE; BOUTIQUE; CLUB; MKT/EVENTOS; TRADE; AFTER SALES; FINANCEIRO (F&C);RH;SUPPLY CHAIN;TECNOLOGIA DA INFORMAÇÃO


por que você não coloca no load do form

me.cboareadeatuação.additem "Vendas"

me idga o que acha

depois continuamos

Adilson

Adilson, Obrigado por estar me ajudando e ter paciência.

Agora, esse procedimento não adiciona "Vendas" na caixa de combinação?

Então, não quero adicionar, eu quero filtrar por essa palavra.
Outro exemplo não tem ai na linha de origem, Tecnologia da Informação? Então, através dessas palavras quero filtrar os funcionários que marcaram na caixa Tecnologia da Informação o interesse em trabalhar na área, para que eu possaselecioná-los.

Grato.

Deixe-me ver se entendi,

Na combo area de atuação encontra-se a lista de areas onde o usuário irá clicar em uma area desejada e retornará uma consulta onde todos os usuários cadastrados no caso a tabela aspiração de carreira.

Ao clicar na combo area de atuação o projeto irá fazer uma comparação com a tab aspiração de carreira e verificar as coincidencias retornando-as. Correto?

Adilson

Na realidade Não preciso clicar na combo. A combo está ali para cadastro mesmo. Seria assim, vamos ver se posso dar uma idéia que acabei de ter.
Tem como eu dar um duplo clique e aparecer uma imputbox por exemplo e quando eu digitar uma área por exemplo, ele retornar os funcionários que cadastraram essa área?

Obrigado. Acho que estamos chegando lá.
Vou para aula agora mas a noite voltarei para o fórum. Vamos conseguir.

Tem sim

É só codificar no evento duplo clique do objeto desejado.


Aguardo seu retorno

ADilson

Olá, como vai?

Como faço então pra quando eu der um duplo clique, aparecer uma inputbox, digitar a área (por exemplo: TRADE) e eu possa filtrar os registros do form através do campo do subformulário?

Começo assim?

Private Sub Area_Atuacao_DblClick(Cancel As Integer)
Dim strfiltra As String
strfiltra = InputBox("Digite a ára pretendida", "Filtrar por área de Atuação")

"e como faço pra dizer que quero filtrar pelo que eu digitar?"

Agradeço a ajuda

Olá,

Use a função DLookUp(Expr, Domain, Criteria) para fazer a pesquisa na tabela desejada e use docmd para abrir o form desejado exibindo os campos desejados.

Adilson

Olá, bom dia!

Poderia me dar um exemplo?
Estou meio perdido.

Ah, outra coisa. Tente fazer o seguinte:
1) Coloquei uma combo no formulário principal
2) Coloquei na origem a linha os campos COd_Dados (do form Principal) e Area_Atuacao
3) Coloquei no evento ao atualizar desse combo a seguinte instrução:

Private Sub AreaAtua_AfterUpdate()

DoCmd.ApplyFilter , "Cod_Dados = '" & Me.AreaAtua & "'"

End Sub

Ele tá dando erro dizendo que a ação Docmd.Appyfilter foi cancelada.
O que estou fazendo errado?

Obrigado!

Me passe o bd.

Adilson

Já enviei.

Quem é o formprincipal e o nome da combo?

Form Principal: frm_QueryDados
combo chama-se AreaAtua (combo em cinza)

Por que você não DLookUp?

Olhe só está faltando um argumento no apllyfilter

DoCmd.ApplyFilter , "Cod_Dados = '" & Me.AreaAtua & "'", Tb_AspiracaoCarreira

o Último argumento é o nome do subformulário que você quer aplicar o filtro, só que o nome é grande demais, mude o nome dele e reveja a codificação que estou te passando.
Teste para ver se dar certo

Estou no aguardo

Atenciosamente,
Adilson

Porque eu não sei..rss

Pode me ensinar, porque ai aplico lá.
Nem sei pra que que serve essa função.

Valeu

Por que você não DLookUp?

Você pode utilizar a propriedade DLookup para obter o valor de um determinado campo com base em um conjunto especificado de registros (um domínio (domínio: um conjunto de registros definidos por uma tabela, consulta ou expressão SQL. As funções agregadas de domínio retornam informações estatísticas sobre um domínio ou conjunto de registros específico.)).

Olhe só está faltando um argumento no apllyfilter

DoCmd.ApplyFilter , "Cod_Dados = '" & Me.AreaAtua & "'", Tb_AspiracaoCarreira

o Último argumento é o nome do subformulário que você quer aplicar o filtro, só que o nome é grande demais, mude o nome dele e reveja a codificação que estou te passando.
Teste para ver se dar certo

Entre no editor de codigo do vba e vá em ajuda voce terá tudo sobre os comandos do vba em portugues

Estou no aguardo

Atenciosamente,
Adilson

Está dando:

"Erro de Compilação

Números de argumentos incorretos ou atribuição de propriedade inválida"

DoCmd.ApplyFilter , "Cod_Dados = '" & Me.AreaAtua & "'", Tb_Asp_subformulário

Errei em algo.
Diminui o nome do subformulário

Estou tentando aprender o DLookup

Fiz assim, está certo?

Private Sub AreaAtua_AfterUpdate()
DLookup("[Cod_Dados]", "Tb_AspiracaoCarreira", "[Cod_Dados]=" & Me.AreaAtua)
End Sub

MAs ele está dando erro de compilação
era esperao =....

O que fiz de errado?

Obrigado!

Olhe só o que fiz.

Private Sub cboAreaAtua_AfterUpdate()

Me.RecordSource = "SELECT Tb_AspiracaoCarreira.Cod_Dados, Tb_AspiracaoCarreira.Area_Atuacao FROM Tb_AspiracaoCarreira WHERE Area_Atuacao = '" & Me.cboAreaAtua.Column(1) & "' "

End Sub

Agora tá dando erro em outro lugar, na linha em vermelho (oque significa isso que tá em vermelho?)

Limpa:
Me.LocalFoto = Null
Me.Foto.Picture = ""
Resume Sai
End Sub


Adilson

Tem um formulário que é idêntico o frm_QueryDados.

O nome dele é frm_Dados, e nele tem um botão pra adicionar foto do funcionário.

E não estava funcionando, ai um colega meu disse que eu precisa colocar essa linha.
Pelo que ele me explicou :

Cria-se essa linha para tratar o erro.
E no caso deixa nulo o campo localfoto e em braco a campo foto.

como posso tratar esse erro sem mexer no formulário.
É normal acontecer isso, pois até então não dava o erro.
Ah, e onde errei na função Dlookup?

Private Sub AreaAtua_AfterUpdate()
DLookup("[Cod_Dados]", "Tb_AspiracaoCarreira", "[Cod_Dados]=" & Me.AreaAtua)
End Sub

Obrigado

Resolvi seu problema

Vá na consulta query_dados e veja os campos da tb_de carreira que coloquei
Na propriedade fonte do controle do combo area atuação
e no vba o evneto after update para ver como se faz.

aqui está funcionando, se resolvido o problema coloquie o resolvido

http://dl.dropbox.com/u/37804873/BD.mdb

Adilson

Adilson,

Desculpe a demora, só consegui acessar agora por que a rede caiu e não tive como acessar.
Vou dar uma olhada ok!

Obrigado

Acabei de verificar, mas a tabela qque fazia parte do Form, foi retirada. Era a Tb_Dados. Sem ela não consigo fazer o restante ds operações. Nem mesmo verificar os botões do form.
E mesmo assim, a combo não faz a filtragem.

Eu particularmente não retirei tabela nenhuma, veja se não está oculta.

ADilson

Estou me referindo no form, a consulta que você montou foi em relação a outra tabela.

Se puder explique melhor pois estive ausente e com certas atribuições que encheram um pouco de responsabilidades, portanto estou um tanto que desatento.
Peço que refresque minha memória.


Tenho muito interesse em ajudá-lo

Adilson

Ok...

Tenho um form principal e nele tem 3 guias e em cada guia tem um subformulário.
Se eu usar o filtrar do access para filtrar os dados do form principal, ele vai filtrar normalmente.
Mas se eu filtrar um campo do subformulario ele não filtra através do comando filtrar o access.
Exemplo:
No form Principal tem o campos [Cod_dados], [Nome], etc.
No subformulário, tem os campo [Cod], [Cod_Dados], [Potencial] e [Area_Atuacao]

Pois bem, quando eu vou no campo do subformulário para filtrar todos os [Nome] do form Principal que tem a [Area_atuacao] "TRADE" por exemplo, (lembrando que tem vária áreas), ele não filtra, pois ele reconhece a filtragem somente do subformulário ativo.

Consegui explicar?
Se no banco de dados de 100 registros, 10 tem a [Area_Atuacao] "TRADE", que ele me mostre somente os 10 registros, ouseja, uma filtragem.

Pensei em usar uma inputbox para quando eu digitar o ue procuro, ele faça essa filtragem, porém não estou conseguindo fazer.
Também tentei usar o docmd.applyfilter, também não consegui.

O que faço?

Me envie o BD de novo no estado em que tá para que eu possa dá uma olhada.

Adilson

Segue banco.