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]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 : 535
    Registrado : 25/05/2011

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

    Mensagem  vileman em 9/2/2012, 00: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 : 2796
    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 9/2/2012, 00: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
    www.mrdsystem.com.br (em construção)
    avatar
    Convidad
    Convidado

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

    Mensagem  Convidad em 9/2/2012, 02: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 : 535
    Registrado : 25/05/2011

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

    Mensagem  vileman em 9/2/2012, 13: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 9/2/2012, 13:47

    Valeu pelo retorno.

    Boa sorte !!
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2796
    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 9/2/2012, 14:51

    Grato amigão!!


    .................................................................................
    Marcelo David
    www.mrdsystem.com.br (em construção)

    Conteúdo patrocinado

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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/8/2019, 10:42