[AccessD] Item Not Found In This Collection

Gustav:

So I changed the set of the PODetail recordsets from:

'Set rsPODetail = db.OpenRecordset("Select * FROM tblPODetail WHERE fldPOHID
= " & Me.fldPOHID)
'Set rsPODetailNew = db.OpenRecordset("Select * FROM tblPODetail")

to:

Set rsPODetail = db.OpenRecordset("Select fldPODRevision, fldPODPosted,
fldPODTaxable, " _
    & " fldPODQuantityReceived, fldPODQuantityOrdered, fldPODDateRequired, "
_
    & "fldPODUnitCost, fldPODUOM, fldPODPartDescription, fldPODVendorPart, "
_
    & "fldPODPartNumber, fldPODLineNumber, fldPOHID, fldPODID " _
    & "FROM tblPODetail WHERE fldPOHID = " & Me.fldPOHID)

Set rsPODetailNew = db.OpenRecordset("Select fldPODRevision, fldPODPosted,
fldPODTaxable, " _
    & " fldPODQuantityReceived, fldPODQuantityOrdered, fldPODDateRequired, "
_
    & "fldPODUnitCost, fldPODUOM, fldPODPartDescription, fldPODVendorPart, "
_
    & "fldPODPartNumber, fldPODLineNumber, fldPOHID, fldPODID FROM
tblPODetail")
 
And that works.  But why?

Rocky

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock
Sent: Tuesday, June 08, 2010 8:31 AM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Item Not Found In This Collection

Hi Rocky

Try adding the other fields one by one.

/gustav


>>> rockysmolin at bchacc.com 08-06-2010 17:09 >>>
Gustav:

Yes.  I inserted this code:

Set rsPODetail = db.OpenRecordset("Select fldPODRevision FROM tblPODetail
WHERE fldPOHID = " & Me.fldPOHID)

If rsPODetail.BOF = False And rsPODetail.EOF = False Then
rsPODetail.MoveLast MsgBox rsPODetail.RecordCount

    Do While rsPODetail.EOF = False
	MsgBox rsPODetail!fldPODRevision

and the record count comes up with 3 - that's correct.  And the MsgBox
displayed rsPODetail!fldPODRevision without a problem.

Any clues there?

TIA

Rocky



--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com