> I'm trying to get my VB program to wait until a previous
> command has finished executing before it goes ahead and
> executes the next command line. It's running within Access
> and it deals with retrieving records from a database
> through sql statememnts.
> Here's the portion of the code and I've marked where the
> program halting needs to happen:

>         Set db = CurrentDb()
>         sql = "SELECT DocumentID, DocumentName FROM
> tblMyDocuments"
>         sql = sql & " WHERE Current = true;"
>         Set rs = db.OpenRecordset(sql, dbOpenSnapshot)
>         (!!!!!it is here that I need to have a command
> that halts the program execution until all records are
> placed in the recordset!!!!!)

>         If Not rs.EOF Then
>             rs.MoveFirst
>             counter = 0
>             While counter < rs.RecordCount
>                 'Preview/Print Document command here
>         etc, etc.

> Does anyone have any idea as to what I can do here??

> Greately appreciate your help,

> Ian.

> Looking at the code you gave it would appear that you are finding that
> rs.RecordCount is returning a value of 1 thus stopping correct execution
of
> your program. The problem isn't in that the code is continuing before all
> records are in the recordset its that the Recordeset hasn't been filled.
> After opening a Recordset using "Set rs=db.OpenRecordset" you must
populate
> that recordset with the command "rs.MoveLast" . Insert "rs.MoveLast" after
> the Set rs...... line and I think that will solve your problem.

> HTH
> David

> > Hi,

> > I'm trying to get my VB program to wait until a previous
> > command has finished executing before it goes ahead and
> > executes the next command line. It's running within Access
> > and it deals with retrieving records from a database
> > through sql statememnts.
> > Here's the portion of the code and I've marked where the
> > program halting needs to happen:

> >         Set db = CurrentDb()
> >         sql = "SELECT DocumentID, DocumentName FROM
> > tblMyDocuments"
> >         sql = sql & " WHERE Current = true;"
> >         Set rs = db.OpenRecordset(sql, dbOpenSnapshot)
> >         (!!!!!it is here that I need to have a command
> > that halts the program execution until all records are
> > placed in the recordset!!!!!)

> >         If Not rs.EOF Then
> >             rs.MoveFirst
> >             counter = 0
> >             While counter < rs.RecordCount
> >                 'Preview/Print Document command here
> >         etc, etc.

> > Does anyone have any idea as to what I can do here??

> > Greately appreciate your help,

> > Ian.