MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


3 participantes

    Como Filtrar em um Sub Formulario a partir de um botao no form Principal

    Highlander8
    Highlander8
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 70
    Registrado : 25/10/2011

    Como Filtrar em um Sub Formulario a partir de um botao no form Principal Empty Como Filtrar em um Sub Formulario a partir de um botao no form Principal

    Mensagem  Highlander8 Ter 12 maio - 18:07

    Prezados Amigos,
    ou melhor irmãos!
    Afinal como vc's já me ajudaram e já tive a oportunidade de ser agraciado em ajudar outras pessoas tbm.

    Bom, seguinte:

    Tenho um formulário principal que contem um sub formulário.
    E neste formulário principal coloquei um botão pata filtrar uma informação que está contida em um campo do sub formulário.

    Achei que fosse ser simples... mas estou apanhando.
    E nem com macro funcionou.
    Quando utilizei a macro, ele pede o campo que quero localizar como se o mesmo não existisse na tabela!

    OBS: não tem como eu postar o BD. Pois o mesmo é muito grande.

    # Eu só quero filtar um campo que está no sub form a partir de um botão no form principal. Só isso!

    Estou utilizando o seguinte: Ao clicar no botão do form principal

    Dim str As Double
    Dim frm As Form

    Set frm = Me!Subform_AO.Form

    str = InputBox("Informe a AO:")

    frm.Filter = "[NºAO] = " & str
    frm.FilterOn = True

    End Sub


    Desde já agradeço e aguardo retorno...


    .................................................................................
    Private Sub Help_AfterUpdate()
    If Me.Help = "Pude ajudar" Then
    MsgBox("Foi um prazer!")
    Else
    MsgBox(“Tentarei novamente...")
    End If
    End Sub

    Highlander.
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3900
    Registrado : 04/04/2010

    Como Filtrar em um Sub Formulario a partir de um botao no form Principal Empty Re: Como Filtrar em um Sub Formulario a partir de um botao no form Principal

    Mensagem  Avelino Sampaio Qua 13 maio - 4:49

    Olá!

    O campo [NºAO] lá na sua tabela é de que tipo ? String ou Número(double) ?

    Aguardamos


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    Highlander8
    Highlander8
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 70
    Registrado : 25/10/2011

    Como Filtrar em um Sub Formulario a partir de um botao no form Principal Empty Como Filtrar em um Sub Formulario a partir de um botao no form Principal

    Mensagem  Highlander8 Qua 13 maio - 8:41

    Grande Avelino, meu camarada!
    Como está?

    Obrigado pela resposta.

    Pois é, falha minha nesta parte. O campo na tabela está como texto.
    Mas, mesmo assim mudei para Dim str as String e ainda assim não funcionou.

    O que pode ser ainda?

    Obrigado e Aguardo retorno...


    .................................................................................
    Private Sub Help_AfterUpdate()
    If Me.Help = "Pude ajudar" Then
    MsgBox("Foi um prazer!")
    Else
    MsgBox(“Tentarei novamente...")
    End If
    End Sub

    Highlander.
    Highlander8
    Highlander8
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 70
    Registrado : 25/10/2011

    Como Filtrar em um Sub Formulario a partir de um botao no form Principal Empty Como Filtrar em um Sub Formulario a partir de um botao no form Principal

    Mensagem  Highlander8 Qua 13 maio - 10:02

    Por favor,
    Alguém poderia me ajudar?

    Tenho q finalizar isso até amanhã....

    Obrigado.


    .................................................................................
    Private Sub Help_AfterUpdate()
    If Me.Help = "Pude ajudar" Then
    MsgBox("Foi um prazer!")
    Else
    MsgBox(“Tentarei novamente...")
    End If
    End Sub

    Highlander.
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3900
    Registrado : 04/04/2010

    Como Filtrar em um Sub Formulario a partir de um botao no form Principal Empty Re: Como Filtrar em um Sub Formulario a partir de um botao no form Principal

    Mensagem  Avelino Sampaio Qua 13 maio - 10:10

    Se é texto faltou o uso dos apóstrofes na filtragem

    frm.Filter = "[NºAO] = '" & str & "'"

    Sucesso!


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4140
    Registrado : 29/06/2012

    Como Filtrar em um Sub Formulario a partir de um botao no form Principal Empty Re: Como Filtrar em um Sub Formulario a partir de um botao no form Principal

    Mensagem  Noobezinho Qua 13 maio - 10:16

    Victor

    Melhor colocar parte do teu aplicativo pra nos analisar.

    É preciso da tabela e os dois formulários em questão.

    Agora, caso  queira enviar o aplicativo completo, deve fazer duas compactações:

    1- No proprio Access  que é reparar e compactar. Isso diminui e muito o tamanho do arquivo

    2- Comprimindo com o rar ou zip

    Utilize os serviços do Mega ou Dropbox para anexar teu aplicativo,
    pois pelo fórum não está sendo possível.

    Como deve saber, só assim pra poder ajudar melhor.

    Noob


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    Highlander8
    Highlander8
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 70
    Registrado : 25/10/2011

    Como Filtrar em um Sub Formulario a partir de um botao no form Principal Empty Como Filtrar em um Sub Formulario a partir de um botao no form Principal

    Mensagem  Highlander8 Qua 13 maio - 14:38

    Olá Noob.
    Ok.
    Tentarei postar aqui o sistema.
    Obrigado.

    ***
    Grande Mestre Avelino,
    Coloquei exatamente como me orientou, e ainda assim sem sucesso.
    Não dá erro, mas tbm não funfa.

    Não sei mais o que fazer...

    Será que de fato não tem como fazer filtro em um sub-formulário através de um form principal? Não é possível!
    Pra solucionar temporariamente, fiz gerar uma consulta em tabela...

    Bom, obrigado e aguardo.

    Abraços!


    .................................................................................
    Private Sub Help_AfterUpdate()
    If Me.Help = "Pude ajudar" Then
    MsgBox("Foi um prazer!")
    Else
    MsgBox(“Tentarei novamente...")
    End If
    End Sub

    Highlander.
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3900
    Registrado : 04/04/2010

    Como Filtrar em um Sub Formulario a partir de um botao no form Principal Empty Re: Como Filtrar em um Sub Formulario a partir de um botao no form Principal

    Mensagem  Avelino Sampaio Qui 14 maio - 9:05

    Segue um exemplo com o mesmo código que vc utiliza.

    Sucesso!
    Anexos
    Como Filtrar em um Sub Formulario a partir de um botao no form Principal AttachmentFiltroSubForm.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (21 Kb) Baixado 54 vez(es)


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    Highlander8
    Highlander8
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 70
    Registrado : 25/10/2011

    Como Filtrar em um Sub Formulario a partir de um botao no form Principal Empty Como Filtrar em um Sub Formulario a partir de um botao no form Principal

    Mensagem  Highlander8 Qui 14 maio - 15:10

    Oi Avelino,

    Obrigado pelo sistema que criou. E de fato funciona!
    Ficou muito bom e consegue explanar bem o que desejo.

    Mas quando eu vinculei o sub formulário ao formulário principal através dos campos "Mestres" e "filho", o mesmo parou de filtrar como estava fazendo.
    Eu acho que até filtra, mas os campos continuam aparecendo, só que aparecem em branco e o campo que vc pediu pra filtar que aparece a informação.

    Saberia o por quê?

    Segue link do sistema que fez modificado por mim para avaliação. (Nao anexei pois aqui não aceita ".rar")

    https://www.dropbox.com/s/oifv9bq9pnvlq65/FiltroSubFormALT.rar?dl=0

    Desde já agradeço e aguardo retorno....


    .................................................................................
    Private Sub Help_AfterUpdate()
    If Me.Help = "Pude ajudar" Then
    MsgBox("Foi um prazer!")
    Else
    MsgBox(“Tentarei novamente...")
    End If
    End Sub

    Highlander.
    Highlander8
    Highlander8
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 70
    Registrado : 25/10/2011

    Como Filtrar em um Sub Formulario a partir de um botao no form Principal Empty Como Filtrar em um Sub Formulario a partir de um botao no form Principal

    Mensagem  Highlander8 Seg 18 maio - 9:45

    Olá!

    Avelino ou outro irmão conseguiu ver o link que coloquei?

    Obrigado e aguardo...


    .................................................................................
    Private Sub Help_AfterUpdate()
    If Me.Help = "Pude ajudar" Then
    MsgBox("Foi um prazer!")
    Else
    MsgBox(“Tentarei novamente...")
    End If
    End Sub

    Highlander.

    Conteúdo patrocinado


    Como Filtrar em um Sub Formulario a partir de um botao no form Principal Empty Re: Como Filtrar em um Sub Formulario a partir de um botao no form Principal

    Mensagem  Conteúdo patrocinado


      Data/hora atual: Qui 21 Nov - 16:57