MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Mostrar Mensagem ao Abrir Formulário

    Compartilhe

    pengo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 82
    Registrado : 10/12/2013

    [Resolvido]Mostrar Mensagem ao Abrir Formulário

    Mensagem  pengo em Qui 15 Maio 2014, 22:20

    Boa Tarde amigos do fórum,

    Venho mais uma vez solicitar ajuda de vocês para resolver um problema que estou com dúvidas.

    Gostaria que ao abrir um fomulário, o access "olhasse" duas tabelas que possuem o campo data, e se caso ele encontrasse em algumas dessas tabela uma data, igual a data atual, ele me mostrasse uma mensagem.

    Por exemplo: Tenho duas tabelas tb_a e tb_b, nessas tabelas tenho diversos campos, mas ambas possuem um campo data, ambas as tabelas estão populadas com diversos registros, sendo que a maioria dos registros possuem um valor para o campo data registrado, porém pode estar em branco também.
    Tenho um formulário inicial frm_inicial, e gostaria que ao abrir esse formulário, ele buscasse nessas minhas duas tabelas, no campo data, se existe algum registro que coincida com a data atual do sistema, caso exista, ele exibe uma mensagem de alerta "Existem registros com a data de hoje", caso não exista nenhum registro com a data do sistema, ele não deve fazer nada, simplesmente deixar eu mexer no formulário aberto.

    Isso seria possível??
    Procurei aqui no fórum mas não encontrei nada semelhante.

    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 820
    Registrado : 18/07/2012

    Mostrar Mensagem ao Abrir Formulário

    Mensagem  toyebom em Qui 15 Maio 2014, 22:45

    tenta algo no evento ao abrir tipo "If Me.seucampo = Data() Then Msgbox "aviso data"


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.

    pengo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 82
    Registrado : 10/12/2013

    Re: [Resolvido]Mostrar Mensagem ao Abrir Formulário

    Mensagem  pengo em Sex 16 Maio 2014, 14:38

    Bom dia toyebom,

    Acredito que dessa forma não irá funcionar, pois o formulário que eu irei abrir inicialmente não contém nenhuma dessas tabelas, ele é só um formulário inicial, então acho eu que teria que ser um código que buscasse essas duas tabelas em questão.

    Obrigado

    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3235
    Registrado : 20/04/2011

    Re: [Resolvido]Mostrar Mensagem ao Abrir Formulário

    Mensagem  Silvio em Sex 16 Maio 2014, 14:48

    Bom dia, com a permissão...

    Use o Dlookup ao abrir o formulário em questão...

    Algo parecido com isso..

    If Dlookup ("campotabeladata", "tabela") and dlookup( "campotabeladata"," outratabela")=campoformuláriodata then
    msgbox"suamensagemaqui"
    end if

    Bons estudos e sucesso


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]

    pengo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 82
    Registrado : 10/12/2013

    Re: [Resolvido]Mostrar Mensagem ao Abrir Formulário

    Mensagem  pengo em Sex 16 Maio 2014, 15:18

    Obrigado pela ajuda Silvio,

    Seu código é funcional, porém, existe um problema, ele só me mostra a mensagem, se ele encontrar os valores iguais na primeira linha. Ou seja, se o primeiro campo da tabela estiver com a data de hoje, ele me mostra a mensagem, mas se a data de hoje estiver do segundo campo para frente, ele já não mostra a mensagem mais. Saberia como me ajudar?

    Obrigado.

    Fernando Bueno
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1819
    Registrado : 13/04/2012

    Re: [Resolvido]Mostrar Mensagem ao Abrir Formulário

    Mensagem  Fernando Bueno em Sex 16 Maio 2014, 15:41

    Bom dia amigos..

    Rodrigo teste esse pequeno exemplo para vermos se é o que necessita!
    Anexos
    Exemplo_Rodrigo.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (118 Kb) Baixado 25 vez(es)


    .................................................................................
    Um abraço
    Fernando Bueno


    O aumento do conhecimento é como uma esfera dilatando-se no espaço
    quanto maior a nossa compreensão,
    maior o nosso contacto com o desconhecido
    [Você precisa estar registrado e conectado para ver esta imagem.]

    pengo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 82
    Registrado : 10/12/2013

    Re: [Resolvido]Mostrar Mensagem ao Abrir Formulário

    Mensagem  pengo em Sex 16 Maio 2014, 15:58

    Obrigado Fernando, fiz as implementações aqui e funcionou tudo perfeitamente.

    Muito Obrigado mesmo aos amigos.

    Fernando Bueno
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1819
    Registrado : 13/04/2012

    Re: [Resolvido]Mostrar Mensagem ao Abrir Formulário

    Mensagem  Fernando Bueno em Sex 16 Maio 2014, 16:10

    Por nada, agradeço o retorno em nome do forum!


    .................................................................................
    Um abraço
    Fernando Bueno


    O aumento do conhecimento é como uma esfera dilatando-se no espaço
    quanto maior a nossa compreensão,
    maior o nosso contacto com o desconhecido
    [Você precisa estar registrado e conectado para ver esta imagem.]

      Data/hora atual: Ter 06 Dez 2016, 05:42