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

    avatar
    leandroribeiro23
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  leandroribeiro23 Ter 29 Mar - 12: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


    avatar
    leandroribeiro23
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  leandroribeiro23 Ter 29 Mar - 13: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: Qui 28 Mar - 16:35