splitted database crashes when adding records to linked table

[k]

Hi all

I split a database in a table-part and a all-the-rest-part and linked
the tables, but my code adding records to a table crashes on

Set rs = db.OpenRecordse t("tblDeltakels e", dbOpenTable,
dbAppendOnly)

I think, some places where I do the same thing to another table it just
says "Invalid Operation", I press OK and nothing happens, and I am just
as wise as to what operation was invalid.

I guess the OpenRecordset needs to know that it's supposed to open a
table that is linked, but I have no idea how to tell it that.

Anyone?
K

[Lyle Fairfield]

k wrote:

Set rs = db.OpenRecordse t("tblDeltakels e", dbOpenTable,
dbAppendOnly)

Use dbOpenDynaset with linked tables.

--
--
Lyle
--

[k]

Thanks

But "method or data member not found"

I guess I should replace my line right before the openrecordset:
Set db = CurrentDb

with something else, to indicate that I am opening another db?

I'm a bit clueless here, nubi with this coding stuff in access

K

[Trevor Best]

k wrote:

Thanks

But "method or data member not found"

I guess I should replace my line right before the openrecordset:
Set db = CurrentDb

with something else, to indicate that I am opening another db?

I'm a bit clueless here, nubi with this coding stuff in access

K

Are you sure you have a reference to DAO? What choices do you get from
the intellisense dropdown?

--
This sig left intentionally blank

[k]

I guess I'm in over my head here, my db was working fine, but I wanted
to split it to easier make updates.
I seem not to be able to answer your questions...

Q: Are you sure you have a reference to DAO
A: I'm not sure, I don't know what you mean, and really never got the
hang of DAO...

Q: What choices do you get from the intellisense dropdown?
A: What is the intellisense dropdown?

[Trevor Best]

k wrote:

I guess I'm in over my head here, my db was working fine, but I wanted
to split it to easier make updates.
I seem not to be able to answer your questions...

Q: Are you sure you have a reference to DAO
A: I'm not sure, I don't know what you mean, and really never got the
hang of DAO...
If it was working before it must have been there, the method of data
access you're using is DAO.
Q: What choices do you get from the intellisense dropdown?
A: What is the intellisense dropdown?

When you type something like "db." in the code window you get a dropdown
list of methods and properties for the database object.

--
This sig left intentionally blank

[k]

> When you type something like "db." in the code window you get a
dropdown

list of methods and properties for the database object.

--
This sig left intentionally blank

Thanks for hanging in there with me...

The dropdown doesn't give me a .opendynaset but the openrecordset is
there.

I paste the whole code-piece here, what i does, or what it did before i
split my db, was to add a number of records to a many-to-many relation
table (tbl1), based on the selected items in a list.

Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim varEvent As Variant
Dim ctlEvent As Control

Set ctlEvent = Me.List1
Set db = CurrentDb
Set rs = db.OpenRecordse t("tbl1", dbOpenTable, dbAppendOnly)

For Each varEvent In ctlEvent.ItemsS elected
rs.AddNew
rs.Fields("fiel d1") = Me.ID
rs.Fields("fiel d2") = ctlEvent.ItemDa ta(varEvent)
rs.Update
Next varEvent
rs.Close
Set rs = Nothing
Set db = Nothing
I guess the first to codelines is my reference to DAO...
K

[Trevor Best]

k wrote:

When you type something like "db." in the code window you get a

dropdown

list of methods and properties for the database object.

--
This sig left intentionally blank

Thanks for hanging in there with me...

The dropdown doesn't give me a .opendynaset but the openrecordset is
there.

Set rs = db.OpenRecordse t("tbl1", dbOpenDynaset, dbAppendOnly)
--
This sig left intentionally blank

[k]

Trevor Best wrote:

Set rs = db.OpenRecordse t("tbl1", dbOpenDynaset, dbAppendOnly)
--
This sig left intentionally blank

Thank you Trevor!

K