Согласно Ален Browne, свойством имени subdataseet будет проблема в доступе госпожи и должна быть повернуто. (Свойство Subdatasheet названное установленное к [автомобиль] должно быть [никакие].) См. это соединение, выбернное отрывки ниже:
http://allenbrowne.com/bug-09.htmlЯ верю subdatasheets все еще будут действовать на основании соединений оригинала и ребенка даже если свойство имени subdatasheet было повернуто. Как всегда, сделайте конечно вас иметь подходящие подпорки перед делать все изменения.
________________________________________________________________
Таблицы: SubdatasheetName
В доступе 2000, таблицы получили новое свойство после того как они вызваны SubdatasheetName. Если свойство не установлено, то оно не выполняет обязательство к «[автомобиль]». Свой datasheet показывает a плюс знак потребитель может щелкнуть для показа родственных показателей от некоторой другой таблицы доступ думает может быть полезн.
Это автоматически заданное свойство унаследовано формами и subforms показанными в взгляде datasheet. Ясно, это не будет хорошая идея и может иметь непреднамеренные последствия в применениях импортированных от ранних версий. Плох все еще, будут серьезные вопросы представления ассоциированные с нагружать форму которая имеет несколько subforms где доступ вычисляет вне и собирает данные от таблиц многократной цепи более относить.
Опять, разрешение должно повернуть subdatasheets путем устанавливать свойство к «[никакие]». Опять, не будет дороги сделать это невыполнением обязательства, поэтому вы должны вспомнить сделать поэтому каждое время, котор вы создаете таблицу. Это Кодий закрепит петлеть через ваши таблицы и повернет свойство:
Функция TurnOffSubDataSh ()
Тусклый db как DAO.Database
Тусклое tdf как DAO.TableDef
Тусклое prp как DAO.Property
conPropName Const = «SubdatasheetName»
conPropValue Const = «[никакие]»
Установите db = DBEngine (0) (0)
Для каждого tdf в db.TableDefs
Если (tdf. Атрибуты и dbSystemObject) = 0 после этого
Если tdf. Соединитесь = vbNullString и Asc (tdf. Имя) <> после этого 'прикрепленное 126, или temp.
Если не HasProperty (tdf, conPropName) после этого
Установите prp = tdf.CreateProperty (conPropName
, dbText, conPropValue)
prp tdf. Properties.Append
Еще
Если tdf. conPropValue свойств (
conPropName <> ) после этого
tdf. Свойства (conPropName
) = conPropValue
Закончитесь если
Закончитесь если
Закончитесь если
Закончитесь если
Затем
Установите prp = ничего
Установите tdf = ничего
Установите db = ничего
Закончите функцию
Общественная функция HasProperty (obj как предмет, strPropName как шнур) как булевско
'Цель: Возвращенно true если предмет имеет свойство.
Затемните varDummy как вариант
На ошибке возобновьте затем
varDummy = obj. Свойства (strPropName
)
HasProperty = (Err.Number = 0)
Функция конца