how to add "SubdatasheetName" to a Access table and then change it?

[sandordan]

Hi Everyone,



I try to set a subtable (tbl2) to tbl1 connected with "ID_Nr", but receive an error code: 3385 Description: User-defined properties do not support a Null value. How should I set the subtable and set the connection?

Sub set_SubdatasheetName()

Dim db As DAO.Database
Dim tbl As DAO.TableDef
Dim ppty As DAO.Properties




Set db = CurrentDb
Set tbl = db.CreateTableDef("tbl1_name")
Set tbl2 = db.CreateTableDef("tbl2_name")




Set ppty = tbl.CreateProperty("SubdatasheetName", dbText, tbl2)
tbl.Properties.Append ppty


Set ppty = tbl.CreateProperty("LinkMasterFields", dbText, "ID_Nr")
tbl.Properties.Append ppty


Set ppty = tbl.CreateProperty("LinkChildFields", dbText, "ID_Nr")
tbl.Properties.Append ppty






Set db = Nothing
Set tbl = Nothing
Set ppty = Nothing


End Sub

Thank You!

[CJ_London]

I know a lot but not every error code description - would help if you stated the error description - but my guess would be tbl2 needs to be surrounded by quotes

[sandordan]

Hi, If I tried it with quotes previously and didnt run.

[CJ_London]

see this link

https://bytes.com/topic/access/answe...-name-via-code