[AccessD] Last Record Problem

Why does the following not generate an error. It seems I would be past the last record?

strSql = "SELECT TestDate, LinePres, TubingPres, [LinePres]-[TubingPres] AS Difference " & _
        "FROM tbl_Pressure_Date " & _
        "WHERE (((TestDate)=Date() Or (TestDate)=Date()-7 Or (TestDate)=Date()-14 Or (TestDate)=Date()-21 Or (TestDate)=Date()-28 Or (TestDate)=Date()-35 Or (TestDate)=Date()-42)) " & _
        "ORDER BY TestDate;"

Set rs4 = MyDb.OpenRecordset(strSql)

rs4.MoveLast
rs4.MoveNext


Chester Kaup

Engineering Technician

Kinder Morgan CO2 Company, LLP

Office (432) 688-3797

FAX (432) 688-3799





No trees were killed in the sending of this message. However a large number of electrons were terribly inconvenienced.