Início
![[Resolvido]Exibir data na tela... Empty](https://2img.net/i/empty.gif)
Prezados....boa tarde !
Tenho uma consulta que me retorna as data de vacinas vencidas, porém o que eu não conseguindo fazer é que apenas essas vacinas apareçam. Pois aparece todas elas. Gostaria de filtrar melhor essa consulta. Em vba eu tenho o seguinte código
E aqui, a estrutura da consulta que gera o meu formulário:
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
GROUP BY 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];
Para deixar um pouco mais claro....
Vacina.datavacina é o campo que se coloca a data em que o animal foi vacinado.
Vacina.revacinarem é um campo calculado que recebe os valores de: vacina.[30dd]ou vacina.[60dd] ou vacina.[90dd]....
No formulário continuo ( frmvacven ) há um campo desvinculado chamado DTA, onde mostro a data Atual.
No mesmo formulário a outro campo desvinculado chamado DiF, que me trás a diferença de datas entre " revaciinarem e a data de hoje ( =DifData("d";Data();[RevacinarEm])).
Se puder me ajudar...fico agradecido !
Silvio
Tenho uma consulta que me retorna as data de vacinas vencidas, porém o que eu não conseguindo fazer é que apenas essas vacinas apareçam. Pois aparece todas elas. Gostaria de filtrar melhor essa consulta. Em vba eu tenho o seguinte código
- Código:
Private Sub Form_Load()
Me.Caption = " Sis Clin"
intData = DatePart("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
End Sub
E aqui, a estrutura da consulta que gera o meu formulário:
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
GROUP BY 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];
Para deixar um pouco mais claro....
Vacina.datavacina é o campo que se coloca a data em que o animal foi vacinado.
Vacina.revacinarem é um campo calculado que recebe os valores de: vacina.[30dd]ou vacina.[60dd] ou vacina.[90dd]....
No formulário continuo ( frmvacven ) há um campo desvinculado chamado DTA, onde mostro a data Atual.
No mesmo formulário a outro campo desvinculado chamado DiF, que me trás a diferença de datas entre " revaciinarem e a data de hoje ( =DifData("d";Data();[RevacinarEm])).
Se puder me ajudar...fico agradecido !
Silvio
Última edição por Silvio em 30/12/2013, 18:57, editado 1 vez(es) (Motivo da edição : adição de explicações !)
