How to search records for nth record from a particular record

Question

I have a query containing a date field and other fields/details. On the form I have a date field and need to know what the date is in the table 60 record after the date entered. The query date field will always remain in the same order but contains random
dates which may be 20/03/15, 21/03/15 then the next could be 28/03/15. What I want to do is enter a date into the form such as 22/03/15 and be able to populate a second field on the form with a date that is 60 records after 20/03/15. I've tried several ways
but just can't seem to work it out. Any ideas would be appreciated

Answer 1

the help so far has been fantastic, all works fine and now I just want to tidy it up a bit. What I am trying to do is put a date into a form textbox and have it work out 60 (which I've changed to 10 to check a bit easier) working days (no weekends and
no public holidays) and populate a second text box with the date.
I've set up two tables, one with 10 years of sequential dates and one with holiday. I then have a query to give me just the work days, which it does. This is the query code: (Named qryOfferExpiryDte)
SELECT tbldates.AllDteIDS, tbldates.AllDte, Weekday([AllDte]) AS WeekDayNo
FROM tbldates LEFT JOIN tblHolidays ON tbldates.AllDte = tblHolidays.HolidayDte
WHERE (((Weekday([AllDte]))<>7 And (Weekday([AllDte]))<>1) AND ((tblHolidays.HolidayDte) Is Null));
The code I have done so far to make it work is:
Private Sub Command0_Click()
Dim OfferDte As Date
Dim InitCount As Integer
Dim TotalCount As Integer
OfferDte = txtOfferDte
InitCount = DCOUNT("*", "qryOfferExpiryDte", "AllDte  <=  #" & Format(OfferDte, "yyyy-mm-dd") & "#")
TotalCount = 10 + InitCount
Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Dim strSQL As String
Set dbs = CurrentDb
strSQL = "SELECT * FROM qryOfferExpiryDte ORDER BY AllDte"
Set rst = dbs.OpenRecordset(strSQL, dbOpenDynaset)
If rst.EOF = False And rst.BOF = False Then
rst.Move TotalCount
'Debug.Print rst.Fields(0).Name & " = " & rst.Fields(0).Value
Me.txtExpiryDte = rst.Fields(1).Value
End If
rst.Close
Set rst = Nothing
Set dbs = Nothing
End Sub
To tidy it up I'd like to remove the query (qryOfferExpiryDte) from the dbase and just have it as code. I've tried changing it to:
  Dim strSQlA As String
  strSQLA = "SELECT tbldates.AllDteIDS" & vbCrLf
  strSQLA = strSQLA & "           , tbldates.AllDte" & vbCrLf
  strSQLA = strSQLA & "           , Weekday([AllDte]) AS WeekDayNo" & vbCrLf
  strSQLA = strSQLA & "        FROM tbldates " & vbCrLf
  strSQLA = strSQLA & "   LEFT JOIN tblHolidays " & vbCrLf
  strSQLA = strSQLA & "          ON tbldates.AllDte = tblHolidays.HolidayDte" & vbCrLf
  strSQLA = strSQLA & "       WHERE (((Weekday([AllDte]))<>7 " & vbCrLf
  strSQLA = strSQLA & "         AND (Weekday([AllDte]))<>1) " & vbCrLf
  strSQLA = strSQLA & "         AND ((tblHolidays.HolidayDte) Is Null));"
and replacing the reference to the query with strSQLA but I just can't get it to work. I keep getting an error saying "Microsoft Jet cannot find the table/query strSQLA.
Any ideas appreciated.