MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Uso da função IsNull num If Then

    Compartilhe

    phflogic
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 41
    Registrado : 11/10/2012

    [Resolvido]Uso da função IsNull num If Then

    Mensagem  phflogic em Seg 23 Dez 2013, 15:30

    Boa tarde
    Tenho uma instrução DLookup do tipo

    Dim A as String
    A = DLookup ....... etc. etc. etc. em que o DLookup faz a busca numa consulta.

    Acontece que por vezes A é um resultado nulo. O DLookup não encontra valor correspondente na consulta.
    Nestes casos, quero que, através de uma instrução If Then Else, a aplicação tenha um determinado procedimento (aviso ao utilizador por uma MsgBox).

    Já tentei usar a função IsNull de todas as formas dentro do If Then, e dá-me sempre erro.
    Alguém pode dar uma ajudinha?
    Obrigado
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9337
    Registrado : 04/11/2009

    Re: [Resolvido]Uso da função IsNull num If Then

    Mensagem  JPaulo em Seg 23 Dez 2013, 15:45

    If IsNull(DLookup("[SeuCampo]", "SuaConsulta", "[SeuCampoCriterio] = '" & Me.SeuCampoCriterio & "'")) Then

    Exemplo;

    Dim strBusca As String
    If IsNull(DLookup("[CampoNome]", "SuaConsulta", "CampoNome='Joao Paulo'")) Then
    MsgBox "Não encontrado...", vbCritical
    Else
    strBusca = DLookup("[CampoNome]", "SuaConsulta", "CampoNome='Joao Paulo'")
    MsgBox strBusca
    End If



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    phflogic
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 41
    Registrado : 11/10/2012

    Re: [Resolvido]Uso da função IsNull num If Then

    Mensagem  phflogic em Seg 23 Dez 2013, 16:30

    Obrigado pela dica.
    Resolvi a questão criando um campo desvinculado e invisível, chamado "registo" e cujo valor é determinado pelo DLookup.
    Na instrução If Then, usei

    If IsNull([registo]) Then

    E tudo funciona na perfeição.

    Mais uma vez obrigado e um FELIZ NATAL para todos.

      Data/hora atual: Qui 27 Jul 2017, 09:39