I got an "Invalid Operation" error using MoveFirst???

[MLH]

The error occurred in line #5130. Ideas as to why?
qryITSLetterList returns 1 single record - but I don't
think that should be a problem. Hmmm???

5100 Dim MyDB As Database, rstITSLttrs As Recordset,
rstOtherTable As Recordset
5110 Set MyDB = CurrentDb()
5120 Set rstITSLttrs = MyDB.OpenRecordset("qryITSLetterList",
dbOpenForwardOnly)
5130 rstITSLttrs.MoveFirst
5140 CurrentVehicleJobID = rstITSLttrs!VehicleJobID

[Allen Browne]

MoveFirst will be invalid if there are no records.

Try:
Dim rstITSLttrs As DAO.Recordset, rstOtherTable As DAO.Recordset
...
If rstITSLttrs.RecordCount > 0 Then
rstITSLttrs.MoveFirst
--
Allen Browne - Microsoft MVP. Perth, Western Australia.
Tips for Access users - http://allenbrowne.com/tips.html
Reply to group, rather than allenbrowne at mvps dot org.

"MLH" <CR**@NorthState.net> wrote in message
news:8r********************************@4ax.com...

The error occurred in line #5130. Ideas as to why?
qryITSLetterList returns 1 single record - but I don't
think that should be a problem. Hmmm???

5100 Dim MyDB As Database, rstITSLttrs As Recordset,
rstOtherTable As Recordset
5110 Set MyDB = CurrentDb()
5120 Set rstITSLttrs = MyDB.OpenRecordset("qryITSLetterList",
dbOpenForwardOnly)
5130 rstITSLttrs.MoveFirst
5140 CurrentVehicleJobID = rstITSLttrs!VehicleJobID

[MLH]

That's what's confusing me - there is one record returned
by the query.

xxxxxxxxxxxxxxxxxxxxxxxx

On Mon, 10 Apr 2006 13:38:44 +0800, "Allen Browne"
<Al*********@SeeSig.Invalid> wrote:

MoveFirst will be invalid if there are no records.

Try:
Dim rstITSLttrs As DAO.Recordset, rstOtherTable As DAO.Recordset
...
If rstITSLttrs.RecordCount > 0 Then
rstITSLttrs.MoveFirst

[Bob Quintal]

MLH <CR**@NorthState.net> wrote in
news:f7********************************@4ax.com:

That's what's confusing me - there is one record returned
by the query.

xxxxxxxxxxxxxxxxxxxxxxxx

On Mon, 10 Apr 2006 13:38:44 +0800, "Allen Browne"
<Al*********@SeeSig.Invalid> wrote:

MoveFirst will be invalid if there are no records.

Try:
Dim rstITSLttrs As DAO.Recordset, rstOtherTable As
DAO.Recordset ...
If rstITSLttrs.RecordCount > 0 Then
rstITSLttrs.MoveFirst

MLH Sometimes your naivete amazes me.

In the statement
Set rstITSLttrs = MyDB.OpenRecordset("qryITSLetterList",
dbOpenForwardOnly)

what does dbOpenForwardOnly mean to you?

to me it means that you cannot jump from one record to another.
No Gotorecord, no moveprevious, no movefirst.


--
Bob Quintal

PA is y I've altered my email address.