I want code to set the SubDataSheet to None in Access tables. I know how to do it in 32 bit. But need to to the same in Access 64.
I want code to set the SubDataSheet to None in Access tables. I know how to do it in 32 bit. But need to to the same in Access 64.
Hi Viorel-1,
Same code yes, but needed the MS Office 16.0 Access database engine Object Library
Had this solution from Gustav at UtterAccess:
Use: Microsoft Office 16.0 Access database engine Object Library
Then this code:
Public Sub RemoveSubdatasheetNames()
Dim Table As DAO.TableDef
Dim Property As DAO.Property
For Each Table In CurrentDb.TableDefs
If Table.SourceTableName = "" Then
For Each Property In Table.Properties
If Property.Name = "SubdatasheetName" Then
Exit For
End If
Next
If Property Is Nothing Then
Set Property = Table.CreateProperty("SubdatasheetName", dbText, "[None]")
Table.Properties.Append Property
Else
Property.Value = "[None]"
End If
End If
Next
End Sub
4 people are following this question.