Here I go again........

[spud]

DATE frickin DATE!

How do I [SELECT] from a database which contains dates starting from a year back from todays date.

The date format I'm using is 11/01/2002

Thx

[IROY55]

Oh, common. There is nothing to complaint about:

Private Sub Form_Load()
    If DateDiff("yyyy", "11/01/2001", "11/01/2002") = 1 Then
        MsgBox "This is just fine. ;-)"
    End If
End Sub

[IROY55]

Another variation:

Private Sub Form_Load()
    If Year("11/01/2002") - Year("11/01/2001") = 1 Then
        MsgBox "I will be just fine. ;-)"
    End If
End Sub

[PhilRob56]

Ummmmm.....

Dim dNow as Date
 
dNow = DateAdd("yyyy",-1, Date)
 
SELECT whatever FROM wherever WHERE [DateField] => " & dNow

Yes? No?

[spud]

Sorry IROY55 didn't explain myself again!

Im using Data1.Recor....Select From.....etc. etc.... order by date

Ive put the date to search into a text box by using [Date - 365] I think that is causing the problem as its not selecting dates over a year. More like 1 year and a couple of months...

I think we have been here before IROY55

[IROY55]

That will do it as well.

[spud]

PhilRob56 I think you could be onto somthing there...


Thx

[spud]

Thx Roy & PhilRob56 I'll go and try it.

[RudyL]

you could do this..

select [value] from [value]
with recordset
if!datexxx <= maxdate and !date >= mindate then add to list
end with

kinda sloppy, but you get teh drift - right?

[spud]

yup

[PhilRob56]

Good Luck!