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


    [Resolvido]Mensagem "Registro não encontrado"

    avatar
    ssporch
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 58
    Registrado : 19/10/2010

    [Resolvido]Mensagem "Registro não encontrado" Empty Mensagem "Registro não encontrado"

    Mensagem  ssporch 12/5/2012, 15:43

    Prezados,

    Estou fazendo a Consulta abaixo:

    SELECT INDICACOES.INDICADO, INDICACOES.ESPECIALIDADE1, INDICACOES.ESPECIALIDADE2, INDICACOES.ESPECIALIDADE3, INDICACOES.ENDERECO, INDICACOES.BAIRRO, INDICACOES.CIDADE, INDICACOES.UF, INDICACOES.CEP, INDICACOES.TELEF1, INDICACOES.TELEF2, INDICACOES.CELULAR, INDICACOES.EMAIL, INDICACOES.SITE, INDICACOES.INDICADO_POR, INDICACOES.CONVENIO
    FROM INDICACOES
    WHERE (((INDICACOES.ESPECIALIDADE1) Like "*" & [DIGITE A ESPECIALIZAÇÃO DESEJADA - BASTAM ALGUNS CARACTERES] & "*")) OR (((INDICACOES.ESPECIALIDADE2) Like "*" & [DIGITE A ESPECIALIZAÇÃO DESEJADA - BASTAM ALGUNS CARACTERES] & "*")) OR (((INDICACOES.ESPECIALIDADE3) Like "*" & [DIGITE A ESPECIALIZAÇÃO DESEJADA - BASTAM ALGUNS CARACTERES] & "*")) AND (((INDICACOES.CONVENIO) Like "*" & [DIGITE O CONVENIO DESEJADO - BASTAM ALGUNS CARACTERES] & "*"));


    Como faço para que uma mensagem seja exibida se nenhum registro que satisfaça as condições seja encontrado?
    avatar
    Convidad
    Convidado


    [Resolvido]Mensagem "Registro não encontrado" Empty Re: [Resolvido]Mensagem "Registro não encontrado"

    Mensagem  Convidad 12/5/2012, 15:56


    Olá

    A consulta é Fonte de Registro de um formulário?
    Então poderia exibir a mensagem ao carregar o form:

    Private Sub Form_Load()
    If Not Nz(DCount("*", Form.RecordSource), 0) > 0 Then
    MsgBox "Não há registros"
    End If
    End Sub

    avatar
    ssporch
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 58
    Registrado : 19/10/2010

    [Resolvido]Mensagem "Registro não encontrado" Empty Mensagem "Registro não encontrado"

    Mensagem  ssporch 12/5/2012, 16:31

    Norberto,

    A Consulta é fonte, sim, para o Formulário "Consulta_por_especialidade_e_convenio".

    Conforme suas instruções, entrei nas Propriedades do Formulário e, no Evento Ao Carregar, coloquei o código enviado por você.

    Porém, ocorre um erro de depuração na linha:

    If Not Nz(DCount("*", Form.RecordSource), 0) > 0 Then

    Como acertar?

    Um abraço,

    Sérgio
    avatar
    Convidad
    Convidado


    [Resolvido]Mensagem "Registro não encontrado" Empty Re: [Resolvido]Mensagem "Registro não encontrado"

    Mensagem  Convidad 12/5/2012, 16:48


    Provavelmente a Fonte de Registro do form é a Select da consulta.
    Salve a consulta e defina a Fonte com seu nome.

    Testei aqui e funciona!

    avatar
    Convidad
    Convidado


    [Resolvido]Mensagem "Registro não encontrado" Empty Re: [Resolvido]Mensagem "Registro não encontrado"

    Mensagem  Convidad 10/6/2012, 18:11


    Tópico marcado como resolvido por não ter havido retorno do usuário.


    Conteúdo patrocinado


    [Resolvido]Mensagem "Registro não encontrado" Empty Re: [Resolvido]Mensagem "Registro não encontrado"

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 20/5/2024, 23:11