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]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: Dom 22 Out 2017, 13:05