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]Abrir Vários formulários

    Compartilhe

    Diamantino
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 46
    Registrado : 08/04/2013

    [Resolvido]Abrir Vários formulários

    Mensagem  Diamantino em 6/3/2018, 12:55

    Bom dia Moçada!!!

    Meu problema é o seguinte.

    Tenho no BD três consultas e quatro formulários os quais queria que eles só abrisse quando eu fechar primeiro formulário, mas eles só poderiam ser abertos caso tenha alguma data vencida.
    Lembrando que cada consulta trata se de dados diferentes, mas todas com vencimentos.

    Caso tenha uma data vencida abra, caso não tenha não precisa abrir.


    Aguardo.

    Abraço a todos.
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3904
    Registrado : 14/08/2013

    Re: [Resolvido]Abrir Vários formulários

    Mensagem  FabioPaes em 6/3/2018, 13:10

    No botão fechar de Cada Formulário, mande primeiro abri o 2º Formulário, em seguida coloque pra fechar o 1º Formulário.
    Já no Evento, Ao Carregar do 2º Formulário, faça uma contagem de dados com o DCOUNT() em cima da consulta origem dos dados desse Formulário, se a contagem de dados for MENOR que 0, ele abre o 3º Formulário e Fecha o 2º Formulário! No Botão Fechar o 2º Formulário, coloque o Comando para Abrir o 3º Formulário e em seguida Fechar o 2º Formulário!


    Repita o mesmo para os demais. Assim terá uma dinâcia:

    Abre o formulário, se tem dados ele não faz nada, se nao tem, ele abre o próximo formulário e fecha o atual, pois o atual nao tinha nada para exibir!


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

    Diamantino
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 46
    Registrado : 08/04/2013

    Abrir Vários formulários

    Mensagem  Diamantino em 6/3/2018, 14:39

    Amigo,

    Não funcionou.

    Mas valeu a intenção.

    Aguardo novas idéias.
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3904
    Registrado : 14/08/2013

    Re: [Resolvido]Abrir Vários formulários

    Mensagem  FabioPaes em 6/3/2018, 15:14

    Poste o exemplo com as alterações sugeridas!


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

    Diamantino
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 46
    Registrado : 08/04/2013

    Abrir Vários formulários

    Mensagem  Diamantino em 7/3/2018, 13:47

    Bom dia,

    Amigo consegui fazer aqui como você falou o problema estava na elaboração do DCOUNT().

    Estava colocando Exit Sub aí não dava certo.

    Resolvido.

    Muito agradecido.
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3904
    Registrado : 14/08/2013

    Re: [Resolvido]Abrir Vários formulários

    Mensagem  FabioPaes em 7/3/2018, 18:25

    Grato pelo retorno e até a próxima se Deus quiser!


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

      Data/hora atual: 23/10/2018, 15:30