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


4 participantes

    [Resolvido]Mostrar Mensagem ao Abrir Formulário

    pengo
    pengo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Mostrar Mensagem ao Abrir Formulário Empty [Resolvido]Mostrar Mensagem ao Abrir Formulário

    Mensagem  pengo Qui maio 15, 2014 11:20 pm

    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
    toyebom
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Mostrar Mensagem ao Abrir Formulário Empty Mostrar Mensagem ao Abrir Formulário

    Mensagem  toyebom Qui maio 15, 2014 11:45 pm

    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
    pengo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  pengo Sex maio 16, 2014 3:38 pm

    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
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Silvio Sex maio 16, 2014 3:48 pm

    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.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    pengo
    pengo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  pengo Sex maio 16, 2014 4:18 pm

    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
    Fernando Bueno
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Fernando Bueno Sex maio 16, 2014 4:41 pm

    Bom dia amigos..

    Rodrigo teste esse pequeno exemplo para vermos se é o que necessita!


    .................................................................................
    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
    [Resolvido]Mostrar Mensagem ao Abrir Formulário 16rzeq

    Marco Antonio Moreno gosta desta mensagem

    pengo
    pengo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  pengo Sex maio 16, 2014 4:58 pm

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

    Muito Obrigado mesmo aos amigos.
    Fernando Bueno
    Fernando Bueno
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Fernando Bueno Sex maio 16, 2014 5:10 pm

    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
    [Resolvido]Mostrar Mensagem ao Abrir Formulário 16rzeq

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: Sex Abr 19, 2024 7:04 pm