Recordset based on previous value

[teqtaq]

I need your guidance in following.

I am using a following code where dtmDate1 is 1/1/2000

rst2.FindFirst "Date<#" & Format(dtmDate1, "mm/dd/yyyy") & "#"


Now I need a second recordset to read DATE previous to dtmDate1.

dtmDate2 = rst2!Date

dtmDate2 must be = 1/1/1999


Data looks like this

ID_________Date
12_________1/1/1999
12_________1/1/1998
12_________1/1/2000
12_________1/1/2001

Thanks

 

[TheAceMan1]

How are ya teqtaq . . .

You don't need a second recordset. Example:

[blue]   rst2.FindFirst "Date [purple][b]=[/b][/purple] #" & Format(dtmDate1, "mm/dd/yyyy") & "#"
   
   If Not rst2.NoMatch Then
      rst2.MovePrevious
      
      If Not rst2.BOF Then
         dtmDate2 = rst2!Date
      Else
         MsgBox "No Previous Date!"
      End If
   Else
      MsgBox "Record Not Found!"
   End If[/blue]

[blue]Your Thoughts? . . .[/blue]

See Ya! . . . . . .

Be sure to see thread181-473997 [blue]Worthy Reading![/blue]
Also faq181-2886 [blue]Worthy Reading![/blue]