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]impedir de abrir formulário se não tiver na lista - ACCESS VBA

    Compartilhe

    leandroribeiro23
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 22
    Registrado : 15/02/2016

    [Resolvido]impedir de abrir formulário se não tiver na lista - ACCESS VBA

    Mensagem  leandroribeiro23 em Ter 29 Mar 2016, 19:45

    Olá, estou com um problema que não consigo resolver.
    Tenho uma pesquisa no ACCESS, entretanto, mesmo que não encontre o nome pesquisado está abrindo o formulário em branco. portanto, preciso que se eu fizer a pesquisa não encontrar nada que não seja aberto o fomulário.

    O procedimento é o seguinte;

    Private Sub Comb_Procura_AfterUpdate()
    DoCmd.OpenForm "frm_andamento_processo", acNormal, "", "[pesquisa2]=[Forms]![frm_pesquisa]![comb_procura]", , acNormal
    Comb_Procura = Null
    DoCmd.Close acForm, "frm_pesquisa", acSaveYes
    End Sub
    ----------------------

    Se não encontrar nada para bastaria que ele mostrasse a janela dizendo " o nome pesquisa não existe na lista", entretanto, mesmo assim ele insiste em abrir o formulário em branco.

    Private Sub Comb_Procura_NotInList(NewData As String, Response As Integer)
    MsgBox "O nome pesquisado não existe na lista"
    Response = 0
    End Sub



    leandroribeiro23
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 22
    Registrado : 15/02/2016

    Re: [Resolvido]impedir de abrir formulário se não tiver na lista - ACCESS VBA

    Mensagem  leandroribeiro23 em Ter 29 Mar 2016, 20:48

    Olá, já resolvi o problema

    Private Sub Comb_Procura_AfterUpdate()
    If Comb_Procura = Comb_Procura Then
    DoCmd.OpenForm "frm_andamento_processo", acNormal, "", "[pesquisa2]=[Forms]![frm_pesquisa]![comb_procura]", , acNormal
    DoCmd.Close acForm, "frm_pesquisa", acSaveYes
    Else
    End If
    End Sub

    -----

    Private Sub Comb_Procura_NotInList(NewData As String, Response As Integer)
    MsgBox "O nome pesquisado não existe na lista"
    Response = 0
    End Sub

    assim se o nome estiver errado ele não abre e se não escrever nada apertar uma tecla ele também não abriu...

      Data/hora atual: Sex 09 Dez 2016, 07:42