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]Como implementar mensagem ao carregar formulario vazio-nulo

    Leandro{RBS}
    Leandro{RBS}
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11
    Registrado : 06/08/2010

    [Resolvido]Como implementar mensagem ao carregar formulario vazio-nulo Empty [Resolvido]Como implementar mensagem ao carregar formulario vazio-nulo

    Mensagem  Leandro{RBS} 16/9/2010, 16:03

    Noa Tarde a todos amigos

    Bom eu tenho um BD “Agenda Niver” nele tem um formulário chamado “frmAgendaNiverHoje” a fonte de controle e da consulta “consultAgendaNiverHoje”
    na consulta Ele tem uma expressão que me mostra o aniversariante do dia, caso não tenha aniversariante ele mostra o formulário sem dados.

    Eu encontrei um tutorial que coloca Msg Ao Consultar Formulario Vazio, Colocar uma msg de aviso quando o formulário não tem registro


    Coloque um campo no Rodapé do seu Formúlário e nomeie "Registros"
    Coloque em Fonte de Controle desse campo: =Count([NomedoCampo])

    *NomedoCampo=Nome de algum campo do Form. De preferência o Identificador.
    *Você pode deixar também esse campo como Vísivel=Não

    E no evento ao carregar do Form:


    CODE
    If Me.registros = 0 Then
    MsgBox "Não existe lançamento nesta DATA para essa CHAPA!!!"
    DoCmd.Close acForm, "frmtblHorasExtrasCons"
    End If
    Mas não deu certo, vcs podem me ajudar por favor
    Desde já agradeço pela atenção

    Att: Leandro{RBS}


    Link BD: http://dl.dropbox.com/u/7757932/Agenda%20Niver.mdb
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10614
    Registrado : 04/11/2009

    [Resolvido]Como implementar mensagem ao carregar formulario vazio-nulo Empty Re: [Resolvido]Como implementar mensagem ao carregar formulario vazio-nulo

    Mensagem  JPaulo 16/9/2010, 16:26

    Veja o simples sem tutorial;

    Private Sub Form_Load()
    If Me.RecordsetClone.RecordCount = 0 Then
    MsgBox "Não existe registros!!!", vbExclamation, "Erro!!!"
    DoCmd.Close
    Else
    Exit Sub
    End If
    End Sub


    Ou...

    Private Sub Form_Load()
    If DCount("*", "[consultAgendaNiverHoje]") = 0 Then
    MsgBox "Não existe registros!!!"
    DoCmd.Close
    Else
    Exit Sub
    End If
    End Sub





    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Como implementar mensagem ao carregar formulario vazio-nulo Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Como implementar mensagem ao carregar formulario vazio-nulo Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Como implementar mensagem ao carregar formulario vazio-nulo Folder_announce_new Instruções SQL como utilizar...
    Leandro{RBS}
    Leandro{RBS}
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11
    Registrado : 06/08/2010

    [Resolvido]Como implementar mensagem ao carregar formulario vazio-nulo Empty Obrigado

    Mensagem  Leandro{RBS} 16/9/2010, 17:24

    JPaulo Venho atraves deste e-mail agradecer por sua ajuda e atenção Deus Abençoe Vc
    Obrigado

    Att:Leandro
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10614
    Registrado : 04/11/2009

    [Resolvido]Como implementar mensagem ao carregar formulario vazio-nulo Empty Re: [Resolvido]Como implementar mensagem ao carregar formulario vazio-nulo

    Mensagem  JPaulo 17/9/2010, 22:13

    Obrigado pelo retorno amigo, o fórum agradece.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Como implementar mensagem ao carregar formulario vazio-nulo Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Como implementar mensagem ao carregar formulario vazio-nulo Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Como implementar mensagem ao carregar formulario vazio-nulo Folder_announce_new Instruções SQL como utilizar...

      Data/hora atual: 16/6/2021, 14:33