Отключение Шифта
set db = CurrentDb
db.Properties("AllowBypassKey") = False,
а он выдает что свойство не обнаружено (3270), и хелп молчит по этому свойству, может кто чо знает.
И еще как можна в текущем режиме посмотреть тип открытой формы (конструктор/отчет и тд)?