MaximoAccess

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

Obrigado

Administração do MaximoAccess

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]Não abrir Formulário sem Dados

    avatar
    vileman
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 579
    Registrado : 25/05/2011

    [Resolvido]Não abrir Formulário sem Dados Empty Não abrir Formulário sem Dados

    Mensagem  vileman em Qua 08 Fev 2012, 22:13

    Estou usando os seguintes comandos para caso não tenha dados não abrir o formulário, nos 2 casos abaixo:

    1) No evento "ao clicar" em 1 Formulário:

    If DCount("*", "NomeConsulta") = 0 Then
    MsgBox "Não existem Dados a serem exibidos", vbOKOnly + vbCritical, "Sistema - Formulário Sem Dados"
    Else
    End If

    O formulário acima é baseado em 1 Consulta com 3 tabelas qúe por sua vez faz a filtragem para o formulário.

    Problema: Aparece a mensagem, mas ao clicar em ok, abre o formulário sem os dados, o qual não deveria.

    2) Em outro formulário os seguintes comandos no evento "ao clicar":

    If DCount("*", "NomeTabela") = 0 Then
    MsgBox "Não existem Dados a serem exibidos", vbOKOnly + vbCritical, "Sistema - Formulário Sem Dados"
    Else
    End If

    O formulário acima é baseado diretamente em 1 tabela.

    Problema: Aparece a mensagem, mas ao clicar em ok, abre o formulário sem os dados, o qual não deveria.

    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3240
    Registrado : 21/04/2011

    [Resolvido]Não abrir Formulário sem Dados Empty Re: [Resolvido]Não abrir Formulário sem Dados

    Mensagem  Marcelo David em Qua 08 Fev 2012, 22:34

    Olá,
    Você apenas está informando que não há dados...
    Terá que após a inormação cancelar o evento

    If DCount("*", "NomeConsulta") = 0 Then
    MsgBox "Não existem Dados a serem exibidos", vbOKOnly + vbCritical, "Sistema - Formulário Sem Dados"
    Cancel = True 'Cancelo o evento
    Else
    End If


    .................................................................................
    Marcelo David | [Resolvido]Não abrir Formulário sem Dados LinkedIn_Icon.jpg.original LinkedIn
    https://www.freetool.dev
    avatar
    Convidad
    Convidado

    [Resolvido]Não abrir Formulário sem Dados Empty Re: [Resolvido]Não abrir Formulário sem Dados

    Mensagem  Convidad em Qui 09 Fev 2012, 00:09

    Exatamente.
    Mas tem que colocar o código no evento aoAbrir do Formulário, porque é esse evento que tem o Cancel do evento, caso contrário o evento não será cancelado.

    Código:

    Private Sub Form_Open(Cancel As Integer)
    If DCount("*", "NomeConsulta") = 0 Then
    MsgBox "Não existem Dados a serem exibidos", vbOKOnly + vbCritical, "Sistema - Formulário Sem Dados"
    Cancel = True 'Cancelo o evento
    Else
    End If

    End Sub

    Abraços
    avatar
    vileman
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 579
    Registrado : 25/05/2011

    [Resolvido]Não abrir Formulário sem Dados Empty Não abrir Formulário sem Dados

    Mensagem  vileman em Qui 09 Fev 2012, 11:42

    Bom dia,

    Marcelo David: Que cabeça de vento a minha, realmente tens razão, esqueci de colocar a ação após a mensagem.

    Balem: Mais uma vez obrigado, funcionou perfeitamente.

    Agradeço a ambos pela ajuda.

    Muita Paz.
    avatar
    Convidad
    Convidado

    [Resolvido]Não abrir Formulário sem Dados Empty Re: [Resolvido]Não abrir Formulário sem Dados

    Mensagem  Convidad em Qui 09 Fev 2012, 11:47

    Valeu pelo retorno.

    Boa sorte !!
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3240
    Registrado : 21/04/2011

    [Resolvido]Não abrir Formulário sem Dados Empty Re: [Resolvido]Não abrir Formulário sem Dados

    Mensagem  Marcelo David em Qui 09 Fev 2012, 12:51

    Grato amigão!!


    .................................................................................
    Marcelo David | [Resolvido]Não abrir Formulário sem Dados LinkedIn_Icon.jpg.original LinkedIn
    https://www.freetool.dev

      Data/hora atual: Qui 21 Jan 2021, 07:36