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 : 4450
    Registrado : 20/04/2011

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

    Mensagem  Silvio em Sex 27 Dez - 8: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 Sex 27 Dez - 12: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 : 4450
    Registrado : 20/04/2011

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

    Mensagem  Silvio em Sex 27 Dez - 14: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 : 4450
    Registrado : 20/04/2011

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

    Mensagem  Silvio em Sex 27 Dez - 14: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 Sex 27 Dez - 15:48

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

    Respeito às Regras 100%

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

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

    Mensagem  Silvio em Sex 27 Dez - 15: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 Sex 27 Dez - 16: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 : 4450
    Registrado : 20/04/2011

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

    Mensagem  Silvio em Sex 27 Dez - 16: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 : 4450
    Registrado : 20/04/2011

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

    Mensagem  Silvio em Sex 27 Dez - 16: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 Sex 27 Dez - 16: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: Qui 17 Out - 0:26