3265 Item not found in this collection.

[Stapes]

Hi

I am adding a new record here, then trying to pick up the autonumber
key field for the record just written. I get 3265 Item not found in
this collection.

With rsCust
'#### add each item into a new record
.AddNew
.Fields("Co") = rsComp.Fields("Company")
.Fields("Add1") = rsComp.Fields("Address1")
.Fields("Add2") = rsComp.Fields("Address2")
.Fields("Add3") = ""
.Fields("Town") = rsComp.Fields("Town")
.Fields("Cnty") = rsComp.Fields("County")
.Fields("Pocd") = rsComp.Fields("Post Code")
.Fields("Country") = rsComp.Fields("Country")
.Fields("DT_Audit") = Date
.Update
.Close
End With
MsgBox "Customer record created. Key = " &
rsComp.Fields("PK_Comp")

Any ideas?

Stapes

 

[Jason Lepack]

Which line is giving the error? How do you initialize rsComp?

 

[rico]

Not sure, but at a glance i would say it should be:
MsgBox "Customer record created. Key = " &
rsCust.Fields("PK_Comp")

HTH

 

[Jason Lepack]

Not sure, but at a glance i would say it should be:
MsgBox "Customer record created. Key = " &
rsCust.Fields("PK_Comp")

I suspect that that line is probably causing the error as well, but
rsCust would cause an error because rsCust is already closed.

If that line is causing the error then the field named "PK_Comp" does
not exist in the recordset for rsComp.

Cheers,
Jason Lepack

 

[Stapes]

Hi

No - it is not that. PK_Comp is part of the record just added - an
autonumber field which should self increment.

Stapes

 

[Stapes]

Not sure, but at a glance i would say it should be:
MsgBox "Customer record created. Key = " &
rsCust.Fields("PK_Comp")

HTH

Hi

No - it is not that. PK_Comp is part of the record just added - an
autonumber field which should self increment.


Stapes

 

[Jason Lepack]

What recordset is pk_comp in and how is that recordset initialized?