checking for end of file

[markjkubicki]

on a different form, I've got the below code (it works just fine)
on a new form, I'm using nearly the exact same text (adjusted for a different table...)
and even when at the last record in the tableif Rst.EOF returns "false"

Dim rst As DAO.Recordset
    Set dbs = CurrentDb()
    Set rst = dbs.OpenRecordset("SELECT * FROM tbeSubmittal")
    If rst.EOF Then    
            strPrompt = "You are at the end of the database;" & Chr(13) & Chr(10) & "Do you want to create a new record?   "
            Response = MsgBox(strPrompt, vbQuestion + vbYesNo + vbDefaultButton1, "END of DATABASE")
            <...>

perplexed (nevermind the curiosities of the Universe...)
but with many thanks in advance,
Mark

[ssanfu]

I misread your post.

and even when at the last record in the tableif Rst.EOF returns "false"

If there are records in the table, rst.EOF will be false until you try to move PAST the last record

If you are at the last record and you issue a "MoveNext ", EOF will then be True.
Just opening a recordset on a table that has records and moving to the last record will not set EOF to True.

[markjkubicki]

my gosh... maybe it is Friday,
...and I know I ought to be better with

Option Explicit

never-the-less, when all else fails: look for the obvious:

 Public dbs As DAO.Database
 Public rst As DAO.Recordset

what a concept
THNX !!