Hi Everyone,

I am trying to display a previous day information and calculate the current date information only and display in on a form.

For Example
[u]FieldName</u> [u]Date</u> [u]Difference</u>
1000 12-19-2003 (First Entry) result from previous
1050 12-20-2003 (second Entry) result from previous
1150 12-21-2003 (Last Entry) result from Previous

In the form I will like to only display the previous date information and the current date information. On monday I make my first entry " 1000","12-19-2003" on the tuesday I make my second Entry "1050", "12-20-2003". On the Difference field name I will like to calculate the difference from previous date First entry "1000-Previous entry, second entry "1050-1000" last entry "1150-1050".

I hope that I was descriptive enough to paint a picture. Any help will be greatly appreciated. Remember it must always calculate the previous date entry only. Thanks everyone.

__________________
Jaime E. Maccou

If the previous date is always the most recent date before the one you're entering - you could use a DMax to get it. (look up dmax in Access help)

Steveb

I am a loud man with a very large hat. This means I am in charge

I hope this will help.

Private Sub Form_Load()
   Dim rsPrevious as recordset
   Dim rsCurrent as recordset
   Dim strSql as string
   Dim lngPrevious as long
   Dim lngCurrent as long
   Dim lngDifference as long

   strSql= "SELECT Field FROM Table WHERE Date = "
   Set rsPrevious = CurrentDb.OpenRecordSet(strSql _
                                        & DateAdd("d",-1,Date()))
   lngPrevValue = rsPrevious!Field
   rsPrevious.Close

   Set rsCurrent = CurrentDb.OpenRecordSet(strSql _
                                        & Date())
   lngCurrValue = rsCurrent!Field
   rsCurrent.Close

   lngDifference = lngCurrent - lngPrevious
   txtDifference = lngDifference
End Sub

If you are using a bound form put this code in the Form_current event.

I will try this and get back to you with the results.