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

    [Resolvido]Pesquisa de valor em caixa de combinação

    Compartilhe

    Marceff@bol.com.br
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 27
    Registrado : 26/04/2011

    [Resolvido]Pesquisa de valor em caixa de combinação

    Mensagem  Marceff@bol.com.br em Seg 29 Fev - 8:24

    Bom Dia!!!
    Amigos

    Tenho uma dúvida e não estou sabendo corrigir, preciso clicar em um botão e com base no valor da caixa de combinação ele me apresente a msg de que a informação não existe, estou colocando conforme o código abaixo, mas existindo ou não a informação a msg aparece, mas quero que só seja apresentada a msg se a informação não existir.

    Já tentei invertendo, já tentei (not isnull, já tentei começando pelo DLookup e sempre é apresentado a msg em qualquer condição, se alguém puder me ajudar agradeço.

    Segue:

    If IsNull(DLookup("[MeuCampoTabela]", "MinhaTabela", "[MeucampoTabela] ='" & Me!MeuCampoFormulário & "'")) Then
    'Se não existe a informação apresenta a msg
    MsgBox "Minha Mensagem.", vbOKOnly + vbInformation, "Título"
    Me!MeuCampoFormulário = "" 'Desfaz a digitação.
    Else
    'Se existe a informação abre outro formulário
    DoCmd.OpenForm "OutroFormulário"
    End If

    FranklinJSP
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 23
    Registrado : 25/02/2016

    Funciona!!!

    Mensagem  FranklinJSP em Seg 29 Fev - 14:32

    Em anexo o arquivo que da msg ou abre form. A solução e simples, basta colocar NZ no Dlookup

    Saludos
    Anexos
    ExemploCombo.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (113 Kb) Baixado 22 vez(es)


    .................................................................................
    Meu Português não é muito bom,
    mas eu gosto de colaborar... em qualquer idioma
    [Você precisa estar registrado e conectado para ver esta imagem.] "Access... minha paixão"

    Marceff@bol.com.br
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 27
    Registrado : 26/04/2011

    Re: [Resolvido]Pesquisa de valor em caixa de combinação

    Mensagem  Marceff@bol.com.br em Seg 29 Fev - 20:26

    Boa Noite!!!
    FranklinJSP

    Show de bola, exatamente como eu precisava, muito obrigado!!!

    Att. Marcelino

      Data/hora atual: Seg 5 Dez - 12:34