MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    Mostrar mensagem quando campo consulta não tem o valor procurado

    Compartilhe

    jefer.pralon
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 04/09/2014

    Mostrar mensagem quando campo consulta não tem o valor procurado

    Mensagem  jefer.pralon em Seg 21 Mar 2016, 6:26 pm

    Boa tarde!

    Gostaria de uma ajuda no seguinte sentido: criei um formulário atrelado a uma consulta e nesta consulta há um campo que se chama "nome", neste coloquei o seguinte critério: (Como "*" & [Digite o nome que deseja consultar] & "*") para que pudesse pesquisar por qualquer parte do nome, porém quando o nome procurado não existe o formulário abre somente com o pano de fundo, sem nenhum campo.

    Gostaria de saber como fazer para que fosse exibida uma mensagem avisando que não há o nome procurado.

    Fico no aguardo e agradeço a atenção dos amigos.

    Obs.: sou iniciante.
    avatar
    Fernando Bueno
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1820
    Registrado : 13/04/2012

    Re: Mostrar mensagem quando campo consulta não tem o valor procurado

    Mensagem  Fernando Bueno em Sab 09 Abr 2016, 6:05 am

    Bom dia, coloque no evento Ao Abrir do formulário

    Código:
    Private Sub Form_Open(Cancel As Integer)
    If Form.RecordsetClone.RecordCount = 0 Then
      MsgBox "Sem registros", vbExclamation, "Atenção"
      DoCmd.Close acForm, "Seu_Formulario"
      Exit Sub
    End If
    End Sub


    .................................................................................
    Um abraço
    Fernando Bueno


    O aumento do conhecimento é como uma esfera dilatando-se no espaço
    quanto maior a nossa compreensão,
    maior o nosso contacto com o desconhecido
    [Você precisa estar registrado e conectado para ver esta imagem.]

    jefer.pralon
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 04/09/2014

    Re: Mostrar mensagem quando campo consulta não tem o valor procurado

    Mensagem  jefer.pralon em Seg 06 Jun 2016, 5:58 pm

    Olá Fernando Bueno!

    Obrigado pela ajuda. Resolveu o meu problema.

    Desculpe não ter agradecido antes, mas foi porque eu fiquei um tento sem acessar devido a problemas particulares.

    Abraço.

      Data/hora atual: Sab 25 Mar 2017, 1:49 am