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


2 participantes

    Pesquisar no formulário com anexo

    avatar
    DianaSilva
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 2
    Registrado : 28/03/2018

    Pesquisar no formulário com anexo Empty Pesquisar no formulário com anexo

    Mensagem  DianaSilva 25/4/2018, 00:08

    Boa noite Pessoal, e minha primeira vez que participo..

    Estou criando um sistema igual uma Biblioteca virtual

    Criei um Formulário de cadastro blz
    Estou com dificuldade no Formulário que vou consultar
    no Formulário FrmPesquisa contem subformulário com o nome do arquivo e o Anexo.
    no FrmPesquisa uma caixa de combinação e uma caixa de texto para fazer a pesquisa no SubFormulário

    na caixa de texto contem o seguinte codigo:
    Código:
    Private Sub CaixaCombinacao_Change()

    Dim parteNome As String
    Dim tipoFiltro As String

    parteNome = CaixaCombinacao.Text
    tipoFiltro = ComboCombinacao

       If parteNome <> "" Then
           Select Case tipoFiltro
               Case "Começa com"
                Me.FrmSuperbBusca.Form.Filter = "nome Like '" & parteNome & "*'"
                Me.FrmSuperbBusca.Form.FilterOn = True
               Case "Termina com"
                Me.FrmSuperbBusca.Form.Filter = "nome Like '*" & parteNome & "'"
                Me.FrmSuperbBusca.Form.FilterOn = True
                Case "Contem"
                Me.FrmSuperbBusca.Form.Filter = "nome Like '*" & parteNome & "*'"
                Me.FrmSuperbBusca.Form.FilterOn = True
               Case "Não Contem"
                Me.FrmSuperbBusca.Form.Filter = "nome Not Like '*" & parteNome & "*'"
                Me.FrmSuperbBusca.Form.FilterOn = True
                   End Select
           Else
               Me.FrmSuperbBusca.Form.FilterOn = False
               End If
     End Sub

    Mas quando faço a pesquisa escolhendo o filtro e Nome mostra vazio. não sei aonde estou errando...
    Se tiver outro jeito mais eficiente na pesquisa que busca junto o anexo eu agradeço qualquer ajuda.
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    Pesquisar no formulário com anexo Empty Re: Pesquisar no formulário com anexo

    Mensagem  Noobezinho 26/4/2018, 12:05

    Diana

    Bem-vinda ao fórum!

    Esse formulário é somente para pesquisa?

    Não entendi o que contém nesse formulário e subformulário

    Seria bom tirar uma ss,printscreen, para a gente entender.

    Veja na minha assinatura  onde diz :

    como anexar uma imagem no Post:

    Para adiantar, talvez esse exemplo ajude.

    [ ]'s

    Balem


    .................................................................................
    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.
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    Pesquisar no formulário com anexo Empty Re: Pesquisar no formulário com anexo

    Mensagem  Noobezinho 27/4/2018, 01:04


    Diana

    Conforme colocou na tua mensagem no tópico que sugeri,

    resolveu tua dúvida.

    Só falta colocar o resolvido no título desse tópico.

    Caso não saiba como, veja ali embaixo na minha assinatura.

    [ ]'s

    Balem


    .................................................................................
    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.

    Conteúdo patrocinado


    Pesquisar no formulário com anexo Empty Re: Pesquisar no formulário com anexo

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2024, 18:59