Vergleich mal in den beiden Tabellen die Properties für das bewusste Feld. Dort sollte eigentlich sowas machbar sein.
---------------------------------------
Public Sub Test()
Dim wrk As DAO.Workspace
Dim db As DAO.Database
Dim Properties As DAO.Properties
Set wrk = CreateWorkspace("", "Admin", "")
Set db = wrk.OpenDatabase(CurrentProject.FullName)
Set Properties = db.TableDefs("YourTable").Fields("YourField").Prop erties
End Sub
|