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]Exibir resultados em formulário

    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

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

    [Resolvido]Exibir resultados em formulário Empty [Resolvido]Exibir resultados em formulário

    Mensagem  Silvio em 27/12/2013, 11:31

    Colegas bom dia a todos.

    No evento ao carregar do frm ( fomr_load) há o seguinte código>

    Código:
    intData = DateAdd("d", -7, Me.RevacinarEm.Value)

        If intData <= Date Then
        MsgBox (" Existem vacinas a vencer nos próximos 7 dias, ou já vencidas, por favor verifique..."), vbCritical, Me.Caption
        Else
        MsgBox (" Não existem vacinas vencidas..."), vbInformation, Me.Caption
        End If

    Funciona perfeitamente ! Ele traz todos os resultados que estão na consulta no frm.

    Porém, queria deixar o mesmo mais funcional ainda da seguinte forma;

    que o mesmo me mostrasse ( filtrasse ) na tela ( frm ) apenas os resultados que estão no campo "revacinarem", que estão ou vão estar a vencer ( DateAdd("d", -7, Me.RevacinarEm.Value)).
    É possível isso ?

    Grato desde já.


    .................................................................................
    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."
    avatar
    Convidado
    Convidado

    [Resolvido]Exibir resultados em formulário Empty Re: [Resolvido]Exibir resultados em formulário

    Mensagem  Convidado em 27/12/2013, 15:39

    Bom dia Silvio, já tentou?
    If intData <= Date And DateAdd("y", -7, [RevacinarEm])
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

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

    [Resolvido]Exibir resultados em formulário Empty Re: [Resolvido]Exibir resultados em formulário

    Mensagem  Silvio em 27/12/2013, 17:35

    Boa tarde Beto..

    Sim, já tentei. Mas continua a me mostrar as datas !


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

    Respeito às Regras 100%

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

    [Resolvido]Exibir resultados em formulário Empty Re: [Resolvido]Exibir resultados em formulário

    Mensagem  Silvio em 27/12/2013, 17:39

    Beto,

    Cá está o Link onde esta a parte do projeto que estou a desenvolver, caso queria dar uma olhada nele.

    Abraços.


    .................................................................................
    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."
    avatar
    Convidado
    Convidado

    [Resolvido]Exibir resultados em formulário Empty Re: [Resolvido]Exibir resultados em formulário

    Mensagem  Convidado em 27/12/2013, 18:48

    Sílvio, qual é o formulário em questão?
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

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

    [Resolvido]Exibir resultados em formulário Empty Re: [Resolvido]Exibir resultados em formulário

    Mensagem  Silvio em 27/12/2013, 18:54

    O que mostra as vacinas ( frmvacven )


    .................................................................................
    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."
    avatar
    Convidado
    Convidado

    [Resolvido]Exibir resultados em formulário Empty Re: [Resolvido]Exibir resultados em formulário

    Mensagem  Convidado em 27/12/2013, 19:17

    e o que você quer são os itens que já venceram e vão vencer daqui 7 dias do campo revacinarem, é isso?
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

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

    [Resolvido]Exibir resultados em formulário Empty Re: [Resolvido]Exibir resultados em formulário

    Mensagem  Silvio em 27/12/2013, 19:28

    Beto, depois de bater cabeça.....deu certo.
    Na consulta que gera o frmvacven mudei a instrução SQL, ficando dessa forma:

    Código:
    SELECT Proprietarios.IdProp, Proprietarios.Prop, Proprietarios.Email, Proprietarios.Telefone, Proprietarios.Celular, Vacina.IdVac, Caes.Nome, Vacina.IdCaesVac, Vacina.DataVacina, Vacina.RevacinarEm, Vacina.Vacina1, Vacina.[30dd], Vacina.[60dd], Vacina.[90dd], Vacina.[120dd], Vacina.[1ano]
    FROM Proprietarios INNER JOIN (Caes INNER JOIN Vacina ON Caes.IdCaes = Vacina.IdCaesVac) ON Proprietarios.IdProp = Caes.IdPropCaes
    WHERE (((vacina.revacinarem) BETWEEN
    DatePart("m",Date()) & "/1/" & DatePart("yyyy",Date()) AND Date()));

    Estava desde cedo, tentando acertar isso. Pois mostra 7 dias antes da vacina do animal vencer e assim pode-se passar um e-mail para o proprietário do mesmo, avisando com antecedência.

    A linha acrescentada na clausula é após a instrução Where.

    Grato meu amigo, pela tua disposição, tempo, vontade em querer ajudar.

    Abraços !


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

    Respeito às Regras 100%

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

    [Resolvido]Exibir resultados em formulário Empty Re: [Resolvido]Exibir resultados em formulário

    Mensagem  Silvio em 27/12/2013, 19:29

    ops...tópico resolvido.......


    .................................................................................
    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."
    avatar
    Convidado
    Convidado

    [Resolvido]Exibir resultados em formulário Empty Re: [Resolvido]Exibir resultados em formulário

    Mensagem  Convidado em 27/12/2013, 19:37

    Ok Silvio.
    Sds

    Conteúdo patrocinado

    [Resolvido]Exibir resultados em formulário Empty Re: [Resolvido]Exibir resultados em formulário

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 18/7/2019, 00:05