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

    [Resolvido]Formulário de pesquisa fica em branco quando o termo pesquisado não existe

    andrelecio
    andrelecio
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 61
    Registrado : 02/03/2012

    [Resolvido]Formulário de pesquisa fica em branco quando o termo pesquisado não existe Empty Formulário de pesquisa fica em branco quando o termo pesquisado não existe

    Mensagem  andrelecio 7/3/2012, 20:29

    Saudações,

    Tenho um formulário de pesquisa que busca por nome e código, funciona perfeitamente até que descobri que se o termo pesquisado não existe, ele fica totalmente em branco e trava, alguém sabe como resolver isso?

    Aproveitando, haveria como colocar um caixa de aviso alertando que o usuário não existe?


    Agradeço de antemão qualquer ajuda
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Formulário de pesquisa fica em branco quando o termo pesquisado não existe Empty Re: [Resolvido]Formulário de pesquisa fica em branco quando o termo pesquisado não existe

    Mensagem  criquio 7/3/2012, 20:52

    Como está fazendo para pesquisar? É sempre importante colocar a função ou a forma que está trabalhando para podermos ser mais sucintos nas respostas. Mas talvez utilizando o DCount em uma condição If:

    If DCount("*", "Tabela", "Código=" & Me.Código) = 0 Then
    Me.NomeDoLabel.Caption = "Não há registro para esse contato"
    Else
    Me.Nome = DLookup("Nome", "Tabela", "Código=" & Me.Código)
    End If


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    andrelecio
    andrelecio
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 61
    Registrado : 02/03/2012

    [Resolvido]Formulário de pesquisa fica em branco quando o termo pesquisado não existe Empty Re: [Resolvido]Formulário de pesquisa fica em branco quando o termo pesquisado não existe

    Mensagem  andrelecio 8/3/2012, 00:12

    Desculpe, o código usado foi um que encontrei neste mesmo forum, ele pesquisa no próprio formulário.

    Código:
    Me.Filter = "[Nome] like '*" & Me.[Texto20] & "*'"
        Me.OrderBy = "Nome"
        Me.OrderByOn = True
        Me.FilterOn = True
        Texto20 = ""
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Formulário de pesquisa fica em branco quando o termo pesquisado não existe Empty Re: [Resolvido]Formulário de pesquisa fica em branco quando o termo pesquisado não existe

    Mensagem  criquio 8/3/2012, 00:39

    Talvez juntando as duas:

    If DCount("*", "Tabela", "Nome='" & Me.Texto20 & "'") = 0 Then
    Me.Texto20 = "Não há registros para esse contato"
    Else
    Me.Filter = "[Nome] like '*" & Me.[Texto20] & "*'"
    Me.OrderBy = "Nome"
    Me.OrderByOn = True
    Me.FilterOn = True
    Me.Texto20 = ""
    End If


    Só tem um detalhe: você está filtrando pelo nome. Isso pode ser útil caso a intenção seja procurar todas as pessoas com um determinado nome ou parte dele, mas caso a intenção seja filtrar as vendas de um único usuário por exemplo, é melhor usar um dado único, como o código do registro ou o CPF do cidadão.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    Convidad
    Convidado


    [Resolvido]Formulário de pesquisa fica em branco quando o termo pesquisado não existe Empty Re: [Resolvido]Formulário de pesquisa fica em branco quando o termo pesquisado não existe

    Mensagem  Convidad 25/3/2012, 05:32


    ... Sem retorno do usuário ...
    avatar
    Convidad
    Convidado


    [Resolvido]Formulário de pesquisa fica em branco quando o termo pesquisado não existe Empty Re: [Resolvido]Formulário de pesquisa fica em branco quando o termo pesquisado não existe

    Mensagem  Convidad 12/4/2012, 02:58


    Considerado como resolvido.

    Conteúdo patrocinado


    [Resolvido]Formulário de pesquisa fica em branco quando o termo pesquisado não existe Empty Re: [Resolvido]Formulário de pesquisa fica em branco quando o termo pesquisado não existe

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 25/11/2024, 00:05