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 : 45
    Registrado : 08/04/2013

    [Resolvido]Abrir Vários formulários

    Mensagem  Diamantino em Ter 06 Mar 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 : 3899
    Registrado : 14/08/2013

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

    Mensagem  FabioPaes em Ter 06 Mar 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 : 45
    Registrado : 08/04/2013

    Abrir Vários formulários

    Mensagem  Diamantino em Ter 06 Mar 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 : 3899
    Registrado : 14/08/2013

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

    Mensagem  FabioPaes em Ter 06 Mar 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 : 45
    Registrado : 08/04/2013

    Abrir Vários formulários

    Mensagem  Diamantino em Qua 07 Mar 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 : 3899
    Registrado : 14/08/2013

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

    Mensagem  FabioPaes em Qua 07 Mar 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: Dom 27 Maio 2018, 04:07